Visio-shape - get X -, Y-position

Habe ich es geschafft, um programmgesteuert fügen Sie ein shape in Visio mithilfe des folgenden Codes:

ActiveWindow.Page.Drop(VisioApp.Documents["ORGCH_M.VSS"].Masters.ItemU["Executive"], 5.433071, 7.559055);

Wie würde ich über ein Programm abrufen, werden die X -, Y-Koordinaten nach der Form eingefügt wurde?

Dank!

InformationsquelleAutor Pete | 2010-09-17

  1. 5

    Bekommt man die Koordinaten der neuen Form zunächst ein Verweis auf die neue Form. Seite.Drop Rückfahrt wird diese Referenz. Dann schauen Sie in das shape-Objekt für seine PinX und PinY Zellen. Dies wird geben Sie die Koordinaten in Visio-Standard-Einheiten, also cm. Hier ist ein Beispiel in VBA:

    Dim newShape As Visio.Shape
Dim x As Double
Dim y As Double

Set newShape = ActiveWindow.Page.Drop(Visio.Application.Documents("ORGCH_M.VSS")
                    .Masters.ItemU("Executive"), 5.433071, 7.559055)

x = newShape.Cells("PinX")
y = newShape.Cells("PinY")

    Ich merke Sie arbeiten in einem metrischen Zeichnung (z.B. _M im Dateinamen). Vielleicht möchten Sie lieber eine Arbeit in einer anderen Einheit. Hier ist das gleiche Beispiel mit Millimetern:

    Dim newShape As Visio.Shape
Dim xIn As Double
Dim yIn As Double
Dim xOut As Double
Dim yOut As Double

xIn = Visio.Application.ConvertResult(100, visMillimeters, visInches)
yIn = Visio.Application.ConvertResult(120, visMillimeters, visInches)

Set newShape = ActiveWindow.Page.Drop(Visio.Application.Documents("ORGCH_M.VSS")
                    .Masters.ItemU("Executive"), xIn, yIn)

xOut = newShape.Cells("PinX").Result(visMillimeters)
yOut = newShape.Cells("PinY").Result(visMillimeters)

    InformationsquelleAutor Pat Leahy

Schreibe einen Kommentar