Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Codes für Linie(Form) mit abgerundeten Ecken

Forumthread: Codes für Linie(Form) mit abgerundeten Ecken

Codes für Linie(Form) mit abgerundeten Ecken
27.01.2018 12:16:37
Volker
Guten Tag liebes Forum.
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Codes für Linie(Form) mit abgerundeten Ecken
27.01.2018 12:20:32
Herbert
Hallo Volker,
msoShapeRoundedRectangle
Probiers mal mit dem Makrorekorder.
Servus
AW: Codes für Linie(Form) mit abgerundeten Ecken
27.01.2018 19:17:17
Volker
Hallo Herbert
Vielen Dank.
ja das mit dem Rectangle funktioniert schon, aber ich will halt speziell so eine Linie mit runden Enden
einsetzen. Wenn ich im Tabellenblatt die Form formatiere kann ich die Linie unter Abschlußtyp = Rund
so einstellen dass auch beide Enden gerundet sind. Diese Funktion möchte ich als Codes in meinem Programm einbauen.
Viele Grüße
Volker
Anzeige
AW: Codes für Linie(Form) mit abgerundeten Ecken
28.01.2018 10:12:23
Herbert
Hallo Volker,
mit "Selection.ShapeRange.Adjustments.Item(1) = 0.38933" kannst Du die Größe der Rundung bestimmen!
Sub Makro1()
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 366.75, 60, 303.75, 192).Select
Selection.ShapeRange.Adjustments.Item(1) = 0.38933
End Sub
Servus
P.S.: Den Code habe ich übrigens mit dem Makrorekorder aufgezeichnet. Der ist manchmal sehr hilfreich!
Anzeige
AW: Codes für Linie(Form) mit abgerundeten Ecken
28.01.2018 17:07:12
Volker
Hallo Herbert
Echt Supi
Manchmal ist man eben total auf etwas fixiert und sieht dabei das andere außenherum nicht.
Danke
Viele Grüße
Volker
AW: Codes für Linie(Form) mit abgerundeten Ecken
28.01.2018 17:53:57
Mullit
Hallo,
noch als Tipp, das Selektieren kannste immer rausschmeißen, mit der .AddShape-Methode hast Du direkt ein Shape-Objekt am Wickel....
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 366.75, 60, 303.75, 192).Adjustments.Item(1) = 0.38933

Gruß, Mullit
Anzeige
;
Anzeige

Infobox / Tutorial

Linien mit abgerundeten Ecken in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine Linie mit abgerundeten Enden in Excel zu erstellen, kannst Du die folgenden Schritte ausführen:

  1. Öffne Excel und wechsle in den VBA-Editor (Alt + F11).

  2. Erstelle ein neues Modul (Rechtsklick auf "VBAProject" > Einfügen > Modul).

  3. Füge den folgenden Code ein:

    Sub Makro1()
       ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 366.75, 60, 303.75, 192).Adjustments.Item(1) = 0.38933
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus (Alt + F8, wähle "Makro1" und klicke auf "Ausführen").

  5. Du solltest nun eine Form mit abgerundeten Ecken sehen.

Mit der Adjustments.Item(1)-Eigenschaft kannst Du die Größe der Rundung anpassen, um die gewünschten excel runde Ecken zu erzielen.


Häufige Fehler und Lösungen

  • Fehler: Die Linie wird nicht mit abgerundeten Enden angezeigt.

    • Lösung: Stelle sicher, dass Du die AddShape-Methode richtig verwendest und die richtige Form auswählst. Vergewissere Dich, dass der Typ msoShapeRoundedRectangle korrekt ist.
  • Fehler: Makro funktioniert nicht.

    • Lösung: Überprüfe, ob der Makro-Schutz in Excel deaktiviert ist. Gehe zu "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" > "Makroeinstellungen".

Alternative Methoden

Eine alternative Methode zur Erstellung von excel abgerundete Ecken ist die Verwendung des Makrorekorders. Dies kann Dir helfen, die genauen Schritte zu sehen, die Excel ausführt.

  1. Starte den Makrorekorder (Entwicklertools > Makro aufzeichnen).
  2. Erstelle eine Form mit abgerundeten Ecken manuell.
  3. Stoppe die Aufzeichnung und schaue Dir den generierten Code an.

Praktische Beispiele

Hier sind einige Beispiele, wie Du Linien mit abgerundeten Enden in verschiedenen Szenarien verwenden kannst:

  • Diagramme: Verwende abgerundete Linien, um die Lesbarkeit von Diagrammen zu verbessern.
  • Präsentationen: In Präsentationen können abgerundete Linien eine visuelle Auflockerung bieten.

Ein einfaches Beispiel für eine Linie mit abgerundeten Enden könnte so aussehen:

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 160, 60, 370, 70).Name = "Strich"
ActiveSheet.Shapes("Strich").Line.Weight = 40
ActiveSheet.Shapes("Strich").Line.BeginArrowheadStyle = msoArrowheadOval
ActiveSheet.Shapes("Strich").Line.EndArrowheadStyle = msoArrowheadOval

Tipps für Profis

  • Nutze die .Adjustments.Item(1)-Eigenschaft, um die Rundung präzise anzupassen.
  • Experimentiere mit verschiedenen Formen, um einzigartige Designs zu erstellen.
  • Wenn Du Linien mit excel Zellen Ecken abrunden möchtest, kannst Du auch die Zellen selbst formatieren, um ein einheitliches Design zu erzielen.

FAQ: Häufige Fragen

1. Wie kann ich die Rundungsgröße anpassen?
Du kannst die Rundung mit Adjustments.Item(1) einstellen. Je höher der Wert, desto runder wird die Ecke.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der Code sollte in den meisten Versionen von Excel funktionieren, die VBA unterstützen.

3. Kann ich auch andere Formen mit abgerundeten Ecken erstellen?
Ja, Du kannst jede Form verwenden, die in Excel verfügbar ist, und die Ecken anpassen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige