Beim Aufzeichnen des Vorgangs mit dem Makrorekorder wird leider nichts aufgezeichnet und einen Befehl wie ActiveShape scheint es nicht zu geben.
Gruß, Jogi
und einen Befehl wie ActiveShape scheint es nicht zu geben.
Es gibt aber "ActiveChart" und ein Makro läßt sicher dem Diagramm auch zuweisen. (BeiKlick-Ereignis)
Gruß
Kawensmann
Sub macro_zuweisen()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.OnAction = "MyMacro"
Next shp
End Sub
un dann im
Sub MyMacro die genauen Änderungen durchführen.
Im Beispiel wird die Höhe auf 123 gesetzt.
Sub MyMacro()
ActiveSheet.Shapes(Application.Caller).Height = 123
End Sub
mfG
Ingo Christiansen