選擇或激活功能以打開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是一個Long