Sub Aligne_Shapes()
For Each Obj In ActiveSheet.Shapes
With Obj.TopLeftCell
col = 1 'alignement sur la colonne A
rw = .Row
addr1 = Cells(rw, col).address
End With
Obj.Top = Range(addr1).Top
Obj.Left = Range(addr1).Left
Obj.Height = Range(addr1).Height
Obj.Width = Range(addr1).Width
Next
End Sub
Sub Aligne_Shapes_2()
For Each obj In ActiveSheet.Shapes
x = Left(obj.Name, 5)
If x = "Group" Then
For Each ob In obj.GroupItems
' y = ob.Name
ob.Left = obj.Left
Next
End If
Next
End Sub