Excel VBA質問箱 IV

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

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


12409 / 13644 ツリー ←次へ | 前へ→

【4495】エクセルタイトルバーのアイコンの変更 かず 03/3/24(月) 11:12 質問
【4505】Re:エクセルタイトルバーのアイコンの変更 とおりすがり 03/3/25(火) 0:27 回答
【4514】Re:エクセルタイトルバーのアイコンの変更 かず 03/3/25(火) 12:16 お礼
【10607】Re:エクセルタイトルバーのアイコンの変更 ドラゴン 04/2/3(火) 14:16 質問
【10608】Re:エクセルタイトルバーのアイコンの変更 INA 04/2/3(火) 14:59 回答
【10649】Re:エクセルタイトルバーのアイコンの変更 谷 誠之 04/2/5(木) 8:17 発言
【10651】Re:エクセルタイトルバーのアイコンの変更 INA 04/2/5(木) 10:38 回答
【10609】Re:エクセルタイトルバーのアイコンの変更 ukino 04/2/3(火) 15:20 回答
【10610】Re:エクセルタイトルバーのアイコンの変更 ドラゴン 04/2/3(火) 16:29 お礼

【4495】エクセルタイトルバーのアイコンの変更
質問  かず  - 03/3/24(月) 11:12 -

引用なし
パスワード
   エクセルのタイトルバーに表示されるアイコン(Xマーク)
を変更する方法をご存知の方がいれば教えてください。
よろしくお願いします。

【4505】Re:エクセルタイトルバーのアイコンの変更
回答  とおりすがり  - 03/3/25(火) 0:27 -

引用なし
パスワード
   ▼かず さん:
>エクセルのタイトルバーに表示されるアイコン(Xマーク)
>を変更する方法をご存知の方がいれば教えてください。
>よろしくお願いします。

http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200211/02110281.txt
http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200211/02110545.txt

【4514】Re:エクセルタイトルバーのアイコンの変更
お礼  かず  - 03/3/25(火) 12:16 -

引用なし
パスワード
   とおりすがり さん、

どうも有難うございました。
APIは苦手ですが、早速試してみます!

【10607】Re:エクセルタイトルバーのアイコンの変更
質問  ドラゴン  - 04/2/3(火) 14:16 -

引用なし
パスワード
   こんにちわ

「題名」の方法を知りたいのですが、
リンク先がもう無いようです。
誰かご存知の方いらっしゃいましたら、教えてください。
お願いします。

>>エクセルのタイトルバーに表示されるアイコン(Xマーク)
>>を変更する方法をご存知の方がいれば教えてください。
>>よろしくお願いします。
>
>http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200211/02110281.txt
>http://www.ae.wakwak.com/cgi-bin/sbox/~efc21/wwwlng.cgi?print+200211/02110545.txt

【10608】Re:エクセルタイトルバーのアイコンの変更
回答  INA  - 04/2/3(火) 14:59 -

引用なし
パスワード
   以前、どこかで見つけたコードです。
あらかじめmyIcon.icoをブックと同じフォルダに用意して下さい。

'エクセル・アイコンの変更。(API)
Declare Function DrawMenuBar Lib "user32" _
                (ByVal hWnd As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                (ByVal hWnd As Long, _
                 ByVal wMsg As Long, _
                 ByVal wParam As Long, _
                 lParam As Any) As Long
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
                (ByVal hInst As Long, _
                 ByVal lpszExeFileName As String, _
                 ByVal nIconIndex As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                (ByVal lpClassName As String, _
                 ByVal lpWindowName As String) As Long
Declare Function GetActiveWindow Lib "user32" () As Long
              
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0&
Public Const ICON_BIG = 1&

'エクセル・アイコンの変更。
Sub Set_xlIcon()
  Dim hWnd As Long
  'エクセル・ハンドル 取得。
  hWnd = FindWindow("XLMAIN", Application.Caption)
  If hWnd = 0 Then Exit Sub
  SetIcon hWnd, ThisWorkbook.Path & Application.PathSeparator & "myIcon.ico"
  
End Sub

'hWnd:Window handle
'strIconName:Name of Icon (*.ico)
Sub SetIcon(hWnd As Long, strIconName As String)
  Dim lngIcon As Long
  lngIcon = ExtractIcon(0, strIconName, 0)
  If lngIcon <> 0 Then
    Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal lngIcon)
    Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal lngIcon)
    DrawMenuBar hWnd
  End If
