Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40643 / 76732 ←次へ | 前へ→

【41183】Re:アイコンの表示変更
回答  Kein  - 06/8/1(火) 16:23 -

引用なし
パスワード
   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
0 hits

【41164】アイコンの表示変更 Takatuki 06/8/1(火) 10:47 質問
【41178】Re:アイコンの表示変更 Jaka 06/8/1(火) 15:38 発言
【41242】Re:アイコンの表示変更 Takatuki 06/8/2(水) 22:59 お礼
【41250】Re:アイコンの表示変更 BB 06/8/3(木) 9:50 発言
【41183】Re:アイコンの表示変更 Kein 06/8/1(火) 16:23 回答
【41241】Re:アイコンの表示変更 Takatuki 06/8/2(水) 22:56 お礼
【41244】Re:アイコンの表示変更 Kein 06/8/2(水) 23:54 回答

40643 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free