Tvoje neustále zarovnávanie obrázkov je stále variácia na použitie jedných a tých samých vlastností shapes (left, width, top, height). Toto je predsa naozaj trivialita:Sub Test()
Const Center As Single = 87
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Left = Center - sh.Width / 2
Next sh
End Subcitovat
Const Center As Single = 87
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Left = Center - sh.Width / 2
Next sh
End Subcitovat