Embedded Powerpoint aus Excel VBA bearbeiten
-
02-07-2019 - |
Frage
Ich habe eine eingebettete Powerpoint-Präsentation in einer Excel-Arbeitsmappe. Wie kann ich diese bearbeiten (öffnen, kopieren Dias, fügen Sie Daten zu Folien, in der Nähe) mit VBA?
Lösung
1. Fügen Sie einen Verweis auf das Powerpoint-Objektmodell auf Ihre VBA-Anwendung
Aus dem VBA-Fenster, wählen Sie Tools | Referenzen
Geben Sie für Microsoft Powerpoint 12.0 Object Library und überprüfen Sie es
2. Wählen und aktivieren Sie das Powerpoint-Präsentationsobjekt
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen
. Hinweis: Dieser Code geht davon aus, dass das Powerpoint-Objekt des Name Objekt 1 (schauen Sie in der linken oberen Ecke, um zu sehen, was es wirklich genannt) und dass es auf dem aktiven Blatt ist
3. Erhalten Sie einen Verweis auf das Präsentationsobjekt
Dim p As PowerPoint.Presentation
Set p = Selection.Object
4. Manipulieren es
Alle Methoden und Eigenschaften eines Präsentationsobjekt stehen Ihnen zur Verfügung. Hier ist ein Beispiel einer Folie hinzuzufügen:
p.Slides.Add 1, ppLayoutBlank
5. Deaktivieren Sie die
Der einfachste Weg ist nur eine Zelle auszuwählen.
[a1].Select
Ich hoffe, das hilft!