Bei der Entwicklung einer Anwendung oder ein Microsoft Office- Makros mit Visual Basic 6 , möchten Sie vielleicht eine spezifische Drehung um InlineShapes gelten . InlineShapes sind Objekte , wie Bilder oder Active -X-Controls , die in einem Text -Dokument eingebettet werden . Sie können InlineShapes , indem Sie den Quellcode Ihrer Anwendung und die Schaffung eines neuen Verfahrens zu drehen. Anleitung
1

Öffnen Sie den Quellcode Ihrer Visual Basic-Anwendung entweder in einem Texteditor wie Windows Notepad oder einem dedizierten Entwicklungs-Tool .
2

Deklarieren Sie eine neue Sub-Prozedur Namen " RotateInlineShapeSub ()" , indem Sie die folgende Anweisung in Ihrer Anwendung Quellcode.

Sub RotateInlineShapeSub ( )
3

Definieren Sie die Variablen, die von der Sub-Prozedur erforderlich durch einfügen der folgende Code-Schnipsel nach dem sub Deklarationsanweisung :

Dim Inline Wie InlineShapeDim tempshape Wie ShapeDim ActDoc Wie DocumentSet ActDoc = ActiveDocument
4

Kopieren Sie den folgenden Code-Snippet , nachdem die Variablendeklaration , damit Ihr Programm InlineShapes regelmäßig Formen zu konvertieren:

For Each inline in ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic kann nicht direkt drehen InlineShapes , was erklärt, warum müssen Sie sich zunächst wandeln sie in Formen.
5

Fügen Sie den folgenden Code-Snippet direkt nach der vorherigen , eine Drehung um die Formen gelten . Falls notwendig, ersetzen "180" durch einen anderen Drehwinkel .

For Each tempshape In ActDoc.Shapestempshape.IncrementRotation 180Next
6

Kopieren Sie den folgenden Code-Schnipsel nach dem vorherigen ein , um die Formen zurück konvertieren in InlineShapes wieder .

For Each tempshape in DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Fügen Sie den folgenden Code-Snippet , wenn Sie Ihre Anwendung , um eine Bestätigungsmeldung angezeigt werden soll . Ersetzen Sie " InlineShape gedreht " mit einer anderen Bestätigung , wenn Sie

MsgBox " InlineShape gedreht " wünschen
8

Schließen Sie den Visual Basic Sub-Prozedur , indem Sie die folgende Anweisung . :

End Sub
9

Führen Sie den Sub-Prozedur , indem Sie den folgenden Aufruf -Anweisung an der Stelle , wo Sie wollen Ihr Programm , um die Drehung anwenden :

Anruf RotateInlineShapeSub ( )
10

Speichern Sie Ihre Datei .