Quando si sviluppa un'applicazione o una macro di Microsoft Office con Visual Basic 6 , si consiglia di applicare una rotazione specifica per InlineShapes . InlineShapes sono oggetti , ad esempio immagini o controlli Active X , che sono incorporati in un documento di testo . È possibile ruotare InlineShapes modificando il codice sorgente dell'applicazione e la creazione di una nuova procedura . Istruzioni
1

aprire il codice sorgente dell'applicazione di Visual Basic sia in un editor di testo come Blocco note di Windows o di un tool di sviluppo dedicato.
2

dichiarare una nuova procedura di sub denominato " RotateInlineShapeSub ( ) " inserendo la seguente istruzione nel codice sorgente dell'applicazione.

sub RotateInlineShapeSub ( )
3

Definire le variabili necessarie per la procedura sub incollando il seguente frammento di codice dopo l'istruzione secondaria dichiarazione :

Dim linea come InlineShapeDim tempshape Come ShapeDim ActDoc Come DocumentSet ActDoc = ActiveDocument
4

Copia e incolla il seguente frammento di codice dopo la dichiarazione di variabile per permettere al vostro programma per convertire InlineShapes in forme regolari :

Ogni inline In ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic non può ruotare direttamente InlineShapes , il che spiega perché è necessario prima convertirli in forme.
5

Inserire il seguente frammento di codice subito dopo il precedente di applicare una rotazione alle forme . Se necessario, sostituire "180 " con un angolo di rotazione diverso .

Ogni tempshape In ActDoc.Shapestempshape.IncrementRotation 180Next
6

Copia e incolla il seguente frammento di codice dopo la precedente uno per convertire le forme di nuovo in InlineShapes nuovo.

Ogni tempshape In DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Inserire il seguente frammento di codice , se si desidera che l'applicazione per visualizzare un messaggio di conferma . Sostituire " ruotato InlineShape " con un messaggio di conferma diverso , se lo si desidera

MsgBox " ruotato InlineShape "
8

chiudere il procedimento di sub di Visual Basic , digitare la seguente dichiarazione . :

End sub ​​
9

eseguire la procedura sub inserendo la seguente dichiarazione chiamata nel punto in cui si desidera che il programma per applicare la rotazione :

chiamata RotateInlineShapeSub ( ) economici 10

salvare il file.