Ved utvikling av et program eller en Microsoft Office makro ved hjelp av Visual Basic 6 , kan det være lurt å bruke en bestemt rotasjon til InlineShapes . InlineShapes er objekter , for eksempel bilder eller Active X- kontroller som er bygd inn i et tekstdokument . Du kan rotere InlineShapes ved å redigere kildekoden til applikasjonen din og lage en ny prosedyre . Instruksjoner
en

Åpne kildekoden til Visual Basic-programmet i enten en tekst editor som Windows Notepad eller en dedikert utviklingsverktøy .
2

Erklærer en ny sub prosedyre heter " RotateInlineShapeSub ( )" ved å sette inn følgende uttalelse i programmets kildekode.

sub RotateInlineShapeSub ( )
3

Definer variablene som trengs av delprosedyre ved å lime inn følgende kode etter sub erklæringen uttalelse:

Dim inline Som InlineShapeDim tempshape Som ShapeDim ActDoc Som DocumentSet ActDoc = ActiveDocument
4

Kopier og lim inn følgende kode etter variabeldeklarasjon å tillate programmet å konvertere InlineShapes til vanlige former : en

Hver inline i ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic kan ikke direkte rotere InlineShapes , noe som forklarer hvorfor må du først konvertere dem til former.
5

Sett inn følgende kode rett etter den forrige å bruke en rotasjon til figurene . Om nødvendig , erstatte " 180 " av en annen rotasjon vinkel.

Hver tempshape I ActDoc.Shapestempshape.IncrementRotation 180Next
6

Kopier og lim inn følgende kode etter den forrige en å konvertere figurene tilbake til InlineShapes igjen .

Hver tempshape i DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Sett inn følgende kode hvis du vil at programmet skal vise en bekreftelsesmelding . Erstatt " InlineShape rotert " med en annen bekreftelse , hvis du ønsker

MsgBox " InlineShape rotert "
8

Lukk Visual Basic delprosedyre ved å skrive følgende uttalelse . :

End sub ​​
9

Utfør delprosedyre ved å sette inn følgende samtale uttalelse på det punktet der du vil at programmet skal bruke rotasjon:

ring RotateInlineShapeSub ( )
10

Lagre filen .