Succede che siamo di fronte ad un documento di Word in cui abbiamo aggiunto un numero consistente di immagini. Il prossimo passo sarebbe quello di ridimensionarle, ma non abbiamo voglia di farlo una foto alla volta.
Con qualche riga di codice possiamo risolvere il tutto. Ricordiamoci però che dobbiamo avere la scheda Sviluppo attiva nel nostro editor Word per poter accedere alle funzionalità di Visual Basic.
Sub SetupAllPictureSize()
Dim objInlineShape As InlineShape
Dim objShape As Shape
For Each objInlineShape In ActiveDocument.InlineShapes
objInlineShape.Height = 250
objInlineShape.Width = 250
Next objInlineShape
For Each objShape In ActiveDocument.Shapes
objShape.Height = 250
objShape.Width = 250
Next objShape
End Sub
