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 funionalità 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.

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

Most Recent

Come estrarre informazioni hardware su Ubuntu

Per estrarre informazioni relative all’hardware su cui è in esecuzione il nostro sistema operativo Ubuntu possiamo utilizzare il comando dmidecode il quale si occupa di

Come esportare i crontab su Ubuntu

La migrazione del contenuto di una macchina Ubuntu ad un’altra può includere anche il backup e il restore dei crontab. Qui di seguito vediamo il