IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    février 2013
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations forums :
    Inscription : février 2013
    Messages : 61
    Points : 48
    Points
    48
    Par défaut Récuperer la valeur de l'angle du texte d'un connecteur
    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.

  2. #2
    Membre du Club
    Homme Profil pro
    Inscrit en
    février 2013
    Messages
    61
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations forums :
    Inscription : février 2013
    Messages : 61
    Points : 48
    Points
    48
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 10
    Dernier message: 26/08/2015, 15h39
  2. Réponses: 1
    Dernier message: 18/02/2010, 11h38
  3. Réponses: 2
    Dernier message: 09/11/2007, 10h18
  4. Récuperer une valeur dans un fichier texte
    Par sucrepop dans le forum Langage
    Réponses: 6
    Dernier message: 05/06/2007, 15h01
  5. Réponses: 1
    Dernier message: 02/12/2005, 05h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo