Question

我正在准备一个Excel文件，在其中运行旨在更新PowerPoint幻灯片的UserForm。我遇到的问题是，在将某些图片粘贴到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

Answer 1

我的VBA编辑器此刻被关闭，所以我无法确认任何内容，但请尝试

AppActivate("Excel.Application")

或尝试使用 GetObject("Excel.Application")

获取应用程序的句柄，然后尝试通过其他方法？

在PowerPoint中执行VBA后重新关注Excel

1 个答案: