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!