Show me the location and size of a shape
Problem
You want to know the size and position of a picture or other shape on a slide.
Solution
This macro will do the job quickly:
Sub ShowMeSize()
' Will fail if nothing is selected
' Will give coordinates for first shape of a selection
' if more than one shape is selected
' Works with images and any other selected shape
With ActiveWindow.Selection.ShapeRange(1)
Call MsgBox("Top:" & vbTab & .Top & vbCrLf _
& "Left:" & vbTab & .Left & vbCrLf _
& "Height:" & vbTab & .Height & vbCrLf _
& "Width:" & vbTab & .Width & vbCrLf, _
vbInformation, "Dimensions of selected shape")
End With
End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.