A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
Have a play with this:
Dim oSh As Shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
Debug.Print ActiveWindow.PointsToScreenPixelsX(oSh.Left)
Debug.Print ActiveWindow.PointsToScreenPixelsY(oSh.Top)