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

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.

Hi,

This would give you

Code:

---

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

---

Thanx for this useful function.
Working!
:cool: