Ao desenvolver uma aplicação ou uma macro do Microsoft Office usando o Visual Basic 6, você pode querer aplicar uma rotação específica para InlineShapes . InlineShapes são objetos, como imagens ou controles Active X , que são incorporados em um documento de texto. Você pode girar InlineShapes editando o código-fonte do seu aplicativo e criar um novo procedimento. Instruções
1

Abra o código-fonte do seu aplicativo Visual Basic em um editor de texto , como o Notepad do Windows ou uma ferramenta de desenvolvimento dedicado.
2

Declare um novo procedimento sub chamado " RotateInlineShapeSub ()" , inserindo a seguinte declaração no código-fonte do aplicativo.

sub RotateInlineShapeSub ()
3

Definir as variáveis ​​necessárias para o procedimento sub colando o seguinte trecho de código após a instrução sub declaração :

Dim linha Como InlineShapeDim tempshape Como ShapeDim ActDoc Como DocumentSet ActDoc = ActiveDocument
4

Copie e cole o seguinte trecho de código após o declaração da variável para permitir que seu programa para converter InlineShapes em formas regulares :

Para Cada linha Em ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic não pode rodar diretamente InlineShapes , o que explica por que você deve primeiro convertê-los em formas.
5

Insira o seguinte trecho de código logo após o anterior para aplicar uma rotação para as formas. Se necessário, substitua "180" por um ângulo de rotação diferente.

Para Cada tempshape Em ActDoc.Shapestempshape.IncrementRotation 180Next
6

Copie e cole o seguinte trecho de código depois que o anterior um para converter as formas de volta para InlineShapes novamente.

Para Cada tempshape Em DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Insira o seguinte trecho de código se você quiser que seu aplicativo para exibir uma mensagem de confirmação . Substituir " InlineShape rodado " com uma mensagem de confirmação diferente , se quiser

MsgBox " InlineShape rodado "
8

Feche o procedimento sub Visual Basic , digitando o seguinte comunicado. :

End Sub
9

Execute o procedimento sub inserindo a seguinte instrução de chamada no ponto onde você quer que seu programa para aplicar a rotação :

Chame RotateInlineShapeSub ( )
10

Salve o arquivo.