![Merlin99](./pictures/avatars/5b79c6f43998e.jpg)
TAK JSEM VYRESIL NASLEDOVNE MASAKR díky merline
Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Subcitovat
![5](./plugins/templates/wall_2C/images/smileys/5.gif)
Sub Test()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
s.Placement = xlMoveAndSize
Next
End Subcitovat