|
WSHで icoファイル をエクセルブックに関連付けることは出来ます。
通常ブックを開くフォルダーに、Book2.xls というファイルが保存
されているとして、概ね以下のようなコードになります。
icoファイル の保存先は定数 P_Fol のフォルダーで、Tree.ico という
名前です。もちろん定数は、そちらの状況に合わせて変更して下さい。
なお、アイコンを変更したファイルは拡張子が lnk で、元のファイルを
SaveAs したときのような状態になるので「ファイルを開く」ダイアログで
「ファイルの種類」を"すべてのファイル(*.*)"に変更しないと出てきません。
Sub Ch_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
|
|