prucommercialre.com


Escala gráfica en una macro

Usted puede tener una necesidad de ampliar de forma rutinaria gráficos de su documento en un determinado porcentaje. Utilizando las herramientas de cinta para hacer el escalamiento puede llegar cansado, por lo que puede hacer la escala utilizando una macro se puede asignar al botón de la barra de herramientas de acceso rápido o una tecla de acceso directo. La siguiente macro se encargará de hacer el escalado muy bien:

Sub PictSize ()
Dim PercentSize As Integer

PercentSize = InputBox ("Enter ciento de tamaño completo", _
"Cambiar el tamaño de imagen", 75)

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

La macro primero pregunta por un porcentaje en el que desea escalar la imagen seleccionada, ofreciendo 75 (75%) como el valor predeterminado. Cuando se especifica un porcentaje, la macro comprueba para ver si el gráfico seleccionado es una línea o un gráfico flotante. La razón para hacer esto es que la especificación objeto es diferente en cada caso, así como cómo se especifica la escala. Los objetos en línea pertenecen a la colección InlineShapes, mientras que los objetos flotantes se establecen con el objeto ShapeRange.

Si desea cambiar el tamaño de todos los gráficos en el documento en el mismo porcentaje, a continuación, sólo tiene que modificar la macro anterior para que los pasos a través de 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 Como InlineShape
OSHP Dim Como Forma

PercentSize = InputBox ("Enter ciento de tamaño completo", _
"Cambiar el tamaño de imagen", 75)

Para Cada oIshp En ActiveDocument.InlineShapes
Con oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Siguiente oIshp

Para Cada OSHP En ActiveDocument.Shapes
Con OSHP
Factor .ScaleHeight: = (PercentSize / 100), _
RelativeToOriginalSize: = msoCTrue
Factor .ScaleWidth: = (PercentSize / 100), _
RelativeToOriginalSize: = msoCTrue
End With
Siguiente OSHP
End Sub

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (7069) se aplica a Microsoft Word 2007, 2010, y 2013. Usted puede encontrar una versión de este consejo para el más viejo interfaz de menú de la Palabra aquí: Gráficos de escala en una macro.