Excel VBA質問箱 IV

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

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


34578 / 76734 ←次へ | 前へ→

【47364】Re:シート内の指定色変更したいんです
回答  Kein  - 07/3/9(金) 1:06 -

引用なし
パスワード
   基本的にはとおりすがりさんが "自分で勉強するように" と
促していることに賛成なんですが
>どのシートにもボタンを貼り付け
というのは、あまり良いやり方とは思えませんので
"ブックを立ち上げたときに既存のツールバーへボタンを配置する"
というコードをお教えします。それなら一個作るだけで済むからです。
ThisWorkbook モジュールに、以下の2つを入れて一度ブックを閉じ、
再度開いてみてください。書式ツールバーの右端に"にこちゃん"マーク
のボタンが出ます。

Private Sub Workbook_Open()
  With Application.CommandBars("Formatting")
   .Visible = True
   With .Controls.Add(msoControlButton)
     .Caption = "文字色変更"
     .FaceId = 59
     .OnAction = "Change_FColor"
   End With
  End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Application.CommandBars("Formatting")
   With .Controls(.Controls.Count)
     If .BuiltIn = False Then .Delete
   End With
  End With
End Sub
End Sub
5 hits

【47355】シート内の指定色変更したいんです kanji 07/3/8(木) 21:46 質問
【47358】Re:シート内の指定色変更したいんです bykin 07/3/8(木) 22:45 発言
【47360】Re:シート内の指定色変更したいんです kanji 07/3/8(木) 23:22 質問
【47361】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 0:07 回答
【47362】Re:シート内の指定色変更したいんです kanji 07/3/9(金) 0:28 質問
【47363】Re:シート内の指定色変更したいんです とおりすがり 07/3/9(金) 0:33 発言
【47364】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 1:06 回答
【47365】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 1:07 発言
【47366】Re:シート内の指定色変更したいんです kanji 07/3/9(金) 1:15 お礼

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