En el desarrollo de una aplicación o una macro de Microsoft Office mediante Visual Basic 6, es posible que desee aplicar una rotación específica a InlineShapes . InlineShapes son objetos , como imágenes o controles Active X , que están incrustados en un documento de texto. Puede girar InlineShapes editando el código fuente de su aplicación y la creación de un nuevo procedimiento. Instrucciones
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 .