Copy Visio (.vss) stencil file from one to another programmatically

[thaopham215]

I would like to write a command line program to selectively copy some
shapes from one stencil file (.vss) to another .vss stencil file. Is
this possible with Visual Basic 6.0? I looked at the sample code, and
I started with trying to open the stencil file with these 2 lines of
code:

Dim stencil As Visio.Document

Set stencil =
Documents.Open("C:\VisualBasic6.0\VisioStencilCopy\HBAStencils.vss")

I got the error 429 "ActiveX component can't create object"

Thanks in advance for the help.

 

[JuneTheSecond]

your code has no problem in VBA. do you use on activex drawing control?
if so, your code might be like a,,,
DrawingControl1.Document.Application.Documents.Open("FullNmame")