Scaling Graphics in una macro

Si può avere la necessità di scalare regolarmente la grafica del documento di una certa percentuale. Utilizzando gli strumenti della barra multifunzione per fare la scala può ottenere faticoso, quindi si consiglia di fare la scala utilizzando una macro è possibile assegnare al pulsante barra di accesso rapido o ad un tasto di scelta rapida. La seguente macro si occuperà di fare la scala molto bene:

Sub PictSize ()
Dim PercentSize As Integer

PercentSize = InputBox ("Enter per cento di full size", _
"Resize Picture", 75)

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

La macro chiede in primo luogo per una percentuale con la quale si desidera ridimensionare l'immagine selezionata, offrendo 75 (75%) come predefinito. Quando si specifica una percentuale, la macro poi verifica se l'immagine selezionata è una linea o un elemento grafico mobile. La ragione di questa operazione è che la specifica dell'oggetto è diverso in ciascun caso, e come è specificato la scala. Gli oggetti incorporati appartengono alla collezione InlineShapes, mentre gli oggetti mobili vengono impostate utilizzando l'oggetto ShapeRange.

Se si desidera ridimensionare tutti gli elementi grafici nel documento della stessa percentuale, quindi è sufficiente modificare la macro sopra in modo che passi attraverso ciascuna delle immagini inline e poi ognuno della grafica galleggianti.

Sub AllPictSize ()
Dim PercentSize As Integer
Dim oIshp Come InlineShape
Oshp fioco come Shape

PercentSize = InputBox ("Enter per cento di full size", _
"Resize Picture", 75)

Per Ogni oIshp In ActiveDocument.InlineShapes
Con oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Successivo oIshp

Per ogni oshp In ActiveDocument.Shapes
Con oshp
Fattore .ScaleHeight: = (PercentSize / 100), _
RelativeToOriginalSize: = msoCTrue
Fattore .ScaleWidth: = (PercentSize / 100), _
RelativeToOriginalSize: = msoCTrue
End With
Successivo oshp
End Sub

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (7069) si applica a Microsoft Word 2007, 2010 e 2013. Potete trovare una versione di questo suggerimento per l'interfaccia del menu precedente di Word qui: Grafica di scala in una macro.