gunslingor
Dec 22nd, 2008, 03:50 PM
The below code works fine except that the stencils are editable and every time I close the form I get the message, "would you like to save stencil 1". Open and close the form again it says "would you like to save stencil 2" and so on.Private Sub AutoAddMenus()
'DrawingControl0.vsoapp.StencilPaths = DrawingControl0.vsoapp.StencilPaths & ";" & Stencil_Path
Dim vsoWin As Visio.Window
Set vsoWin = DrawingControl0.Window
Dim vsoWins As Visio.Windows
Set vsoWins = DrawingControl0.Window.Application.Windows
Dim vsoDoc As Visio.Document
Set vsoDoc = DrawingControl0.Document
Dim vsoDocs As Visio.Documents
Set vsoDocs = DrawingControl0.Window.Application.Documents
Dim vsoApp As Visio.Application
Set vsoApp = DrawingControl0.Window.Application
Dim vsoStencilWindow As Visio.Window
Dim vsoTVAstencil As Visio.Document
Dim Path As String
Dim Stencil1_Name As String
Dim Stencil_Path As String
Path = CurrentProject.Path()
Stencil1_Name = "TVA Cyber Network.vss"
Stencil_Path = Path & "\Visio Stencils\" & Stencil1_Name
'add the standard TVA stencil to documents collection
'Set vsoStencilWindow = vsoApp.Window
'vsoStencilWindow.AllowEditing = False
'Set vsoStencilWindow = vsoTVAstencil.OpenStencilWindow
Set vsoTVAstencil = vsoDocs.Add(Stencil_Path)
vsoTVAstencil.Title = "TVA Standard"
'Open the Document Stencil window.
'Set vsoStencilWindow = vsoWins.Add()
'vsoStencilWindow.AllowEditing = False
End Sub
'DrawingControl0.vsoapp.StencilPaths = DrawingControl0.vsoapp.StencilPaths & ";" & Stencil_Path
Dim vsoWin As Visio.Window
Set vsoWin = DrawingControl0.Window
Dim vsoWins As Visio.Windows
Set vsoWins = DrawingControl0.Window.Application.Windows
Dim vsoDoc As Visio.Document
Set vsoDoc = DrawingControl0.Document
Dim vsoDocs As Visio.Documents
Set vsoDocs = DrawingControl0.Window.Application.Documents
Dim vsoApp As Visio.Application
Set vsoApp = DrawingControl0.Window.Application
Dim vsoStencilWindow As Visio.Window
Dim vsoTVAstencil As Visio.Document
Dim Path As String
Dim Stencil1_Name As String
Dim Stencil_Path As String
Path = CurrentProject.Path()
Stencil1_Name = "TVA Cyber Network.vss"
Stencil_Path = Path & "\Visio Stencils\" & Stencil1_Name
'add the standard TVA stencil to documents collection
'Set vsoStencilWindow = vsoApp.Window
'vsoStencilWindow.AllowEditing = False
'Set vsoStencilWindow = vsoTVAstencil.OpenStencilWindow
Set vsoTVAstencil = vsoDocs.Add(Stencil_Path)
vsoTVAstencil.Title = "TVA Standard"
'Open the Document Stencil window.
'Set vsoStencilWindow = vsoWins.Add()
'vsoStencilWindow.AllowEditing = False
End Sub