• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:Excelコマンドボタン名を変数にして背景色を変更)

Excel VBAでコマンドボタン名を変数にして背景色を変更する方法

このQ&Aのポイント
  • Excel VBAを使用して、コマンドボタン名を変数にして背景色を変更する方法を教えてください。
  • シートにデザインするコントロールツールボックスのボタンではなく、フォームのボタンを使っている場合はどのようにすれば変更できるのでしょうか?
  • 特定のシート上のコマンドボタンの背景色を、VBAの変数を使用して変更する方法について詳しく教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • akina_line
  • ベストアンサー率34% (1124/3287)
回答No.1

こんにちは。  下記コードでどうでしょう。   Worksheets(strSheet).OLEObjects(strBtnNM).Object.BackColor = RGB(255, 255, 0)    1.OLEObjectsコレクションを使用する。    2.OLEObject オブジェクトのプロパティとして表されない、コントロールのプロパティは Object プロパティを使用して実際のコントロール オブジェクトを取得して設定する。   VBAヘルプの「シートで ActiveX コントロールを使用する」を参照してください。 では。

neko225
質問者

お礼

早速の回答ありがとうございます。 週末でお礼が遅れて申訳ありませんでした。 OLEObjectsですが、Office2003でも可能でしょうか? ヘルプを検索すると、「ページがみつかりません」となってしまって・・・。 今、まだうまくいかないのですが、もうちょっとがんばります。 取り急ぎお礼まで・・・。

neko225
質問者

補足

できました!\(^-^)/ 「LEObjects のプロパティを取得できません。」の メッセージが出て困っていたのですが 名称の誤りがあり、正すとすんなりできました。 ありがとうございました。 (補足に書いちゃってごめんなさい。)

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • VB6、コマンドボタンの背景色を変更するには?

    コマンドボタンのBackColorプロパティをいじってもコマンドボタンのCaptionの背景の色が変更されません。 ラベルコントロールとかだと同じプロパティをいじると色が変わるのですが… 色を変えるにはどうすればよいでしょうか?

  • コマンドボタン

    よくわからないのですが エクセルのコントロールツールボックスのコマンドボタンだとイベントはたくさんあるけど、 フォームのコマンドボタンだとクリックボタンしかないのですか? フォームのコントロールはコントロールツールボックスの劣化版と言う感じですか? 添付画像の事です。

  • Excel2003 コマンドボタンのプロパティ

    Excel2003 の vba の初心者です。 (Access2003 の vba の方が得意です。) 既に出来上がっているExcelのvbaを編集したいのですが、 コマンドボタンのプロパティが表示できません。 Accessであれば、コマンドボタンを選択して右クリックするとプロパティがあります。 しかし、Excelでは、コントロールツールボックスでデザインモードを押下し、 コマンドボタンを選択してコントロールツールボックスのプロパティを押下しても、 プロパティの一番上のプルダウンの所は「Sheet1 Worksheet」となっていて、 ▼を押下しても、他には何もありません。 どうも、Worksheetのプロパティが表示されているようです。 コマンドボタンのプロパティを表示させるには、どうすればよいのでしょうか。 基本的なことでお恥ずかしいですが、 ご教授いただければ幸いです。 よろしくお願いいたします。

  • コマンドボタン名の設定で

    お世話になります。 現在EXCELシート上に複数のコマンドボタンを置き、 そのコマンドボタン名をセルの値からとってこようとしています。 これがVBの考えでしたら ************************************************* Dim i as integer 'ループ用変数 '対象セルに値が存在しなくなるまでループ Do While Worksheets("Sheet1").Cells(i, 1) <> "" 'セルの値をコマンドボタン名に代入 Worksheets("Sheet1").CommandButton(i).Caption = Worksheets("Sheet1").Cells(i, 1).Value i = i + 1 Loop ************************************************* のようにできるのではないかと考え、いろいろと試行錯誤しているのですがうまくいきません。 VBAではこのようなやり方はできないのでしょうか? vbのように変数名でループさせるということは出来ないというような情報もあるのですが、出来ればこの考えに似たような感じのプログラムの組み方がしたいと考えております。 どなたかご教授よろしくお願いいたします。

  • PowerPoint VBAコマンドボタンでのマクロ

    PowerPointでVBAを使ったフォームを作製しました。 そのフォームを表示させるためマクロを書き、スライド上に コマンドボタンを配置させマクロを実行させたいと思っています。 ExcelのVBAですとコマンドボタンにマクロを割り当てるのは ツールバーのフォームのコマンドボタンで設置すると簡単ですが PowerPoint VBAですとコントロールツールボックスでのコマンド ボタンしかなくボタンにマクロを割り当てる方法が分かりません。 どなたかコマンドボタンにマクロを割り当てて実行する方法を 教えて下さい。 宜しくお願い致します。

  • エクセル コマンドボタン

    1)Sheet1でコマンドボタンを作成。クリックするとフォームが表示さ  れます。そのフォームの中のテクストボックスに数字を入れ、それ  をSheet2のB2に挿入したいです。どうすればいいのですか? 2)Sheet2にコマンドボタンを作りました。Sheet2へ戻るようなボタン  を作りたいのですがどうすれば良いですか? 以上2つの質問です。是非教えてください。

  • エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン

    エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。 実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。 Sub test() x = Application.Caller Select Case x Case "ボタン 1" MsgBox 1 Case "ボタン 2" MsgBox 2 Case "ボタン 3" MsgBox 3 Case "ボタン 4" MsgBox 4 End Select End Sub コントロールツールボックスは Private Sub CommandButton1_Click() MsgBox 1 End Sub Private Sub CommandButton2_Click() MsgBox 2 End Sub のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか?

  • コマンドボタンについて

    Excel(2000)のコマンドボタンについての質問です。 コマンドボタンの輪郭を消すことは可能でしょうか? プロパティのBackcolorで背景を白または透明にすることは出来るのですが、 周囲を囲む輪郭を消すことが出来ません。 Captionを印刷物として表示させることを意図しているので 印刷物として全てを印刷しない「コントロールの書式設定」からの 「オブジェクトを印刷する」のチェックボタンは狙った意図にはなりません。 ご教授願います。

  • アクセス コマンドボタンの背景色について

    アクセスのフォーム上に作成したコマンドボタンの背景色の変更を行ないたいのですが、変更方法をご存知の方は教えてください。コントロールウィーザードから作成したボタンでも色の変更できるのかな。。。。?

  • エクセルVBAでコマンドボタンを選択したい。

     すいません。私はエクセルのVBAが初心者なのですが、例えば、sheet1にコントロールツールのコマンドボタン1があるとして、いまセルA1が選択されている状態の時、キーボードの"Enter"を押すと、通常はセルA2が選択されるところを、コマンドボタン1を選択するようにしたいのですが、なにかいい方法はありませんか?よろしくお願いします。