1
Abrir el código fuente de la aplicación de Visual Basic , ya sea en un editor de texto como el Bloc de notas de Windows o una herramienta de desarrollo dedicado.
2
Declarar un nuevo procedimiento sub llamado " RotateInlineShapeSub ()" insertando la siguiente declaración en el código fuente de la aplicación.
sub RotateInlineShapeSub ()
3
Definir las variables necesarias para el procedimiento sub pegando el siguiente fragmento de código después de la instrucción de declaración substitución:
línea As InlineShapeDim tempshape Como ShapeDim ActDoc Como DocumentSet ActDoc = ActiveDocument
4
Copia y pega el siguiente fragmento de código después de la declaración de variables para permitir que su programa para convertir InlineShapes en formas regulares :
para cada línea En ActDoc.InlineShapesinline.ConvertToShapeNext
Visual Basic no puede girar directamente InlineShapes , lo que explica por qué primero se convierten en formas.
5
Inserte el siguiente fragmento de código justo después de la anterior para aplicar un giro a las formas. Si es necesario , reemplace " 180 " por un ángulo de rotación diferente.
For Each tempshape En ActDoc.Shapestempshape.IncrementRotation 180Siguiente
6
Copie y pegue el siguiente fragmento de código después de la anterior uno para convertir las formas de nuevo en InlineShapes nuevo.
For Each tempshape En DocThis.Shapestempshape.ConvertToInlineShapeNext
7
Inserte el siguiente fragmento de código si desea que la aplicación para mostrar un mensaje de confirmación . Reemplace " girar InlineShape " con un mensaje de confirmación diferente, si lo desea
MsgBox " girar InlineShape "
8
Cierre el procedimiento Sub de Visual Basic , escriba la siguiente instrucción . :
End sub
9
Ejecutar el procedimiento sub insertando la siguiente instrucción de llamada en el punto donde desea que el programa para aplicar la rotación :
Call RotateInlineShapeSub ( )
10
Guarde el archivo .