Rechtecke Anlegen, Ändern und Löschen
29.09.2005 07:36:05
Heiko
ich handle in Excel 2000 regelmäßig mit nachfolgenden Anweisung die Länge von
Rechtecken, lösche diese und setze sie wieder neu.
$$---------------------------------------------------------------------------$$
Workbooks(MAPPE_NAME).Worksheets("Übersicht").Rectangles.Delete
$$---------------------------------------------------------------------------$$
Workbooks(MAPPE_NAME).Worksheets("Übersicht").Rectangles.Add _
Top:=POS1.Top, Left:=POS1.Left, Height:=POS1.Height * Höhenfaktor, Width:=2
$$---------------------------------------------------------------------------$$
Workbooks(MAPPE_NAME).Worksheets("Übersicht").Rectangles(i).Width = BalkenLänge1
$$---------------------------------------------------------------------------$$
ABER in Excel 2003 funktioniert das nicht mehr. Es taucht aber auch keine Fehlermeldung auf.
Wie muss man das in Excel 2003 schreiben ?
Vielen Dank für Eure Hilfe.
Beste Grüße Heiko