Ｐａｇｅ 344 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼自作アイコンが・・・。 ぴかる 02/11/1(金) 8:12 ┗Re:自作アイコンが・・・。 Jaka 02/11/1(金) 9:15 ┗Re:自作アイコンが・・・。 ぴかる 02/11/1(金) 12:56 ┗Re:自作アイコンが・・・。 Jaka 02/11/1(金) 13:25 ┗Re:自作アイコンが・・・。 ぴかる 02/11/1(金) 13:32 ┗Re:自作アイコンが・・・。 ぴかる 02/11/1(金) 15:30 ┗Re:自作アイコンが・・・。 Jaka 02/11/1(金) 16:29 ┗Re:自作アイコンが・・・。 ぴかる 02/11/1(金) 16:46 ┗Re:自作アイコンが・・・。 Jaka 02/11/5(火) 13:21 ┗Re:自作アイコンが・・・。 ぴかる 02/11/5(火) 16:35 ┗Re:自作アイコンが・・・。 Jaka 02/11/5(火) 17:14 ┗Re:自作アイコンが・・・。 ぴかる 02/11/5(火) 18:53 ┗Re:自作アイコンが・・・。 Jaka 02/11/6(水) 10:32 ┗コード載せるの忘れてました。 Jaka 02/11/6(水) 10:34 ┗スミマセン。大変遅くなりました。 ぴかる 02/11/8(金) 10:22 ┗Re:スミマセン。大変遅くなりました。 Jaka 02/11/8(金) 15:27 ┗ツールバーをメニューバーに変身できる？ ぴかる 02/11/8(金) 15:55 ┗ツールバーをメニューバーに変身では、ありません。 Jaka 02/11/11(月) 13:01 ┗すんごく必要でした。 ぴかる 02/11/11(月) 17:58 ┗がんばってみたんですが・・・。 ぴかる 02/11/11(月) 20:07 ┗Re:がんばってみたんですが・・・。 Jaka 02/11/13(水) 10:49 ┗お礼とお詫びです。<(_ _)> ぴかる 02/11/15(金) 8:26 ─────────────────────────────────────── ■題名 ： 自作アイコンが・・・。 ■名前 ： ぴかる ■日付 ： 02/11/1(金) 8:12 -------------------------------------------------------------------------
| みなさん、おはようございます。 みなさんに自作アイコンの作り方を教えていただきうまく出来たと思ってました。ところが問題が発生してしまいました。当方のＷＩＮ９８では問題なかったんですが、９５と２０００で不具合となりました。 ９５ … 自作アイコンが表示されない。 2000 … 色が濃く(ダーク)なる。 回避方法は何かないでしょうか？。よろしくお願いいたします。 |
| ▼ぴかる さん： >みなさん、おはようございます。 > >みなさんに自作アイコンの作り方を教えていただきうまく出来たと思ってました。ところが問題が発生してしまいました。当方のＷＩＮ９８では問題なかったんですが、９５と２０００で不具合となりました。 > ９５ … 自作アイコンが表示されない。 > 2000 … 色が濃く(ダーク)なる。 > >回避方法は何かないでしょうか？。よろしくお願いいたします。 おはようございます。 えーと、95ではPastfaceが使えないからです。アイコンを編集する選択欄に「画像を張りつける」見たいな物がありません。因にPastfaceは、エクセル5の取説を見ていて発見した。と言う事で私は、Win95の手抜きだと思っていました。 95でも使いたかったら98のユーザ設定で作ってアドインに添付してください。そうすれば、写真等のアイコンも反映されます。 2000の色が濃くなると言うのは、気が付かなかったです。 気づいてなかったと言う事でこれは解りません。 |
| Jakaさん、こんにちは。 いつもありがとうございます。 >えーと、95ではPastfaceが使えないからです。アイコンを編集する選択欄に「画像を張りつける」見たいな物がありません。因にPastfaceは、エクセル5の取説を見ていて発見した。と言う事で私は、Win95の手抜きだと思っていました。 >95でも使いたかったら98のユーザ設定で作ってアドインに添付してください。そうすれば、写真等のアイコンも反映されます。 実力不足です。どうやったらいいのかよく分かりません。 >2000の色が濃くなると言うのは、気が付かなかったです。 >気づいてなかったと言う事でこれは解りません。 そうですか。ＮＥＷピカつーるもほぼ完成と思ってたんですが・・・。汎用性を持たせたいので今のままでは公開は無理みたいです。残念。 ところでインターネット上で公開されているあるアドインフリーソフトでは、全く問題なくオリジナルアイコンが表示されます。いったいどんなコードになってるのかとても疑問に思ってます。もし、お分かりになる方がお見えになりましたらよろしくお願い致します。 |
| ▼ぴかる さん： >実力不足です。どうやったらいいのかよく分かりません。 >ところでインターネット上で公開されているあるアドインフリーソフトでは、全く問題なくオリジナルアイコンが表示されます。いったいどんなコードになってるのかとても疑問に思ってます。もし、お分かりになる方がお見えになりましたらよろしくお願い致します。 ツールバーをつどいちいち作っていないと思います。置き土産をして終了する物もあったんで。（わざとかもしれないけど、お試し状態でこれやられたんで、昔腹が立った。） 多分、ユーザー設定で作ったツールバーをアドインに添付しているだけじゃないかと。 アドインにツールバーを添付する方法 アドインにしたいブックにツールバーを添付しとくだけです。 |
| Jakaさん、どうもです。 >ツールバーをつどいちいち作っていないと思います。置き土産をして終了する物もあったんで。（わざとかもしれないけど、お試し状態でこれやられたんで、昔腹が立った。） >多分、ユーザー設定で作ったツールバーをアドインに添付しているだけじゃないかと。 > >アドインにツールバーを添付する方法 >アドインにしたいブックにツールバーを添付しとくだけです。 ありがとうございます。仕事が終わり次第やってみたいと思います。 また質問するかもしれませんので、その時はよろしくお願いいたします。 |
| Jakaさん、こんにちは。 >>アドインにツールバーを添付する方法 >>アドインにしたいブックにツールバーを添付しとくだけです。 >ありがとうございます。仕事が終わり次第やってみたいと思います。 >また質問するかもしれませんので、その時はよろしくお願いいたします。 仕事中にこっそりとやってみました。うまく行きそうです。すみません。１つ質問させて下さい。 自作メニューバーの添付も可能でしょうか？。可能でありましたらよろしくお願い致します。 |
| ▼ぴかる さん： >自作メニューバーの添付も可能でしょうか？。可能でありましたらよろしくお願い致します。 この自作メニュバーとは、どう言う事なんでしょうか？ ユーザー設定で作ったメニューバーって事ですか？ |
| ▼Jaka さん： >この自作メニュバーとは、どう言う事なんでしょうか？ >ユーザー設定で作ったメニューバーって事ですか？ 目安箱で公開中のピカつーるのメニューバーです。現在、この部分にもアイコンを追加して改善中です。そのままマクロでメニューバーを作成すると例の問題が発生してしまいます。可能でありましたらよろしくお願い致します。 |
| >目安箱で公開中のピカつーるのメニューバーです。現在、この部分にもアイコンを追加して改善中です。そのままマクロでメニューバーを作成すると例の問題が発生してしまいます。可能でありましたらよろしくお願い致します。 自分で作ったものを自分に添付するって事でしょうか？ 自分でツールバーやボタンなどを temporary:=False として作ったものなら、 ボタンやマクロの関連性等の情報も、そのまま残って添付されてました。 （ピカつーるのメニューバーでは、試していませんので念の為。） |
| Jakaさん、こんにちは。レインボーぴかるです。 >自分で作ったものを自分に添付するって事でしょうか？ はい、そうなります。 >自分でツールバーやボタンなどを temporary:=False として作ったものなら、 >ボタンやマクロの関連性等の情報も、そのまま残って添付されてました。 こんな感じで入れてみましたが、うまく行きませんでした。 (ユーザー設定ツールバーの中に"PikaBar"が出てきませんでした。) On Error Resume Next Application.CommandBars("PikaBar").Delete On Error GoTo 0 Set myCB = Application.CommandBars.Add(Name:="PikaBar", Position:=msoBarTop, MenuBar:=True, _ temporary:=False) 問題点がどこにあるのかよく分かってません。よろしくお願いします。 |
| > On Error Resume Next > Application.CommandBars("PikaBar").Delete > On Error GoTo 0 > Set myCB = Application.CommandBars.Add(Name:="PikaBar", Position:=msoBarTop, MenuBar:=True, _ > temporary:=False) > >問題点がどこにあるのかよく分かってません。よろしくお願いします。 あの、どのような操作をしているのか解りませんが このコードは残してあるんですか？ せっかく添付しても、 >Application.CommandBars("PikaBar").Delete で、消して作りなおしたら添付する意味がありません。 添付した場合は、.Visible = True False で操作して、 エクセル終了間木はに、Deleteさせたりするような感じです。 |
| ▼Jaka さん： >あの、どのような操作をしているのか解りませんが >このコードは残してあるんですか？ > >せっかく添付しても、 >>Application.CommandBars("PikaBar").Delete >で、消して作りなおしたら添付する意味がありません。 > >添付した場合は、.Visible = True False で操作して、 >エクセル終了間木はに、Deleteさせたりするような感じです。 何度も何度も申し訳ございません。状況説明がうまく出来なくて・・・。 再度、現在の進捗を報告します。 １．マクロにて自作メニューバーを作成（temporary:=False付き） ２．ユーザー設定→ツールバーにて添付を選択 ３．ここで"PikaBar"をコピーしたいと思ってます。 ３．のところで"PikaBar"がリストに無い為、困っています。 この操作は、普段行わない操作なので間違ってるかもしれません。 何かアドバイスございましたら、よろしくお願い致します。 |
| >３．のところで"PikaBar"がリストに無い為、困っています。 >この操作は、普段行わない操作なので間違ってるかもしれません。 > >何かアドバイスございましたら、よろしくお願い致します。 う〜ん、状況がさっぱりわかりません。 それでは新規ブックにて、アクティブシートに図柄１、図柄２、図柄３と名前をつけたアイコン用図柄を張りつけて、下記コードを実行して自作バーを作ってください。（即席ですが） 左下にボタンが４個のツールバーが出来ていると思います。 次にユーザー設定を開いて、添付ボタンをクリックして下さい。 左欄のリストに「自作Bar」がありませんか？ あるなら「自作メニューバー」の作り方が、おかしいのかもしれません。 |
| Sub tty() Err.Clear On Error Resume Next If Application.CommandBars("自作Bar").Visible = False Then Application.CommandBars("自作Bar").Visible = True If Err = 0 Then End End If Err.Clear ActiveSheet.Shapes("図柄１").Copy Set オリジナルバー = Application.CommandBars.Add(Name:="自作Bar", temporary:=False, Position:=msoBarBottom) オリジナルバー.Visible = True Set ボタン1 = CommandBars("自作Bar").Controls.Add(Type:=msoControlButton, _ before:=1, temporary:=False) ' With ボタン1 .Style = msoButtonIcon .PasteFace .OnAction = "メッセージ1" End With ボタン1.Visible = True ActiveSheet.Shapes("図柄２").Copy Set ボタン2 = CommandBars("自作Bar").Controls.Add(Type:=msoControlButton, _ before:=2, temporary:=False) ' With ボタン2 .Style = msoButtonIcon .PasteFace .OnAction = "メッセージ2" End With ボタン2.Visible = True ActiveSheet.Shapes("図柄３").Copy Set ボタン3 = CommandBars("自作Bar").Controls.Add(Type:=msoControlButton, _ before:=3, temporary:=False) ' With ボタン3 .Style = msoButtonIcon .PasteFace .OnAction = "メッセージ3" End With ボタン3.Visible = True Set ボタン4 = CommandBars("自作Bar").Controls.Add(Type:=msoControlButton, Id:=42, _ before:=4, temporary:=False) ' ボタン4.Visible = True End If End End Sub Sub メッセージ1() MsgBox ("練習用1") End Sub Sub メッセージ2() MsgBox ("練習用2") End Sub Sub メッセージ3() MsgBox "練習用3" End Sub |
| Jakaさん、おはようございます。 大変、確認が遅れました。ご丁寧なサンプル、ありがとうございました。 誠に説明が下手っぴでお伝えしたい事がお伝え出来ず、ご迷惑をおかけしました。 メニューバーの件ですが、"MenuBar:=True"を宣言して作成しているのでツールバーとは異なった形となります。こうすると添付ファイルのリストとはなってくれません。これで困ってた訳です。 もし、可能でありましたらよろしくお願い致します。 |
| >メニューバーの件ですが、"MenuBar:=True"を宣言して作成しているのでツールバーとは異なった形となります。こうすると添付ファイルのリストとはなってくれません。これで困ってた訳です。 > >もし、可能でありましたらよろしくお願い致します。 う〜ん。こうなってくると私の持っている知識の範囲を超えているんで解りません。 解らないんで、APIのせいにしちゃいます。 APIを使うんじゃないのかなぁ。 因にAPIは、全く解りません。 APIは、りんさんが良く知っているかもしれません。 りんさんと言えば、前にコピーする方法を教えてもらっていたような記憶があるんですが、これを利用してみてはどうですか？ 予め絵柄のついたボタンを用意しておいて、作る時にそれをコピーしてメニューバーに張りつける。 個人的に、ごちゃごちゃした物は、好きじゃないんで私はやりませんが．．。（自分の部屋は、ごちゃごちゃしてますけど） こんな程度しか思いつきません。 タイトルに「りんさん助けてぇ〜！」と書くと、「はいな！」と助けてくれると思うんですが。 なんせアンヌ隊員みたいな人ですから。（と、私は思っています。） お役に立てなくて、ごめんなさい。 |
| Jakaさん、こんにちは。 色々とお付き合いありがとうございました。お陰様で自作ツールバーの添付及びマクロ化も完了致しました。感謝、感謝です。 APIですか？。私は、JuJuさんに教えて頂いた"Sleep"しか使った事がないかな？ 可能になるんでしらどんなやり方でもＯＫです。みなさま、よろしくお願いいたします。 ところでツールバーをメニューバーに変身させる事は、可能でしょうか？。 もしこれが出来れば、自作メニューバーをツールバーとして作成し添付する。 そしてそのツールバーをメニューバーにする。どうでしょうか？。 |
| こんにちは。 完成したぴかるさんには必要無いと思いますが、他の人には解らないかも知れないので一応。 安１として、下記コードを新規ブックにて、お試しください。 95でもしっかり反映されるようになってます。（ただの異動です。) 準備（手作業） ユーザー設定にて、「アイコン移動用バー」と名づけたツールバーに カスタムアイコンを貼り付けたボタンを４個作ってください。 １番目左のボタン名を「１番目」と変えておいてください。 その各ボタンに下記コードのボタン1〜4をマクロ登録して、ブックに添付し上書き保存します。 準備終了後、ブックを閉じて再度開いてみてください。 こんな説明で解ってもらえるのか不安．．．．。 Sub Auto_Close() On Error Resume Next Application.CommandBars("メイン").Visible = False Application.CommandBars("メイン").Delete End Sub Sub Auto_Open() Application.CommandBars("アイコン移動用バー").Visible = False '↓のIf文は、お試し時にあったほうが、良いんじゃないかと思って入れてあります。 If Application.CommandBars("アイコン移動用バー").Controls(1).Caption <> "１番目" Then MsgBox "オリジナルバー作成に失敗しました。" & vbCrLf & _ "エクセルを再起動させてください。" Application.CommandBars("アイコン移動用バー").Delete End End If Set 自作バー = Application.CommandBars.Add(Name:="メイン", MenuBar:=True, temporary:=True) Application.CommandBars("アイコン移動用バー").Controls(1).Move Bar:= _ Application.CommandBars("メイン") Application.CommandBars("アイコン移動用バー").Controls(1).Move Bar:= _ Application.CommandBars("メイン") Application.CommandBars("アイコン移動用バー").Controls(1).Move Bar:= _ Application.CommandBars("メイン") Application.CommandBars("アイコン移動用バー").Controls(1).Move Bar:= _ Application.CommandBars("メイン") Set AddButton1 = CommandBars("メイン").Controls.Add(Type:=msoControlButton) With AddButton1 .Style = msoButtonIcon .FaceId = 266 .OnAction = "Addボタン1" End With Application.CommandBars("メイン").Controls.Add Type:=msoControlPopup, ID:=30002, before:=1 Set プルダウン1 = CommandBars("メイン").Controls.Add(Type:= _ msoControlPopup) With プルダウン1 .Caption = "マクロ" End With Set プルダウンサブ1 = プルダウン1.Controls.Add(msoControlButton) With プルダウンサブ1 .Caption = "プルダウンサブ1" .OnAction = "マクロ1" End With Set プルダウンサブ2 = プルダウン1.Controls.Add(msoControlButton) With プルダウンサブ2 .Caption = "プルダウンサブ2" .OnAction = "マクロ2" End With Set VBEButton = CommandBars("メイン").Controls.Add(Type:=msoControlButton, ID:=1695) Application.CommandBars("メイン").Visible = True Application.CommandBars("アイコン移動用バー").Delete End Sub Sub ボタン1() MsgBox "ボタン1" End Sub Sub ボタン2() MsgBox "ボタン2" End Sub Sub ボタン3() MsgBox "ボタン3" End Sub Sub ボタン4() MsgBox "ボタン4" End Sub Sub Addボタン1() MsgBox "Addボタン1" End Sub Sub マクロ1() MsgBox "マクロ1" End Sub Sub マクロ2() MsgBox "マクロ2" End Sub |
| Jakaさん、こんにちは。 >完成したぴかるさんには必要無いと思いますが、他の人には解らないかも知れないので一応。 >安１として、下記コードを新規ブックにて、お試しください。 そんなことないんです。"まっ、ええかな〜"とあきらめて妥協してました。 早速、試させて頂きました。ばっちり、メニューバーが出来ました。 今から、がんばってピカつーるに展開させていただこうと思ってます。 ありがとうございました。 |
| Jakaさん、こんばんは。 ねばりがなくてごめんなさい。なかなか応用が効かなくて・・・。 困ってる内容は、以下の通りです。 メニューバー表面ではなく、メニューバーのポップアップの中にそのアイコンを設置したいと思っております。Jakaさん版、りんさん版(コピーバージョン)の両方で自分なりに試行錯誤しましたがダメでした。可能でありましたらよろしくお願いいたします。 |
| ▼ぴかる さん： >Jakaさん、こんばんは。 > >ねばりがなくてごめんなさい。なかなか応用が効かなくて・・・。 >困ってる内容は、以下の通りです。 > >メニューバー表面ではなく、メニューバーのポップアップの中にそのアイコンを設置したいと思っております。Jakaさん版、りんさん版(コピーバージョン)の両方で自分なりに試行錯誤しましたがダメでした。可能でありましたらよろしくお願いいたします。 だから、初めから作っておいて異動させれば．．．。 私のエクセルがぶっ壊れたみたいなんで、これまで。 |
| Jakaさん、おはようございます。 >だから、初めから作っておいて異動させれば．．．。 その通りでした。私も昨日気付きました。すぐ気付かなかった事が恥ずかしい限りです。 おかげさまでツールバー部分は、すべて完成しました。誠にありがとうございました。 >私のエクセルがぶっ壊れたみたいなんで、これまで。 えっ、え〜。申し訳ないです。わたしがこんなに鈍くさくなかったら、エクセルくんは大丈夫だったみたいですね。本当にごめんなさい。誠に恐縮ですが、心よりエクセルの復活を祈ってます。 |