Find the height and width of an Excel shape

show_shape_dimensions_excel_vba.bas

Sub ShowShapeDimensions()

Dim l As Long
Dim t As Long
Dim h As Long
Dim w As Long

Dim Sh As Shape
'----------------------------------------------
    For Each Sh In ActiveSheet.Shapes
        If Sh.TopLeftCell.Address(0, 0) = "B2" Then
            l = Sh.Left
            t = Sh.Top
            h = Sh.Height
            w = Sh.width
        End If
    Next Sh

'Return Dimensions
    ActiveSheet.Range("A1") = "Left: " & l
    ActiveSheet.Range("A2") = "Top: " & t
    ActiveSheet.Range("A3") = "Height: " & h
    ActiveSheet.Range("A4") = "Width: " & w

End Sub