For Each osheet In ActiveWorkbook.Worksheets
                For Each objx In osheet.OLEObjects
                osheet.Activate

                    Debug.Print objx.Name & vbLf & osheet.Name & vbLf & objx.Height & vbLf & objx.Width & vbLf & objx.Top & vbLf & objx.Left
                    Debug.Print objx.Visible
                    Debug.Print objx.ShapeRange.AlternativeText
                    Debug.Print objx.OLEType
                    Debug.Print objx.Creator
                    Debug.Print objx.ShapeRange.Type
next objx
next osheet