Come ridimensionare le immagini in Word con VBA

Cerca

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 scaricare video da YouTube con yt-dlp

Per scaricare video da YouTube possiamo utilizzare yt-dlp un fork dell’ormai defunto youtube-dl. Scaricare video da YouTube Per scaricare video da YouTube eseguire questo comando

Partners