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.