benutze folgendes um eine Linie als Zeichnungsobjekt zu erzeugen
(Danke LVira und andere):
Option Explicit
Sub Einfuegen()
Dim R As Shape
With ActiveCell.Offset(0, 0)
Set R = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
.Left, .Top, .Width = 100, .Height)
End With
End Sub
Durch verändern von "Width" hab ich jetzt eine Linie, die mitsortiert wird - Shape in Linie ändern brachte mir nur eine zusätzliche Linie zum Rechteck - also hab ich hier nicht weiterprobiert.
Ich möchte jetzt noch die Stärke festlegen. Meine Versuche mit .Line.Weight und ähnlichem aus den VBA-Objekten bzw. der Hilfe brachten immer ein "Objekt unbekannt"
Also ist meine Frage, mit welcher Befehl verändere ich die Linienstärke ?
Danke
Wolfgang
Nochmals Dank auch an Steffan - Kommentare kopieren klappt jetz toll !