エクセルのツールバーのアイコンを変更する
エクセルのツールバーのアイコンを変更する
エクセルのバージョンは2000、Excel2000、13年くらい経っている2000
↑これを↓こうする
エクセルに用意されているボタンイメージの変更からだと適当なものが見つからない
ボタンイメージの編集もできるけど使いにくい、色が足りない
そこで使いやすいお絵かきアプリで
16x16ドットの画像を作る
png形式なら透過色も反映される
画像を保存したらシートに挿入
挿入したら画像を選択して名前を確認する、今回は"図 2"と
"図 3"
変更するツールバーの名前とアイコンを表示しているボタンのIDの確認
名前は"ユーザー設定 2"
次はボタンのIDの確認
Visual Basic Editorを起動して
イミディエイトウィンドウを表示して
表示されたイミディエイトウィンドウに
?commandbars("ユーザー設定 2").Controls("テキストボックス水色").Id
と記述して記述した行にカーソルを置いてエンターキーを押すと
1
と表示される、これでユーザー設定 2のテキストボックス水色のIDが1だと確認できた
同じようにテキストボックス緑のIDを確認する
?commandbars("ユーザー設定 2").Controls("テキストボックス緑").Id
2
もう一つのボタンはID2でした、登録した順番になっているみたい
後は設定するだけ、まずはテキストボックス水色のアイコンを設定
これもイミディエイトウィンドウに
ActiveSheet.Shapes("図 3").copy
Application.CommandBars("ユーザー設定 2").Controls(1).PasteFace
上の2行を記述して1行目にカーソルを置いてエンターキーを2回押すと
Application.CommandBars("ユーザー設定 2").Controls(1).PasteFace
上の2行を記述して1行目にカーソルを置いてエンターキーを2回押すと
こうなる
次はテキストボックス緑のアイコンの設定
同じようにイミディエイトウィンドウにて
ActiveSheet.Shapes("図 2").copy
Application.CommandBars("ユーザー設定 2").Controls(2).PasteFace
Application.CommandBars("ユーザー設定 2").Controls(2).PasteFace
完成
イミディエイトウィンドウの状態
ボタンに適当にマクロを登録して
右クリックのメニューのアイコンも変更できる
マクロやVBAで
ControlsにFaceIdを指定するとかPictureで指定するとかあるみたいだけど
この方法に落ち着いた
IDの確認の方法はもうひとつあって、IDを指定してそのキャプションを表示させる方法
?CommandBars("ユーザー設定 2").Controls(1).Caption
これでエンターキーを押して
テキストボックス水色
が表示されればID1がテキストボックス水色なんだなと確認できる
テキストボックス水色
が表示されればID1がテキストボックス水色なんだなと確認できる