Officeのアイコン変更

質問

アイコンをMac風にしようと思い、サイトからMac風アイコンをDLしてきました。
窓の手で変更できるところは変更したのですが、Ofiiceのアイコンが変更できません。
どこからOfficeのアイコンを変更できるのでしょうか？
お願いします。

回答No.6

ittochan · ベストアンサー

これをあげます。
（ ^-^）ｏ旦~~~~

メモ帳を開き
↓の文章を貼り付けて
Icon.vbsって名前でデスクトップに保存し

---この下から
Set WshShell = CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments

set oLink = WshShell.CreateShortcut(objArgs(0))

Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = 1
IE.Navigate "about:blank"
IE.Visible = 1
IE.ToolBar = 0
IE.MenuBar = 0
IE.AddressBar = 0
IE.StatusBar = 0
IE.Width=400
IE.Height = 150
IE.Left = 0
IE.Top = 0
Do While IE.Busy
Wscript.Sleep 10
Loop
Set oDoc = IE.Document
oDoc.open
oDoc.writeln "アイコンファイルを指定してください<BR>"
oDoc.writeln "<input type=file id=sicon><BR>"
oDoc.writeln "アイコンファイルを入力したら「変更」ボタンをクリック<BR>"
oDoc.writeln "<input type=button id=btn1 name='0' value=変更 onclick=" & """" & "javascript:btn1.name='1';"&""""&">"
oDoc.writeln "<input type=button value=キャンセル onclick=" & """" & "javascript:window.close();"&""""&">"

while oDoc.Body.All.btn1.name="0"
WScript.Sleep 100
wend
oLink.IconLocation = oDoc.Body.All.sicon.value
oLink.save
IE.Quit
msgbox "終了しました"

Sub IE_onQuit()
WScript.Quit
End Sub
---この上まで

するとIcon.vbsがデスクトップに作成されます

次に
スタートメニュー内にある
Microsoft ExcelとかMicrosoft Wordとかの
ショートカットファイルを
右クリック→「送る」→「デスクトップ(ショートカットを作成)」をクリック

すると
デスクトップにショートカットの複製が作成されます

複製されたショートカットファイルを
マウスで掴んで
icon.vbsへ放り込んでください。

お礼

すごいです！
ありがとうございます！！！
最初から最後まで、教えてもらいっぱなしで頭が下がります。
無事変更できました☆

回答No.5

ittochan

＞の１番をやらないということでしょうか？
はい。

＞xlicons.exeがアイコンなのでしょうか？
このファイルの中にicoファイルが入っています。

＞icoファイルをexeファイルに名前変更すればよろしいのでしょうか？
駄目です。

２、か３をしてください。

回答No.4

deadline

ANo.#1～3の方の回答にある"C:\WINNT\Installer\{英数字の羅列}"フォルダにある"xlicons.exe"等には、"Office"で作成されたファイルを現すアイコンも含まれているので、これを変更してしまうと、自分で作成した"Office"ファイルのアイコンが正常に表示できなくなってしまいます。

例えば、".xls"ファイルのアイコンは、レジストリ内で、

C:\WINNT\Installer\{英数字の羅列}\xlicons.exe,1

と"xlicons.exe"に含まれる18個のアイコンの中から2つ目（←1つ目を0で指定するので）を指定しています。）

"Microsoft Office"が自動的に[プログラム]フォルダに作るショートカットではアイコンの変更ができませんから、
ショートカットを新しく、通常のショートカットのようにプログラムファイル（".exe"）を指定する形式で作るしかないと思います。

指定するファイルは"C:\Program Files\Microsoft Office\Office"フォルダを開いてみればわかるとは思いますが、
念のため、↓です。

Access ： MSACCESS.EXE
Excel ： EXCEL.EXE
FrontPage ： FRONTPG.EXE
Publisher ： MSPUB.EXE
Outlook ： OUTLOOK.EXE
PhotoDraw ： PHOTODRW.EXE
PowerPoint ： POWERPNT.EXE
Word ： WINWORD.EXE

（↑"Outlook"だけは、単純に"exe"ファイルを指定してしまうと、"Outlook"が二重に起動して、後から起動した方がエラーメッセージを表示するので、

"C:\Program Files\Microsoft Office\Office\outlook.exe"□/recycle　　（←□は半角スペース）

　と"exe"ファイルのファイル名の後に"/recycle"というパラメータを付けてください。）

お礼

C:\Program Files\Microsoft Office\Office　からショートカットを作ってやればいいんですね。
なんだか普通のと違ってるんですねー・・・。

もっと勉強します！！！
ありがとうございましたー☆

回答No.3

ittochan

あっ
ごめんなさい。
ショートカットファイルの
ターゲットがxlicons.exeになっているので

ANo.1 の１はやらないでください。

補足

１．icoファイルをそこに
xlicons.exeとして置く

２．excel.exeからショートカットを作り直す

３．ショートカットを改造する

の１番をやらないということでしょうか？

OSはWin2000です。
xlicons.exeがアイコンなのでしょうか？てっきり.icoファイルが置いてあるものだと思ってました。
icoファイルをexeファイルに名前変更すればよろしいのでしょうか？

かっこいいofficeアイコンなんで、統一して変更したいんです。

何回も回答してくださってありがとうございます。

回答No.2

ittochan

あっカテゴリはWindowsNT/2000ですね。
となると
windowsフォルダじゃなくって
Winntフォルダですね。

回答No.1

ittochan

例えばExcelの場合

これは
Windowsフォルダの中にある
Installerフォルダ(隠しフォルダ＆システムフォルダ）
の{数字の羅列}フォルダの中にある
xlicons.exe
っていうファイルがアイコンになってます。

１．icoファイルをそこに
xlicons.exeとして置く

２．excel.exeからショートカットを作り直す

３．ショートカットを改造する

といった方法があります。