VISIO VBA shapeの座標取得

Question

For Each vsoPage In vsoDoc.Pages

            For Each vsoShape In vsoPage.Shapes

              name = vsoShape.Name

　　　　X = vsoShape.???

              Y = vsoShape.???

            Next

        Next

たとえば

name = vsoShape.Name

のように各シェイプのnameを取得することはできますが、

各シェイプのシート上の座標（XY座標？row, column?）を取得することはできるでしょうか。

Answer 1

> 各シェイプのシート上の座標（XY座標？row, column?）を取得

---

Dim vsoDoc As Visio.Document

Dim vsoPage As Visio.Page

Dim vsoShape As Visio.Shape

Dim intDiagramServices As Integer

Set vsoDoc = ActiveDocument

intDiagramServices = vsoDoc.DiagramServicesEnabled

vsoDoc.DiagramServicesEnabled = visServiceAll

For Each vsoPage In vsoDoc.Pages

    Debug.Print vsoPage.Name

    For Each vsoShape In vsoPage.Shapes

        Debug.Print vbTab & vsoShape.Name

        With vsoShape**.Cells**("PinX")

            Debug.Print String(2, vbTab) & .Name & ": " & .FormulaU

        End With

        With vsoShape**.Cells**("PinY")

            Debug.Print String(2, vbTab) & .Name & ": " & .FormulaU

        End With

    Next

Next

vsoDoc.DiagramServicesEnabled = intDiagramServices

---

以上のようなことをなさりたい、ということでしょうか。