Lorsque vous développez une application ou une macro de Microsoft Office à l'aide de Visual Basic 6, vous pouvez appliquer une rotation spécifique à InlineShapes . InlineShapes sont des objets , tels que des images ou des contrôles Active X , qui sont incorporés dans un document texte. Vous pouvez faire pivoter InlineShapes en éditant le code source de votre demande et la création d'une nouvelle procédure. Instructions
1

ouvrir le code source de votre application Visual Basic dans un éditeur de texte comme un outil de développement dédié Bloc-notes Windows ou .
2

Déclarez une nouvelle procédure sub nommé " RotateInlineShapeSub ()" en insérant la déclaration suivante dans le code source de votre application.

sous RotateInlineShapeSub ()
3

Définissez les variables requises par la procédure sous en collant le bout de code suivant après la déclaration de sous- déclaration :

inline As InlineShapeDim tempshape Comme ShapeDim ActDoc Comme DocumentSet ActDoc = ActiveDocument
4

Copier et coller l'extrait de code suivant après la déclaration de variable pour permettre à votre programme pour convertir InlineShapes dans des formes régulières :

pour chaque ligne dans ActDoc.InlineShapesinline.ConvertToShapeNext

Visual Basic ne peut pas tourner directement InlineShapes , ce qui explique pourquoi vous devez d'abord les convertir en Formes.
5

Insérez le fragment de code suivant juste après la précédente pour appliquer une rotation aux formes . Si nécessaire, remplacer "180" par un angle de rotation différent .

Chaque tempshape En ActDoc.Shapestempshape.IncrementRotation 180Next
6

Copiez et collez l'extrait de code suivant après le précédent un pour convertir les formes de nouveau dans InlineShapes nouveau.

Chaque tempshape En DocThis.Shapestempshape.ConvertToInlineShapeNext
7

Insérez le bout de code qui suit si vous voulez que votre application affiche un message de confirmation . Remplacer " tourné InlineShape " avec un message de confirmation différent , si vous souhaitez

MsgBox " tourné InlineShape "
8

fermer le sous procédure Visual Basic en tapant l'instruction suivante . : Photos

End Sub
9

exécuter la procédure sous en insérant l'instruction d'appel suivant à l'endroit où vous voulez que votre programme pour appliquer la rotation :

appel RotateInlineShapeSub ( )
10

Enregistrez votre fichier .