Восстановление сосредоточенности на Excel после выполнения VBA в PowerPoint - PullRequest
Новая
       17

Восстановление сосредоточенности на Excel после выполнения VBA в PowerPoint

0 голосов
/ 30 мая 2019

Я готовлю файл Excel, в котором запускаю пользовательскую форму, предназначенную для обновления слайдов PowerPoint.Проблема, которая у меня есть, заключается в том, что в какой-то момент после вставки некоторых изображений в слайды PowerPOint я призываю открыть диалоговое окно, чтобы выбрать файл для встраивания в презентацию.Однако Excel не фокусируется на времени и начинает мигать в фоновом режиме, поэтому пользователь должен увидеть его и активировать, чтобы открыть диалоговое окно.

Я пытался использовать Workbook.activate, Выбрать выражение и ничегоработал. 

    Dim s As Integer
        For s = MyPresentation.Slides(9).Shapes.Count To 1 Step -1
            If MyPresentation.Slides(9).Shapes(s).Type = msoEmbeddedOLEObject Then
                MyPresentation.Slides(9).Shapes(s).Delete
            End If
        Next s


indexsheet.Activate


Dim Met2FactSheet As String
Dim HerFactSheet As String

MsgBox "Please choose the Metro2 Fact Sheet", vbQuestion, "Metro2 Fact Sheet selection"

Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogFilePicker)
          If .Show <> -1 Then MsgBox "No file selected! Exiting script.": End
        Met2FactSheet = .SelectedItems(1)

    End With

1 Ответ

0 голосов
/ 30 мая 2019

Мой VBA-редактор отключается в минуту, поэтому я не могу ничего подтвердить, но попробуйте

AppActivate("Excel.Application")

или, альтернативно, попробуйте использовать GetObject("Excel.Application")

получить дескриптор приложения, а затем попытаться использовать другой метод?

...