|
.....
Mit dem ShapeRange – Object bist du auf dem Holzweg. Damit werden nur Zeichnungsobjekte zusammengefasst um auf einen Schlag gemeinsame Eigenschaften zu ändern. Hattu aber nicht, sondern einfach nur .Shapes gegen .ShapeRange ausgetauscht – stimmts ? *)
Hättest du das getan (sry – wenn du das könntest), dann wäre dir vermutlich aufgefallen, dass die Codezeile For Each .... in .... durch eine Auflistung von Objekten (Shapes) laufen soll, die bei deinem Code .Shapes lautet. Der Punkt vor der Liste bedeutet, die hängt an einem übergeordneten Objekt.
Das wiederum deutet auf eine With (.... übergeordnetes Objekt) –Anweisung hin und wenn du den Code aus dem vorhergehenden Beitrag nicht verschlimmbessert hast, dann
steht dort immer noch einleitend With ThisWorkbook.Worksheets("Lists").
Und nun die bange Frage – hattu Shapes in "Lists" oder im anderen Tabellenblatt ?
hattu Shapes in "Lists" – hattu Treffer, sonst "Möhrchen"
*)PS – die Makroaufzeichnung Selection.ShapeRange.ShapeStyle = msoShapeStylePreset3
die ist schon korrekt, nur hier zeigt ShapeRange auf Selection, das kann sowohl 1 Zeichnungsobjekt als auch mehrere gleichzeitig selektierte sein
|