Codes für Linie(Form) mit abgerundeten Ecken
27.01.2018 12:16:37
Volker
Ich bin neu hier in diesem Forum und glaub' schon dass ihr mir helfen könnt.
Ich will eine Linie mit beidseitig abgerundeten Enden erzeugen.
Hiermit klappt es nicht.
Makro1()
ActiveSheet.Shapes.AddConnector(msoConnectorStraight,160,60,370,70).Name = "Strich"
ActiveSheet.Shapes("Strich").Line.Visible = True
ActiveSheet.Shapes("Strich").Line.Weight = 40
ActiveSheet.Shapes("Strich").Line.BeginArrowheadLength = msoArrowheadShort
ActiveSheet.Shapes("Strich").Line.BeginArrowheadStyle = msoArrowheadOval
ActiveSheet.Shapes("Strich").Line.BeginArrowheadWidth = msoArrowheadNarrow
ActiveSheet.Shapes("Strich").Line.EndArrowheadLength = msoArrowheadShort
ActiveSheet.Shapes("Strich").Line.EndArrowheadStyle = msoArrowheadOval
ActiveSheet.Shapes("Strich").Line.EndArrowheadWidth = msoArrowheadNarrow
End Sub
....und mit dem Makro-Recorder erst recht nicht.
Liebe Grüße und ein schönes Wochenende.
Volker