Dropping a Stencil Using VBA

[MikeM]

I created a stencil named "New Shapes" with "Shape 1", "Shape2", etc. on it.
I'd like to use VBA to drop a shape on Page-1. I assume that I can locate
where the shape goes using

ActivePage.Shapes("Shape 1").Cells("PinX") = 1
ActivePage.Shapes("Shape 1").Cells("PinY") = 1
ActivePage.Shapes("Shape 1.1").Cells("PinX") = 1
ActivePage.Shapes("Shape 1.1").Cells("PinY") = 1

etc., but I haven't found out how to get them on the page using VBA. Can
anyone help, or point me to the pages in the "Developing Visio Solutions"
manual or in any other reference book. I'd like to start learning how to use
it, since this program is terrific -- but complicated!

Mike

 

[John Marshall, MVP]

Use the drop method.

ActivePage.Drop
Application.Documents.Item("ORGCH_U.VSS").Masters.ItemU("Consultant"), 2.5,
6.125

There are other examples of different version of Drop at
visio.mvps.org/VBA.htm

John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm

 

[MikeM]

Thanks, Josh. It works well. But I now have another question (separate post).

Mike