Come ridimensionare le immagini in Word con VBA

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
				
			

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.

Most Recent

Come modificare l’autore di commit precedenti

Anzitutto apriamo questo articolo precisando che modificare i commit passati è un’operazione sulla commit history di un repository e tale operazione può essere rischiosa. Questa

Come eliminare un Git remote branch

Mentre in questo articolo abbiamo trattato come eliminare un Git local branch, qui di seguito trattiamo come eliminare un Git remote branch. Anche in questo caso,

Partners