Bonjour à tous
Existe-til un moyen de tourner du texte de 180 degré par par aligment par son centre.
Au début de mon code je dois afficher le texte à partir de l'angle d'une ligne et j'utilise l'alignement Top Center.
Mais il arrive que le texte s'affiche à l'envers et je ne réussi pas à effacer le texte et le refaire dessiner exactement à la même place mais tourné sur lui même de 180 degré.
J'ai essayé de modifié les type d'alignement mais ca fais déplacer le texte, chose que je ne veux pas.
merci de votre aide
textString = mesure qui sera afficher dans le fichier
insertionPoint = coordonnée qui s'affiche au centre de la ligne sélectionne par l'utilisateur
Angle = Angle de la ligne sélectionner par l'utilisateur
Code :
- Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
- textObj.Alignment = acAlignmentBottomCenter
- textObj.TextAlignmentPoint = alignmentPoint
- textObj.Rotation = Angle
- textObj.Alignment = acAlignmentBottomCenter
- ActiveDocument.Regen acActiveViewport
|