Es posible que tenga la necesidad de escalar los gráficos de su documento de forma rutinaria en un cierto porcentaje. El uso de los menús para realizar la escala puede resultar tedioso, por lo que es posible que desee realizar la escala mediante una macro que pueda asignar a un botón de la barra de herramientas o una tecla de método abreviado. La siguiente macro manejará muy bien el escalado:

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 primero solicita un porcentaje por el cual desea escalar la imagen seleccionada, ofreciendo 75 (75%) como valor predeterminado. Cuando especifica un porcentaje, la macro comprueba si el gráfico seleccionado es un gráfico en línea o flotante. La razón para hacer esto es que la especificación del objeto es diferente en cada caso, así como también la forma en que se especifica la escala. Los objetos en línea pertenecen a la colección InlineShapes, mientras que los objetos flotantes se establecen mediante el objeto ShapeRange.

Si desea cambiar el tamaño de todos los gráficos en su documento en el mismo porcentaje, entonces solo necesita modificar la macro anterior para que recorra cada uno de los gráficos en línea y luego cada uno de los gráficos flotantes.

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: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (7694) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Scaling_Graphics_in_a_Macro [Scaling Graphics in a Macro].