Sub Makro1()
ActiveSheet.Shapes.AddLine 220, 280, 220, 280 + Application.CentimetersToPoints(5)
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
1 cm = 28,35 pt
was hältst du von Application.CentimetersToPoints(5) ?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Um mit Excel zu zeichnen und Linien über VBA zu erstellen, kannst Du den folgenden Schritten folgen:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul, indem Du mit der rechten Maustaste auf "VBAProject (Deine Datei)" klickst und "Einfügen" > "Modul" wählst.
Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:
Sub Makro1()
ActiveSheet.Shapes.AddLine 220, 280, 220, 280 + Application.CentimetersToPoints(5)
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.
So zeichnest Du eine senkrechte Linie in Excel, die 5 cm lang ist, beginnend vom Punkt P(220,280).
Fehler: Das Makro funktioniert nicht.
Fehler: Die Linie erscheint nicht an der erwarteten Stelle.
Falls Du nicht mit VBA zeichnen möchtest, kannst Du die integrierten Zeichnungswerkzeuge in Excel verwenden. Gehe dazu auf die Registerkarte "Einfügen", wähle "Formen" und dann die gewünschte Linie aus. Damit kannst Du auch manuell in Excel zeichnen.
Hier sind einige Beispiele, wie Du mit Excel zeichnen kannst:
Horizontale Linie zeichnen:
Sub HorizontaleLinie()
ActiveSheet.Shapes.AddLine 100, 200, 300, 200
End SubDiagonal verbinden:
Sub DiagonaleLinie()
ActiveSheet.Shapes.AddLine 100, 100, 300, 300
End SubMit diesen Beispielen kannst Du verschiedene Linien in Excel zeichnen und anpassen.
Application.CentimetersToPoints, um sicherzustellen, dass die Längen in Zentimetern korrekt in Punkte umgerechnet werden.AddLine Methode, um unterschiedliche Linienarten und -längen zu zeichnen.1. Wie kann ich die Farbe der gezeichneten Linie ändern?
Um die Farbe einer Linie zu ändern, musst Du die Line.ForeColor.RGB Eigenschaft verwenden. Beispiel:
Sub LinieMitFarbe()
Dim Linie As Shape
Set Linie = ActiveSheet.Shapes.AddLine(100, 100, 200, 200)
Linie.Line.ForeColor.RGB = RGB(255, 0, 0) ' Rot
End Sub2. Kann ich die Dicke der Linie anpassen?
Ja, Du kannst die Dicke der Linie über die Line.Weight Eigenschaft anpassen. Beispiel:
Linie.Line.Weight = 2 ' Dicke der LinieSo kannst Du Deine Zeichnungen in Excel weiter anpassen und gestalten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen