Forum Discussion

Rosifoncé's avatar
Rosifoncé
Copper Contributor
Jan 16, 2022

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's avatar
    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:

Guardian_44's avatar
Guardian_44
Copper Contributor
Oct 18, 2022
Eigentlich wollte ich nur wissen welchen Wert die Konstante "msoConnectorStraight" hat, weil die Microsoft Hilfe es mir nicht anzeigt. Außerdem muss ich den Suchbegriff nach "F1" immer noch mal angeben, damit überhaupt etwas angezeigt wird. Und dieses Beispiel zeigt mir nicht, was hinter "X4) kommt "line" oder "select" oder gar nichts? Dafür aber eine neue Konstante "msoArrowheadTriangle".

Resources