Get the group of shapes properties(height, width, top, left, right, bottom)

[LalitPandey87]

Hi Experts,

I have used some shapes in a worksheet and grouped it named Group 1.
Now how can i get the height, widht , top, left, right, bottom values of Gropu 1.

Thanx in Advance.

[Admin]

Hi,

This would give you


Sub kTest()

Dim objGrp As Object

Set objGrp = Worksheets("Sheet1").Shapes("Group 1")'<< adjust the sheet,shape(group) name

With objGrp
Debug.Print "Height:" & .Height
Debug.Print "Top:" & .Top
Debug.Print "Width:" & .Width
Debug.Print "Left:" & .Left
End With

End Sub

[LalitPandey87]

Thanx for this useful function.
Working!
:cool: