【vba】コマンドボタン又は図形に任意のpdfリンクを繋げる方法

Excel2013を使用しております。
vbaにてコマンドボタン又は図形に任意のpdfリンクを繋げる方法を教えてください。
任意のpdfファイルはコマンドボタン(図形)が設置されているシートの「A1」に記載されている数字から拾いたいと考えております。
例えば、「A1」に「001」と記載があれば、コマンドボタン(図形)をクリックすると、デスクトップに保存されているフォルダ内にある「001.pdf」を開くようにしたいです。
宜しくお願いいたします。

No.1 ベストアンサー 回答者： naktak 回答日時： 2022/01/05 11:54

こんな感じで。

Dim filePath As String
filePath = "C:\Users\UserName\Desktop\" & ActiveSheet.Range("A1").Value & ".pdf"
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes(1), Address:=filePath

ログインユーザーによってデスクトップディレクトリは違うので、もっと正確に取りたいのなら、WSHなどで取得する必要があります。
https://excel-vba.work/2021/02/11/%E3%80%90vba%E …

この回答へのお礼

ご回答ありがとうございます。
思い通りに動かすことができました。

お礼日時：2022/01/05 13:28