|
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 .
|
