Modifica di PowerPoint incorporato da VBA di Excel
-
02-07-2019 - |
Domanda
Ho una presentazione di PowerPoint incorporata in una cartella di lavoro di Excel. Come posso modificarlo (apri, copia le diapositive, aggiungi dati alle diapositive, chiudi) usando VBA?
Soluzione
1. Aggiungi un riferimento al modello a oggetti di PowerPoint all'applicazione VBA
Dalla finestra VBA, scegli Strumenti | Riferimenti
Cerca Libreria oggetti di Microsoft Powerpoint 12.0 e selezionalo
2. Seleziona e attiva l'oggetto presentazione PowerPoint
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen
Nota: questo codice presuppone che l'oggetto PowerPoint sia denominato Oggetto 1 (guarda nell'angolo in alto a sinistra per vedere come è realmente chiamato) e che si trova sul foglio attivo.
3. Ottieni un riferimento all'oggetto Presentazione
Dim p As PowerPoint.Presentation
Set p = Selection.Object
4. Manipolarlo
Tutti i metodi e le proprietà di un oggetto presentazione sono disponibili per te. Ecco un esempio di aggiunta di una diapositiva:
p.Slides.Add 1, ppLayoutBlank
5. Deselezionalo
Il modo più semplice è solo selezionare una cella.
[a1].Select
Spero che ti aiuti!