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.

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

Most Recent

Come ridurre la dimensione di un boltdb

Questo post parte da questa risposta ad una domanda posta sul repository ufficiale di boltdb. Nella domanda si chiede come ridurre la dimensione di un database

Come installare uno script Go su Ubuntu

Go è un linguaggio di programmazione nato in Google dalle mani di Robert Griesemer, Rob Pike e Ken Thompson. Sintatticamente è molto simile al C

Come trasferire chiamate tra interni su FreePBX

Molti telefoni hardware hanno già incorporato un pulsante che può essere utilizzato per il trasferimento delle chiamate tra interni, altri invece ne sono sprovvisti. Cosa