Ved udviklingen af en ansøgning eller en Microsoft Office makro ved hjælp af Visual Basic 6 , kan du ønsker at anvende en særlig rotation til InlineShapes . InlineShapes er objekter , såsom billeder eller Active X-kontroller , der er indlejret i et tekstdokument . Du kan rotere InlineShapes ved at redigere kildekoden på din ansøgning og skabe en ny procedure. Instruktioner
1
Åbn kildekoden på dit Visual Basic-program i enten en teksteditor såsom Windows Notesblok eller en dedikeret udviklingsværktøj .
2
Erklær en ny sub procedure navnet " RotateInlineShapeSub ()" ved at indsætte følgende erklæring i din ansøgning kildekode.
sub RotateInlineShapeSub ()
3
Definer de variabler , der kræves af den sub procedure ved at indsætte følgende kodestump efter sub erklæring erklæring : Hej
Dim inline som InlineShapeDim tempshape som ShapeDim ActDoc som DocumentSet ActDoc = ActiveDocument
4
Kopier og indsæt følgende kodestump efter variabelerklæring at give dit program til at konvertere InlineShapes til regulære former : Hej
for Each inline I ActDoc.InlineShapesinline.ConvertToShapeNext
Visual Basic kan ikke direkte rotere InlineShapes , hvilket forklarer, hvorfor skal du først konvertere dem til former.
5.
Indsæt følgende kodestykke lige efter den foregående til at anvende en rotation til figurerne. Udskift om nødvendigt "180" med en anden rotation vinkel.
For Each tempshape I ActDoc.Shapestempshape.IncrementRotation 180Next
6
Kopier og indsæt følgende kodestump efter den foregående en til at konvertere figurerne tilbage i InlineShapes igen.
for Each tempshape i DocThis.Shapestempshape.ConvertToInlineShapeNext
7
Indsæt følgende kodestump , hvis du vil have din ansøgning til at vise en bekræftelsesmeddelelse . Erstat " InlineShape roteret " med en anden bekræftelsesmeddelelse , hvis du ønsker
MsgBox " InlineShape roteret "
8
Luk Visual Basic sub procedure ved at skrive følgende erklæring . :
End sub
9
Udfør sub procedure ved at indsætte følgende opkald erklæring på det punkt, hvor du vil have dit program til at anvende rotationen : Hej
Ring RotateInlineShapeSub ( )
10
Gem din fil.