Embedded Powerpoint aus Excel VBA bearbeiten

Question

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?

Answer 1

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!