Hallo,
von Josef(Danke!) habe ich folgende Sub, die die Shapegröße ändert.
Set shp = Sheets(1).Shapes("DeinShape")
shp.Width = 100
shp.Height = 25
Ist es möglich über Zellen die Größe zu bestimmen?
so ging es mit der Position, so würde ich es gerne für die Größenbestimmung machen:
Set sh = ActiveSheet.Shapes("32")
sh.Left = [aa36].Left
sh.Top = [aa36].Top
mfg