Coordonnees d'un shape

[bernardrustrel]

Bonjour

Est il possible apres avoir selectionner un "Shape" (en l'occurence une ligne )d'obtenir par macro ses coordonnées (DebX, DebY, FinX et Fin Y). Il va de soi que ces dernieres contribue initialement à dessiner cet même "Shape"

Merci par avance
Cordialement

 

[Roland_M]

Re : Coordonnees d'un shape

bonjour

tu vas côté code de la feuille
tu crées un sub exemple Sub Essai()

et dans ce Sub tu tapes par exemple Shapes(1)
et au moment ou tu rajoute le(.) donc comme ceci Shapes(1).
tu verras apparaître une liste des possibilités à rajouter après ce point
exemple Shapes(1).Width

 

[Guest]

Re : Coordonnees d'un shape

bonjour,
Bonjour Roland😉
voici une petite macro à lancer après sélection de la ligne:

Sub CoordonnéesLigne()
    If TypeName(Selection) = "Line" Then
        With Selection
        MsgBox " Coordonnées de la ligne: " & .Name & vbCrLf _
                & String(50, "-") & vbCrLf _
                & "X1 = " & .Left & vbCrLf _
                & "Y1 = " & .Top & vbCrLf _
                & "X2 = " & .Left + .Width & vbCrLf _
                & "Y2 = " & .Top + .Height & vbCrLf _
                & String(50, "-") & vbCrLf _
                & "Largeur :" & .Width & vbCrLf _
                & "Hauteur :" & .Height
        End With
    End If
End Sub

A+