Potrebujem hromadne centrovať obrázky a klasické nástroje sú na to krátke.
36127_vzor.zip
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
RSS nejnovější články