Potrebbe essere necessario ridimensionare regolarmente la grafica nel documento di una certa percentuale. Usare i menu per eseguire il ridimensionamento può diventare faticoso, quindi potresti voler eseguire il ridimensionamento utilizzando una macro che puoi assegnare a un pulsante della barra degli strumenti o un tasto di scelta rapida. La seguente macro gestirà molto bene il ridimensionamento:

Sub PictSize()

Dim PercentSize As Integer

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



If Selection.InlineShapes.Count > 0 Then         Selection.InlineShapes(1).ScaleHeight = PercentSize         Selection.InlineShapes(1).ScaleWidth = PercentSize     Else         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue     End If End Sub

La macro richiede prima una percentuale in base alla quale si desidera ridimensionare l’immagine selezionata, offrendo 75 (75%) come impostazione predefinita. Quando si specifica una percentuale, la macro verifica se l’elemento grafico selezionato è in linea o mobile. La ragione per farlo è che la specifica dell’oggetto è diversa in ogni caso, così come il modo in cui viene specificato il ridimensionamento. Gli oggetti in linea appartengono alla raccolta InlineShapes, mentre gli oggetti mobili vengono impostati utilizzando l’oggetto ShapeRange.

Se si desidera ridimensionare tutte le immagini nel documento della stessa percentuale, è sufficiente modificare la macro sopra in modo che passi attraverso ciascuna delle immagini in linea e quindi ciascuna delle immagini mobili.

Sub AllPictSize()

Dim PercentSize As Integer     Dim oIshp As InlineShape     Dim oshp As Shape

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



For Each oIshp In ActiveDocument.InlineShapes         With oIshp             .ScaleHeight = PercentSize             .ScaleWidth = PercentSize         End With     Next oIshp

For Each oshp In ActiveDocument.Shapes         With oshp             .ScaleHeight Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue             .ScaleWidth Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue         End With     Next oshp End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (7694) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia della barra multifunzione di Word (Word 2007 e più tardi) qui:

Scalare la grafica in una macro.