Ako Otočenie InlineShape vo VB6

Pri vývoji aplikácie alebo makrá Microsoft Office pomocou jazyka Visual Basic 6 , možno budete chcieť použiť špecifickú rotáciu InlineShapes . InlineShapes sú objekty , ako sú obrázky alebo ovládacích prvkoch Active X. , ktoré sú vložené do textového dokumentu . Môžete otáčať InlineShapes úpravou zdrojového kódu vašej aplikácie a vytvorenie nového postupu . Pokyny dovolená 1

Otvorte zdrojový kód vašej aplikácie Visual Basic buď v textovom editore , napríklad Windows Poznámkový blok alebo vyhradenej vývojový nástroj .
2

deklarovať nový čiastkové postup s názvom " RotateInlineShapeSub ( ) " vložením nasledujúce vyhlásenie v zdrojovom kóde vašej aplikácie .

Sub RotateInlineShapeSub ( )
3

Definujte premenné potrebné čiastkové riadenie vložením nasledujúcej fragment kódu po príkaze sub vyhlásenie :

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

skopírujte a vložte nasledujúci fragment kódu po deklarácie premenné , aby váš program pre prevod InlineShapes do pravidelných tvarov : klipart

každý vkladaný V ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic nemožno priamo otáčať InlineShapes , čo vysvetľuje , prečo je potrebné najprv previesť do tvary .
5

vložte nasledujúci fragment kódu ihneď po predchádzajúcej uplatňovať rotáciu tvarov . Ak je to nutné, vymeňte " 180 " iným uhlom natočenia .

Každý tempshape V ActDoc.Shapestempshape.IncrementRotation 180Next
6

Skopírujte a vložte nasledujúci fragment kódu po predchádzajúcej kto previesť tvary späť do InlineShapes znova .

každý tempshape V DocThis.Shapestempshape.ConvertToInlineShapeNext
7

vložte nasledujúci fragment kódu , ak chcete , aby vaše aplikácie sa zobrazí potvrdzovacie hlásenie . Nahradiť " InlineShape otáčať " s inou potvrdzovacie správy , ak si prajete

MsgBox " InlineShape otáčať "
8

Zatvorte procedúru Sub jazyka zadaním nasledujúceho príkazu . :

End Sub
9

Spustiť procedúru Sub vložením nasledujúceho príkazu volania v mieste , kam chcete program použiť otočenie :

Call RotateInlineShapeSub ( )
10

Uložte súbor .

• Predchádzajúca strana: Visual Basic Gmail Nepodarilo sa pripojiť k serveru 
• Ďalšia strana: Ako si vyrobiť Stavový riadok na Váš webový prehliadač s VB6