Positionner des "SHAPES" sur une feuille de calcul

Bonjour, Je veux inclure une forme sur ma feuille Excel. Je crée une macro ce qui donne : ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 1346.8220472441, _ 411.2288188976, 1432.62708661...

Macros and VBA

HansVogelaar

Jan 16, 2022

Rosifoncé

Par exemple:

Sub Macro1()
    Dim X1 As Single
    Dim Y1 As Single
    Dim X2 As Single
    Dim Y2 As Single
    Dim shp As Shape
    With Range("B2")
        X1 = .Left
        Y1 = .Top
    End With
    With Range("D4")
        X2 = .Left + .Width
        Y2 = .Top + .Height
    End With
    Set shp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X1, Y1, X2, Y2)
    shp.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Résultat:

Sub Macro1() Dim X1 As Single Dim Y1 As Single Dim X2 As Single Dim Y2 As Single Dim shp As Shape With Range("B2") X1 = .Left Y1 = .Top End With With Range("D4") X2 = .Left + .Width Y2 = .Top + .Height End With Set shp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X1, Y1, X2, Y2) shp.Line.EndArrowheadStyle = msoArrowheadTriangle End Sub

Forum Discussion

Positionner des "SHAPES" sur une feuille de calcul