Forme Visio - d'obtenir la position X,Y

J'ai réussi à en programmant insérer une forme dans Visio à l'aide du code ci-dessous:

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

Comment pourrais-je le récupérer par programmation de coordonnées X,Y, après la forme a été inséré?

Merci!

OriginalL'auteur Pete | 2010-09-17

  1. 5

    Pour obtenir les coordonnées de la nouvelle forme de la première à obtenir une référence à la nouvelle forme. Page.Drop sera de retour chez elle, cette référence. Puis en ce qui forme l'objet de son PinX et PinY cellules. Cela vous donnera les coordonnées en Visio par défaut c'est à dire les unités pouces. Voici un exemple en 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")

    J'ai remarqué que vous travaillez dans une métrique de dessin (c'est à dire _M dans le nom de fichier). Vous préférez peut-être travailler dans une autre unité. Voici le même exemple en utilisant millimètres:

    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)

    OriginalL'auteur Pat Leahy