プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (6件)

これをあげます。


( ^-^)o旦~~~~

メモ帳を開き
↓の文章を貼り付けて
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へ放り込んでください。
    • good
    • 0
この回答へのお礼

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

お礼日時:2004/12/20 11:50

>の1番をやらないということでしょうか?


はい。

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

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

2、か3をしてください。
    • good
    • 0

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"というパラメータを付けてください。)
    • good
    • 0
この回答へのお礼

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

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

お礼日時:2004/12/20 11:55

あっ


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

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

この回答への補足

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

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

3.ショートカットを改造する

の1番をやらないということでしょうか?

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

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

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

補足日時:2004/12/19 23:06
    • good
    • 0

あっカテゴリはWindowsNT/2000ですね。


となると
windowsフォルダじゃなくって
Winntフォルダですね。
    • good
    • 0

例えばExcelの場合



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

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

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

3.ショートカットを改造する

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!