No.1ベストアンサー
- 回答日時:
デスクトップに自ブックのショートカットを作成するサンプルです。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Chrome(クローム) サイトのショートカットアイコンの格納場所は? 1 2022/12/26 01:38
- Excel(エクセル) マクロの付いたExcelが開けません 3 2023/02/01 10:54
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- Visual Basic(VBA) VBA アドインについて お詳しい方 ご教授をお願いします。 相談事項 現在以下の対応を実施した所、 1 2022/11/02 16:53
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) デスクトップのエクセルで作成したファイルを開くと未記入のエクセルが開く 5 2022/08/17 15:55
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Windows 10 デスクトップにファイルを保存すると既存のファイルアイコンの列に割り込むように保存されて困ってます 2 2022/04/25 19:00
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デスクトップに同じアイコンが...
-
特定のファイルのアイコンを変...
-
アイコン左下に黒い時計のよう...
-
パソコンのデスクトップにエプ...
-
ウィンドウズのショートカット...
-
エクセルやワードのアイコンの変更
-
複数のファイル名を変えずに連...
-
Word文書ファイルのアイコ...
-
フォルダアイコンの画像が元に戻る
-
ショートカットエラー ファイ...
-
PCアイコンについて
-
誤って変更されたファイルの名...
-
PCの動作を軽くする方法
-
アイコンの変更に「ついて
-
アイコンの変更方法。
-
デスクトップのアイコンがおかしい
-
ディスクトップのアイコンについて
-
ネ豊(れい)という漢字変換は...
-
フォルダ名の色を変えたい
-
記号の見た目がMSPゴシックに似...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンのデスクトップにエプ...
-
特定のファイルのアイコンを変...
-
複数のファイル名を変えずに連...
-
誤って変更されたファイルの名...
-
デスクトップに同じアイコンが...
-
ショートカットエラー ファイ...
-
デスクトップの各アイコンの左...
-
ウィンドウズのショートカット...
-
リンク先が表示されない
-
フォルダアイコンの画像が元に戻る
-
アイコン左下に黒い時計のよう...
-
ディスクトップのアイコンについて
-
フォルダー内のアイコンの配列...
-
Android端末でPDFファイルをデ...
-
Yahoo!のアイコン
-
PCアイコンについて
-
アイコンの整列で
-
ショートカットの拡張子を表示
-
dll ファイルを開くには?
-
exeファイルのアイコン変更
おすすめ情報