Discussion :

[guigol]

Bonjour,

J'ai fait pas mal de forum sans trouver la réponse.

Je connais pas mal les macros sous excel, mais je début sur visio.

lorsque je dessine 2 formes classiques et que je les relie par un connecteur, je peux ajouter un texte a ce connecteur.
Hors, ce texte est toujours horizontal. Impossible de le faire tourner avec une poignée.

lorsque je selectionne le connecteur, je peux afficher la feuille shapesheet. et avoir accès dans la catégoerie "Text Transform" à la propriété TxtAngle.
De base, elle est à 0°, mais en la modifiant, on peut faire tourner le texte.

Cool.

Ce que j'aimerais, c'est me créer un bouton dans le ruban qui, après avoir sélectionné un connecteur possédant du texte me fasse faire une rotation à ce texte avec un pas de 45° ou de 90°

une fois la macro écrite, implémenter le bouton dans le ruban ne devrait pas etre très compliqué, mais c'est la macro qui me pose problème.

Une idée?

Par avance, merci pour votre aide.

[guigol]

J'ai trouva la réponse sur un autre forum:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub RotationTexte()
 
Dim shp As Shape
Dim ChaineValeur As String
Dim Nombrevaleur As Integer
 
On Error Resume Next
 
Set shp = ActiveWindow.Selection(1)
 
ChaineValeur = shp.Cells("TxtAngle").FormulaU
Nombrevaleur = Val(ChaineValeur) + 90
 
ChaineValeur = CStr(Nombrevaleur)
 
shp.Cells("TxtAngle").FormulaU = ChaineValeur & " deg"
 
End Sub