End Sub

'エクセル・アイコンのリセット。
Sub Reset_xlIcon()
  Dim hWnd As Long
  'エクセル・ハンドル 取得。
  hWnd = FindWindow("XLMAIN", Application.Caption)
  ResetIcon hWnd
End Sub

Sub ResetIcon(hWnd As Long)
  Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal 0&)
  Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal 0&)
  DrawMenuBar hWnd
End Sub

【10609】Re:エクセルタイトルバーのアイコンの変更
回答  ukino  - 04/2/3(火) 15:20 -

引用なし
パスワード
   >エクセルのタイトルバーに表示されるアイコン(Xマーク)
>を変更する方法をご存知の方がいれば教えてください。
>よろしくお願いします。

http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200211/02110545.txt
http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200211/02110281.txt

それから
「エクセル・アイコンを内部から取り込んで表示。」
http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200312/03120261.txt

【10610】Re:エクセルタイトルバーのアイコンの変更
お礼  ドラゴン  - 04/2/3(火) 16:29 -

引用なし
パスワード
   できました。
ありがとうございます。

【10649】Re:エクセルタイトルバーのアイコンの変更
発言  谷 誠之 E-MAIL  - 04/2/5(木) 8:17 -

引用なし
パスワード
   INAさん、こんにちは。
VBA質問箱主宰者の谷です。

いつも迅速にご回答くださいまして、ありがとうございます。

>以前、どこかで見つけたコードです。

さて、INAさんのご回答に関しまして、次のようなご指摘がありました。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=1016;id=

INAさんの「どこかで見つけたコード」は、確かに「どこかで」と書いてある割には非常にしっかりしており、うろ覚えでないことは明らかです。
コードを直接書くとわかりやすく、質問者に対しての利益になりますが、もしかしたらコードの原作者の不利益になるかもしれません。

当質問箱のようなQ&Aサイトは、「もちつ、もたれつ」の関係です。質問者と回答者との助け合いで成り立っています。だからこそ、エチケットが必要であると考えます。本来ならコードの原作者に転載、リンクの許諾を得る必要があるのでしょうが、その都度それをやっていたのでは大変です。最低限、出展を明らかにするのがマナーであると考えます。

ご面倒ですが、あらためて出展を明記していただきますようよろしくお願いいたします。

【10651】Re:エクセルタイトルバーのアイコンの変更
回答  INA  - 04/2/5(木) 10:38 -

引用なし
パスワード
   >確かに「どこかで」と書いてある割には非常にしっかりしており、
>うろ覚えでないことは明らかです。
何カ所ものVBA掲示板で公開されたコードを、
お気に入りだとリンクが切れると困るので、
自分のパソコンでEXCELファイルにして保存しています。
そうしたサンプルコードのファイルは、何百もあります。
そのためコードの取得先は「うろ覚え」になっております。
このような保存方法の方は他にもいると思いますが・・・

>「うろ覚えでないことは明らかです。」
 ↑
このように決めつけられたことは残念です。(T_T)


>コードを直接書くとわかりやすく、質問者に対しての利益になりますが、
>もしかしたらコードの原作者の不利益になるかもしれません。
掲示板で公開されたコードを他掲示板へ掲載することはまずいのでしょうか?
文章と同様に著作権の問題なのでしょうか?

掲示板で公開したプログラムの場合、
利益等のそのような権利は破棄することに同意しての書き込みかと思っておりましたが・・

また掲示板でご質問されるような短いプログラムは
同じ目的であれば、同じようなコードになってしまうことも多々あります。
その見極めも難しいかと思いますが如何なものでしょうか?

>ご面倒ですが、あらためて出展を明記していただきますよう
>よろしくお願いいたします。
既に示されていますが、以下のページです。
http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200312/03120261.txt

「どこかで」というのは、上記のサイトですか?
とこちらに直接書き込んでご質問していただければ、すぐに回答できたのですが。。
そうすれば別の掲示板で話題にして、
谷さんから指摘されるようなことにならずに済んだのですが・・・


ご迷惑をお掛けしたようですので、
今後、こちらの掲示板ではなるべくROMに徹するように致します。
どうも失礼いたしました。m(_ _)m

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