How to generate Visio files with VB?

grayfair

Like VB is exported as Excel, can VB be exported as a Visio file?

Please give examples.

路过一个游侠

VB can also operate VISIO

路过一个游侠

Option Explicit
Dim vso As New Visio.Application
Private Sub Command1_Click()
    vso.Visible = True
    vso.Documents.Open "c:\tu1.vsd"
   
End Sub


Private Sub Form_Unload(Cancel As Integer)
    Set vso = Nothing
End Sub