möchte alle Shapes die sich in einer Tabelle befinden per Makro in den Hintergrund setzen. Deshalb habe ich mir folgendes Makro zurechtgestrickt, leider funzt es nicht. Wisst Ihr Rat?
Hier der Code:
Sub shape()
Dim shp As shape
For Each shp In Sheets("Tabelle1").Shapes
Selection.ShapeRange.ZOrder msoSendToBack
Next shp
End Sub
Danke für Eure Hilfe
Marco