guten morgen zusammen,
ich würde gerne in einem tabellenblatt alle objekte auf einmal makieren und zwar über vba.
hat jemand eine idee wie man das hinkriegt? hab mal im archiv nachgeschaut und mir mal folgendes gebastelt:
Dim shape As Object, aDyn() As Object, i%
i = 1
For Each shape In ActiveSheet.Shapes
ReDim Preserve aDyn(i)
aDyn(i) = shape
i = i + 1
Next
ActiveSheet.Shapes.Range(aDyn).Select
funktioniert aber leider nicht. da ich mich in vba schlecht auskenne wäre ich sehr dankbar für hilfe