| |
>これをどのようにして使えばよいかわかりません。
ここから先のコードの全文をコピーし、使いたいブックの標準モジュールに
貼り付けます。その詳しいやり方については↓のサイトを参考にして下さい。
http://park11.wakwak.com/~miko/Excel_Note/14-01_macro.htm#14-01-01
で、貼り付けたままでは、まだ使える状態ではありません。先にもアドバイス
したように、まず Const P_Fol As String = という定数宣言で実際に使う
アイコンファイルの保存先パスを指定します。それから、いくつかのコードで
"固有名詞"を使っている部分を、そちらに合わせて変更します。具体的には
>.CreateShortcut(Def_Fol & "\NewBook2.lnk")
>.TargetPath = Def_Fol & "\Book2.xls"
>.IconLocation = P_Fol & "Tree.ico, 0"
の、３ヶ所については必須でしょう。あと
>.Description = "エクセル・ブック"
>.WorkingDirectory = Def_Fol
については任意でして下さい。
>どのように勉強したら
一般的な勉強法については、過去ログにたくさん保存されています。
検索して自分に合った方法を選択されたら良いと思います。
ただ、今回の回答については「Excel・VBA」のみを習得しただけでは
組むことが出来ないコードになっています。このコードの殆どが WSH
(Windows Script Host) の知識を必要とするものなのです。これについては
VBAより参考書の数も少なく、大きな書店でないと入手できないと思います。
また、参考になるサイトも数は少ないですが、現在おそらく最も有名な
WSHの紹介・学習サイトをリンクしておきます。↓こちらになります。
http://wwwroy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm
できればVBAの学習と併行して学習されると、コーディングの幅がグッと
広がることと思います。頑張って下さい。
↓先のコードを再掲しておきます。
Sub ADD_ICON()
Dim WshShell As Object, oShellLink As Object
Dim Def_Fol As String
Const P_Fol As String = _
"C:\Documents and Settings\User\My Documents\アイコン\"
Def_Fol = Application.DefaultFilePath
Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell _
.CreateShortcut(Def_Fol & "\NewBook2.lnk")
With oShellLink
.TargetPath = Def_Fol & "\Book2.xls"
.WindowStyle = 1
.IconLocation = P_Fol & "Tree.ico, 0"
.Description = "エクセル・ブック"
.WorkingDirectory = Def_Fol
.Save
End With
Set oShellLink = Nothing: Set WshShell = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
