Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

Oggi ho "litigato" con Word: mi è stato inviato un documento oieno di immagini in linea con il testo da ridimensionare. Purtroppo Word tratta le immagin in linea con il testo come si trattasse di caratteri e non è possibile una selezione automatica multipla. Non avendo intenzione di dimensionare una immagine alla volta (ce ne erano un centinaio...) ho scritto una macro. Ve la propongo, potrebbe tornarvi utile

Option Explicit
Dim img As InlineShape


Public Sub ridimensiona()
For Each img In ActiveDocument.InlineShapes
   img.Width = CentimetersToPoints(7.93)
   
Next img
End Sub

La macro definisce un oggetto come inlineShape, quindi esegue un ciclo su tutti gli oggetti inlineShape del documento e ne definisce la larghezza, impostandola a 7,93 cm.

Io ho inserito la larghezza desiderata nel mio codice, nulla vieta di chiedere all'utente di fornirla con una input box.

Joomla templates by a4joomla