Выбор любого файла PPT глобально Использование VBA - PullRequest
Новая
       36

Выбор любого файла PPT глобально Использование VBA

0 голосов
/ 25 февраля 2019

Я создал код, который выбирает файл 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

Как сделать этот выбор глобально?

1 Ответ

0 голосов
/ 25 февраля 2019

Ниже приведен (неполный) пример, взятый из одного из моих макросов 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, но, вероятно, тоже в ppt) в разделе Параметры Excel, Центр управления безопасностью,Настройки центра управления безопасностью.

...