Access 2010でマクロを使用してVisio図面を開く

Question

私のデータベースには、クリック時にユーザーガイドを開くためのボタンがあります。私がgetherに置いたユーザーガイドはvisioにありますが、私はマクロビルダーを使用してそれを開く方法を見つけることができないようです。これは私がVBAを使う必要があるのでしょうか？もしそうなら、コードがどのように見えるべきかについての提案はありますか？

Answer 1

私は以下のようなものが動作するかもしれないと思うが、これは私がvisioに合うように操作したので、うまくいけば動作する。

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 

あなたは、VBエディタに行く>ReferencesToolsをクリックし、確認としてMicrosoft Visioのライブラリをマークする必要があるかもしれません。