Open de source code van uw Visual Basic-toepassing in een van beide een teksteditor zoals Windows Kladblok of een speciaal instrument voor ontwikkeling . Kopen van 2

Verklaar een nieuwe sub procedure genaamd " RotateInlineShapeSub ( ) " door het invoegen van de volgende verklaring in van uw toepassing broncode .

sub RotateInlineShapeSub ( )
3

Definieer de variabelen die nodig zijn door de sub procedure door het volgende stukje code na de sub declaratiestatement plakken :

Dim inline
Zoals InlineShapeDim tempshape Zoals ShapeDim ActDoc Zoals DocumentSet ActDoc = ActiveDocument

Kopieer 4 en plak de volgende code snippet na de variabele declaratie om je programma te InlineShapes zetten in reguliere vormen :

voor Elke inline In ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic kan niet direct draaien InlineShapes , wat verklaart waarom je ze eerst moet omzetten in vormen .
5

Plaats het volgende stukje code direct na de vorige om een rotatie van toepassing op de vormen . Eventueel vervangen " 180 " door een andere draaihoek .

Voor Elke tempshape In ActDoc.Shapestempshape.IncrementRotation 180Next

Copy 6 en plak de volgende code snippet na de vorige een om de vormen weer terug te zetten in InlineShapes .

voor Elke tempshape In DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Plaats de volgende code snippet als u wilt dat uw toepassing om een ​​bevestigingsbericht weer te geven . Vervang " InlineShape gedraaid " met een andere bevestiging , indien u dat wenst

MsgBox " InlineShape gedraaid "
8

Sluit de Visual Basic sub procedure door het intikken van de volgende verklaring . :

End Sub
9

Voer de sub procedure door het invoegen van de volgende oproep verklaring op het punt waar u uw programma aan de rotatie van toepassing wilt :

call RotateInlineShapeSub
( ) op Twitter 10

Sla uw bestand .