使用 VBA 全局选择任何 PPT 文件

Question

我创建了一个代码，可以从我的系统中选择一个 PPT 文件。但这是一个硬代码。如何创建全局代码而不是硬编码？ 我的代码如下：

Sub PPTTest()
  Dim PPT As Object

  Set PPT = CreateObject("PowerPoint.Application")

  PPT.Presentations.Open "D:\Us\70\Desktop\Shaon\BOD.pptx", , , False

  ' Note that the file name and the module
  ' name are required to path the macro correctly.
  PPT.Run "BOD.pptx!Module1.KillSpecificSlide"

 End Sub

如何在全局范围内进行此选择？

Answer 1

以下是取自我的一个 Excel 宏的（非竞争性）示例：

Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogOpen)
With fldr
    .Title = "Select a File"
    .AllowMultiSelect = False
    .InitialFileName = ""
    If .Show <> -1 Then Exit Sub
    sItem = .SelectedItems(1)
End With
Set fldr = Nothing

sItem 现在包含所选项目。在您的 PPT.Presentations.Open 通话中使用它。

注意：此代码仍然必须在 MS-Office 文件中（word、ppt、excel）。要使这样的宏“全局”，它必须在启动模板中。

您可以在 Excel 选项、信任中心、信任中心设置下找到或更改包含启动模板的启动位置（在 excel 中，但也可能在 ppt 中）。