När man utvecklar en applikation eller en Microsoft Office makro med Visual Basic 6 , kanske du vill använda en specifik rotation till InlineShapes . InlineShapes är objekt , till exempel bilder eller Active X-kontroller , som är inbäddade i ett textdokument . Du kan rotera InlineShapes genom att redigera källkoden för din ansökan och skapa ett nytt förfarande . Instruktioner
1
Öppna källkoden för Visual Basic-programmet antingen i en textredigerare som Anteckningar i Windows eller en dedikerad utvecklingsverktyg .
2
Deklarera en ny sub förfarande heter " RotateInlineShapeSub ( ) " genom att sätta följande uttalande i programmets källkod .
sub RotateInlineShapeSub ( ) Addera 3
Definiera variablerna behövs av sub förfarande genom att klistra in följande kodsträng efter sub deklarationsprogramsatsen :
Dim inline som InlineShapeDim tempshape som ShapeDim ActDoc som DocumentSet ActDoc = ActiveDocument
4
Kopiera och klistra in följande kodsträng efter variabeldeklaration att låta ditt program för att konvertera InlineShapes till regelbundna former :
för varje inline I ActDoc.InlineShapesinline.ConvertToShapeNext
Visual Basic kan inte direkt rotera InlineShapes , vilket förklarar varför du först måste konvertera dem till former.
5
Infoga följande kodavsnitt direkt efter den föregående för att tillämpa en rotation till formerna . Om det behövs , ersätt " 180 " med en annan vridningsvinkel .
För varje tempshape I ActDoc.Shapestempshape.IncrementRotation 180Next
6
Kopiera och klistra in följande kodsträng efter föregående en att omvandla formerna tillbaka in InlineShapes igen .
för varje tempshape i DocThis.Shapestempshape.ConvertToInlineShapeNext
7
Infoga följande kodavsnitt om du vill ha din ansökan att visa ett bekräftelsemeddelande . Ersätt " InlineShape roteras " med en annan bekräftelse , om du önskar
MsgBox " InlineShape roteras "
8
Stäng Visual Basic sub förfarande genom att skriva följande uttalande . :
End sub
9
Utför sub förfarande genom att sätta följande uppmaning uttalande vid den punkt där du vill att ditt program att tillämpa rotation :
Call RotateInlineShapeSub ( )
10
Spara din fil .
