エクセルのマクロを使ってショートカットアイコンを作成したい

質問

あるExcelファイルのショートカットアイコンをデスクトップに作る際、通常なら、エクスプローラを開いて、当該Excelファイルを選択、右クイックでショートカットアイコンを作成すると思いますが。
今回当該Excelファイルを開いた状態で、そのファイルのショートカットをデスクトップに設けたいです。
ボタンをクイックするだけで作れるようにマクロを使って組みたいのですが、うまく組む方法は無いでしょうか。
宜しくお願いします。

回答No.1

marbin · ベストアンサー

デスクトップに自ブックのショートカットを作成するサンプルです。

Sub shtcut()
Dim WSHShell As Object
Dim Fmei As Variant
Dim fol As String
Dim wb As Workbook
Set wb = ActiveWorkbook
Set WSHShell = CreateObject("WScript.Shell")
Fmei = wb.FullName
fol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set objSc = WSHShell.CreateShortcut(fol & "\" & Dir(Fmei) & ".lnk")
With objSc
.TargetPath = Fmei
.Save
End With
End Sub

お礼

marbinさん
どうもありがとうございます。
まさにイメージとおりのものです。
大変助かりました。