为已打开的Powerpoint演示文稿选择或激活功能

Question

您好我正在寻找在两个演示文稿之间切换的语法，这两个演示文稿一直在打开...类似于选择或激活...

Dim PPT As Object
Dim ppQuelle As Object
Dim ppZiel As Object




Set PPT = CreateObject("PowerPoint.Application")

With PPT
.Visible = True
.WindowState = 1
.Activate
End With

Set ppQuelle = PPT.Presentations.Open("I:\VS_52\520104\Vertriebsstories\Datensatz Markt\Fabian\Projekt\Produktpraesentation_Deka-DividendenStrategie_DE000DK2CDS0_PPT.pptx")
Set ppZiel = PPT.Presentations.Open("I:\VS_52\520104\Vertriebsstories\Datensatz Markt\Fabian\Projekt\Vorlage_Ergänzungspräsentation.pptx")



'Seite 13 bis 20 kopieren

For x = 13 To 20

With PPT
.ActivePresentation.Slides(x).Copy

'Seite 13 bis 20 einfügen


'.ActivePresentation.Slides(1).Select
Application.WindowActivate ("I:\VS_52\520104\Vertriebsstories\Datensatz Markt\Fabian\Projekt\Vorlage_Ergänzungspräsentation.pptx")
.ActiveWindow.View.Paste
End With


Next x

Answer 1

Presentations("PRESENTATION_NAME").Windows(1).Activate

或

Presentations(PRESENTATION_INDEX).Windows(1).Activate 

其中PRESENTATION_INDEX是长