Invalid Document Identifier Error

[doudou]

Hello,

I have been scratching my head over this for a while I have the following simple VBA code ran from Excel. I have set up all the proper Visio references, the code chokes at the Page.Drop method with an invalid document identifier. Am i missing something. Thanks in advance.

Code Select Expand

Sub Test()
    Dim VisioApp As Visio.Application
    Set VisioApp = CreateObject("Visio.Application")
    Dim VisioDoc As Visio.Document
    Set VisioDoc = VisioApp.Documents.AddEx("")
    Dim VisioPage As Visio.Page
    Set VisioPage = VisioDoc.Pages(1)
    VisioPage.Drop VisioApp.Documents.Item("BASFLO_U.VSS").Masters.ItemU("Process"), 4.125, 8.125
End Sub

[Paul Herber]

Your code hasn't opened the stencil. It just assumes that the stencil is open.

[doudou]

Your code hasn't opened the stencil. It just assumes that the stencil is open.

Thanks!