Получение названия каждой открытой презентации PPT с использованием VBA

Question

Я хочу получить название каждой открытой презентации PPT, используя следующий код.Проблема в том, что я получаю сообщение об ошибке «Компонент ActiveX не может создать объект» в строке «Для каждой» кода.

Заранее спасибо за вашу помощь!

PS: Странная вещь: я ТОЧНО скопировал код отсюда: http://vba.relief.jp/powerpoint-macro-get-all-open-presentations-name/

Sub GetAllOpenPresentationsName()

Dim prs As Presentation


For Each prs In Presentations

Debug.Print prs.Name

Next prs

End Sub

Answer 1

Добро пожаловать на SO.Кажется, вы не работаете в PowerPoint VBA.при работе с другой платформы попробуйте

Sub GetAllOpenPresentationsName()
Dim prs As Presentation
Dim PP As PowerPoint.Application
On Error Resume Next
Set PP = GetObject(, "PowerPoint.Application")
    If Err Then
    Debug.Print "PowerPoint is not Open"
    Err.Clear
    Exit Sub
End If
On Error GoTo 0
For Each prs In PP.Presentations
Debug.Print prs.Name
Next prs
End Sub