Come creare e inserire forme in PowerPoint con VBA?

Impostazione delle proprietà per una forma

Molte proprietà di formattazione delle forme non vengono impostate dalle proprietà che si applicano direttamente all'oggetto  Shape  o  ShapeRange  . Gli attributi di forma correlati vengono invece raggruppati in oggetti secondari, ad esempio l'  oggetto FillFormat  , che contiene tutte le proprietà correlate al riempimento della forma, o l'  oggetto LinkFormat  , che contiene tutte le proprietà univoche degli oggetti OLE collegati. Per impostare le proprietà per una forma, è necessario prima restituire l'oggetto che rappresenta l'insieme di attributi della forma correlati e quindi impostare le proprietà dell'oggetto restituito. Ad esempio, utilizzi la  proprietà Fill  per restituire l'  oggetto FillFormat  , quindi imposti la  proprietà ForeColor  dell'oggetto  FillFormat  per impostare il colore di riempimento in primo piano per la forma specificata, come illustrato nell'esempio seguente.

V.B

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Applicazione di una proprietà o di un metodo a più forme contemporaneamente

Nell'interfaccia utente sono presenti alcune operazioni che è possibile eseguire con diverse forme selezionate; ad esempio, puoi selezionare più forme e impostare tutti i riempimenti individuali contemporaneamente. Esistono altre operazioni che puoi eseguire solo con una singola forma selezionata; ad esempio, puoi modificare il testo in una forma solo se è selezionata una singola forma.

In Visual Basic esistono due modi per applicare proprietà e metodi a un insieme di forme. Questi due modi consentono di eseguire qualsiasi operazione eseguibile su una singola forma in un intervallo di forme, indipendentemente dal fatto che sia possibile eseguire o meno la stessa operazione nell'interfaccia utente.

• Se l'operazione funziona su più forme selezionate nell'interfaccia utente, è possibile eseguire la stessa operazione in Visual Basic costruendo una  raccolta ShapeRange  che contiene le forme con cui si desidera lavorare e applicando le proprietà e i metodi appropriati direttamente alla   raccolta ShapeRange .

• Se l'operazione non funziona su più forme selezionate nell'interfaccia utente, è comunque possibile eseguire l'operazione in Visual Basic scorrendo la  raccolta Shapes  o una  raccolta ShapeRange  che contiene le forme con cui si desidera lavorare e applicando le proprietà appropriate e metodi ai singoli  oggetti Shape  nella raccolta.

Molte proprietà e metodi applicabili all'oggetto  Shape  e  alla raccolta ShapeRange  falliscono se applicati a determinati tipi di forme. Ad esempio, la  proprietà TextFrame  ha esito negativo se applicata a una forma che non può contenere testo. Se non sei sicuro che a ogni forma in una  raccolta ShapeRange  possa essere applicata una determinata proprietà o metodo, non applicare la proprietà o il metodo alla  raccolta ShapeRange  . Se si desidera applicare una di queste proprietà o metodi a una raccolta di forme, è necessario scorrere la raccolta e testare ogni singola forma per assicurarsi che sia un tipo di forma appropriato prima di applicarvi la proprietà o il metodo.

Applicazione di una proprietà o di un metodo a una raccolta ShapeRange

Se è possibile eseguire contemporaneamente un'operazione su più forme selezionate nell'interfaccia utente, è possibile eseguire l'equivalente a livello di codice costruendo una  raccolta ShapeRange  e quindi applicandovi le proprietà o i metodi appropriati. Nell'esempio seguente viene costruito un intervallo di forme che contiene le forme denominate "Big Star" e "Little Star" e applica loro un riempimento sfumato.myDocument

V.B

Set myDocument = ActivePresentation.Slides(1) 
Set myRange = myDocument.Shapes _ 
    .Range(Array("Big Star", "Little Star")) 
myRange.Fill.PresetGradient msoGradientHorizontal, _ 
    1, msoGradientBrass

Di seguito sono riportate linee guida generali sul comportamento di proprietà e metodi quando vengono applicati a una   raccolta ShapeRange .

• Applicare un metodo alla raccolta equivale ad applicare il metodo a ogni singolo  oggetto Shape  in quella raccolta.

• Impostare il valore di una proprietà della collezione equivale a impostare il valore della proprietà di ogni singola forma presente in quell'intervallo.

• Una proprietà della raccolta che restituisce una costante restituisce il valore della proprietà per una singola forma nella raccolta se tutte le forme nella raccolta hanno lo stesso valore per quella proprietà. Se non tutte le forme nella raccolta hanno lo stesso valore per la proprietà, restituisce la costante "mista".

• Una proprietà della raccolta che restituisce un tipo di dati semplice (come  Long ,  Single o  String ) restituisce il valore della proprietà per una singola forma se tutte le forme nella raccolta hanno lo stesso valore per quella proprietà.

• Il valore di alcune proprietà può essere restituito o impostato solo se nella raccolta è presente esattamente una forma. Se nell'insieme è presente più di una forma, si verifica un errore di runtime. Questo è generalmente il caso della restituzione o dell'impostazione di proprietà quando l'azione equivalente nell'interfaccia utente è possibile solo con una singola forma (azioni come la modifica del testo in una forma o la modifica dei punti di una forma libera).

Le linee guida precedenti si applicano anche quando si impostano le proprietà delle forme raggruppate in oggetti secondari della  raccolta ShapeRange  , ad esempio l'  oggetto FillFormat  . Se l'oggetto secondario rappresenta operazioni che possono essere eseguite su più oggetti selezionati nell'interfaccia utente, sarai in grado di restituire l'oggetto da una  raccolta ShapeRange  e impostarne le proprietà. Ad esempio, puoi utilizzare la  proprietà Fill  per restituire l'  oggetto FillFormat  che rappresenta i riempimenti di tutte le forme nella  raccolta ShapeRange  . L'impostazione delle proprietà di questo  oggetto FillFormat  imposterà le stesse proprietà per tutte le singole forme nella  raccolta ShapeRange  .

Ciclo attraverso una raccolta Shapes o ShapeRange

Anche se non è possibile eseguire contemporaneamente un'operazione su più forme nell'interfaccia utente selezionandole e quindi utilizzando un comando, è possibile eseguire l'azione equivalente a livello di codice scorrendo la  raccolta Shapes  o una   raccolta ShapeRange che contiene le forme desiderate. con cui si desidera lavorare e applicare le proprietà e i metodi appropriati ai singoli  oggetti Shape  nella raccolta. L'esempio seguente esegue il ciclo di tutte le forme e aggiunge testo a ogni forma che è una forma. e aggiunge testo a ogni forma che è una forma automatica.myDocument

V.B

Set myDocument = ActivePresentation.Slides(1) 
For Each sh In myDocument.Shapes 
    If sh.Type = msoAutoShape Then 
        sh.TextFrame.TextRange.InsertAfter " (version 1)" 
    End If 
Next

L'esempio seguente crea  una raccolta ShapeRange  che contiene tutte le forme attualmente selezionate nella finestra attiva e imposta il testo in ogni forma della raccolta che può contenere testo.

V.B

For Each sh in ActiveWindow.Selection.ShapeRange
    If sh.HasTextFrame Then
        sh.TextFrame.TextRange = "Initially selected"
    End If
Next

Allineamento, distribuzione e raggruppamento di forme in un intervallo di forme

Utilizzare i  metodi Allinea  e  Distribuisci  per posizionare un insieme di forme l'una rispetto all'altra o rispetto al documento che le contiene. Utilizza il  metodo Raggruppa  o  Raggruppa  per formare un'unica forma raggruppata da un insieme di forme.