Office: (Office 365) Teilweise abgerundetes Rechteck mit VBA

Moin ihr Lieben,

als nur Gelegenheits-Nutzer von VBA bräuchte ich mal eure Hilfe, da alle Vorschläge von ChatGPT nicht funktionieren.

Ich möchte per VBA ein Rechteck zeichnen, welches links zwei spitze Ecken und rechts zwei abgerundete Ecken hat. Breite, Höhe und Eckenradius der rechten Ecken werden aus Zellen (z.B. A1, A2 und A3) ausgelesen.

Geht das? Und wenn ja, wie?
Vielen Dank im Voraus für eure Hilfe!

 

Hi,

sicher geht das. Makrorecorder aktivieren --> Menü einfügen --> Formen --> Rechtecke --> oben abgerundetes Rechteck auswählen, auf das Blatt zeichnen und anschließend in die gewünschte Richtung drehen. Makrorecorder stoppen....
Dem Shape im Code dann noch Die Breite und Höhe aus den entsprechenden Zellwerten zuweisen.
Der Code könnte so aussehen:

Code:

Sub ZeichneMeinRechteck()
On Error Resume Next
ActiveSheet.Shapes("MeinRechteck").Delete
Err.Clear
ActiveSheet.Shapes.AddShape(msoShapeRound2SameRectangle, 360, 61.5, 297.75, 135).Select
   With Selection
    .ShapeRange.IncrementRotation 90
    .Width = Cells(1, 1)
    .Height = Cells(2, 1)
    .Top = 150
    .Name = "MeinRechteck"
    End With
cells(1,1).select
End Sub

Höhe und Breite wird aus A1 und A2 entnommen....

 

Aahh,

OBEN abgerundetes Rechteck!
Das Ding war mir noch nie aufgefallen.
Ja, damit sollte es gehen. Probiere ich nachher gleich aus.

Vielen Dank, Ralf!

 

Hat geklappt!
Danke nochmals.