Öffnen Sie Visio-Zeichnung mit einem Makro in Access 2010

Question

Ich habe eine Schaltfläche in einem Formular in meiner Datenbank, dass ich ein Benutzerhandbuch auf klicken möchte. Die Benutzeranleitung, die ich zusammengefügt habe, ist in visio, aber ich kann keine Möglichkeit finden, sie mit dem Makro-Generator zu öffnen. Ist das etwas, was ich mit VBA machen müsste? Wenn ja, irgendwelche Vorschläge, wie der Code aussehen sollte?

Answer 1

Ich denke, etwas wie das Folgende funktioniert, ich habe dies manipuliert, um visio obwohl zu passen, also hoffentlich funktioniert es.

Dim FName As String 
Dim VisioApp As Object 

On Error Resume Next 
Set VisioApp = GetObject(, "Visio.Application") 
If VisioApp Is Nothing Then 
    Set VisioApp = CreateObject("Visio.Application") 
    If VisioApp Is Nothing Then 
     MsgBox "Can't connect to Visio" 
     Exit Sub 
    End If 
End If 
On Error GoTo 0 
FName = "C:\Path\FileName.vsd" 

VisioApp.documents.Open FName ' 
VisioApp.Visible = True 

Sie müssen möglicherweise mit dem VB-Editor gehen, klicken Sie auf Tools>References und dann Bibliothek markieren Microsoft Visio als geprüft.