• 締切済み

VBA エクセルでのトグルボタン　楕円について

お世話になります 【概要】 トグルボタンクリック時、楕円の挿入について 【わからないこと】 トグルボタンクリック時（ON)に楕円（透明）を挿入（できればセル指定ではなく場所指定）しOFFの時は楕円が消える仕組みを作りたいのですが、わかる方よろしくお願い申し上げます。 又、複数ボタン生成する予定なのでボタンクリック時に色など付けば幸いです。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

どこへ挿入するのかなど、質問の意味が理解できないが。 場所指定ー＞どのように指定するのか 色などつけたいー＞トグルボタンか楕円か、境界線か内部か ーー シート上にトグルボタンを貼り付ける例で、トグルボタンの上に楕円を置く例 Private Sub ToggleButton1_Click() l = Worksheets("Sheet1").ToggleButton1.Left + 10 t = Worksheets("Sheet1").ToggleButton1.Top - 10 w = Worksheets("Sheet1").ToggleButton1.Width - 20 h = Worksheets("Sheet1").ToggleButton1.Height + 20 With Worksheets("Sheet1").Shapes.AddShape(msoShapeOval, l, t, w, h).Fill .Solid .Transparency = 0.84 .ForeColor.RGB = vbBlue End With End Sub 上記を実行すると、日産（車）のマークのようなものが出ました。 何か参考になれば。

BSR123
質問者

お礼

迅速なお返事ありがとうございます

BSR123
質問者

補足

お返事ありがとうございます VBAユーザーフォーム内でトグルボタンクリック時sheet内のセルA1内での座標表示が理想です。 又、同じ形でのトグルでの楕円等生成の予定です 質問内容指摘及び回答後の追加質問まことに申し訳ありません。

  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

まず好きな場所にオートシェープの楕円を挿入します。 仮にその名前が"Oval 2"としたら、 トグルボタンに以下のマクロをセットすればそうなると思います。 Private Sub ToggleButton1_Click() Me.Shapes("Oval 2").Visible = ToggleButton1.Value End Sub

BSR123
質問者

お礼

お返事ありがとうございます

BSR123
質問者

補足

実行するとエラー461になります

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Excel VBA トグルボタンで一定のセルへ楕円を書き込みしたり消したりしたいのですが

    Excel VBAの初心者です。Ｗｅｂ検索で同じ事例がないか検索をしてみましたが、２件程近いものがありましたので、それを参考に自力でやってみましたが、書き込みまではすんなりいきますが、トグルボタンをＯＦＦにした場合（消すという動作）がどうも旨くいきません。どなたか宜しくお願いします。 根本的にVBAのコードが全部理解出来ていないというレベルですので、その辺をお察しの上お願いします。 実施したい内容は以下の条件下で行いたいと思います。 (1)sheet１にトグルボタンを作成 (2)トグルボタンを押した時、sheet2の２箇所のセル(AJ3とCJ3)と、sheet3の２箇所のセル(AJ3とCJ3)に楕円（透明）を書き込む (3)トグルボタンを押した時、トグルボタン自体の色を赤色に変更 (4)トグルボタンを戻した時、(2)の作成した楕円を消す。またトグルボタン自体の色を元の色に戻す。

  • VBA トグルボタンで楕円表示　非表示方法

    お世話になります VBAユーザーフォーム内でトグルボタンを生成しクリック時に セル指定及び座標表示、非表示をさせたいのですがわかる方よろしくお願いします。 又、同じフォーム内で複数使用します

  • Excel VBA トグルボタンのコントロール

    お世話になります。 現在、ユーザーフォームにて管理アプリもどきを作成しているのですが、 以下の様な動作を行うことが可能かどうか、 また可能であればどのような方法があるのかをご教授ください。 ////////////////////////////////////////////////////////// フォーム上に、トグルボタンを複数個配置します。 例として、下図をトグルボタンを５つ配置したものと仮定します。 Valueプロパティは全てFalseを初期値とします。 　□□□□□ 左から２つ目のトグルボタン上でマウスクリックし、 そのままクリックを押し込んだままの状態にします。 この時点で、２つ目のボタンのValueプロパティをTrueに変更します。 　□■□□□ 　　 ↑クリック（押し込んだまま） クリックを押し込んだまま、マウスを右に移動させます。 左から３つ目、４つ目のボタン上にカーソルがきた時点で ３つ目、４つ目のValueプロパティをTrueに変更します。 　□■■■□ 　　　　 　↑クリック（押し込んだまま） 左から４つ目のトグルボタン上でクリックを離します。 クリックされていない状態でマウスカーソルが上に乗っても Valueの変更は行われません。 ////////////////////////////////////////////////////////// MouseMoveを試してみましたが、ドラッグ中は処理が発生しないようなので どうしたものか困ってしまいました。 ご助力、よろしくお願い致します。

  • トグルボタンの文字色

    windows-xp、アクセス2003、を使っています。 フォームに複数のトグルボタンを置き、下記コードをつけました。 そこで質問です。 「トグルボタンがＯＮの時は赤色、ＯＦＦの時は黒色にする。」ということをしたいです。 できましたら、下記コードに書き加えて頂けませんでしょうか。 Private Sub CH01_Click() If CH01 = -1 Then CH02 = 0 CH03 = 0 End If End Sub Private Sub CH02_Click() If CH02 = -1 Then CH01 = 0 CH03 = 0 End If End Sub Private Sub CH03_Click() If CH03 = -1 Then CH01 = 0 CH02 = 0 End If End Sub すみませんが、宜しくお願い致します！！

  • Excelのトグルボタンを使って以下の事をやりたい

    Excelのトグルボタンを使って以下の事をやりたいのですが、根本から解りません。どなたかお教え下さい。 基本作業：トグルボタンを使ってsheetの何箇所かのセルに印鑑を押したり消したりしたい (1)sheet1にトグルボタン（以下からTB)を作成 (2)TBを押した時、sheet4で作成したピクチャ（sheet4上に文字・数字・円を使ってデータ印状にしたものを、Excelのカメラで取って作成したもの）を、sheet2のAB35・BZ35・AS4・CQ4の４箇所とsheet3のAB35・BZ35・AS4・CQ4の４箇所に同一ピクチャを描画 (3)TBを押した時、ボタンの色を赤色に変える (4)TBのボタンを戻した時、各描画したピクチャを全て消す (5)TBのボタンを戻した時、ボタンの色を元の色に戻す

  • Excel(VBA)について

    基本的なことを質問して申し訳なく思っております。 トグルボタンで、オン(引っ込んだ状態)になったときに色が薄くなって、網掛け？が掛かりますよね？ オフ(出っ張った状態)では、濃くなって(もともとの色？)、網掛けがありません。 逆にする方法ってあるのですか？ 重ね重ね質問して申し訳ありません。 宜しくお願いいたします。

  • Excel　トグルボタンについて教えて下さい

    今朝、コマンドボタンについて質問をして、 ボタンを押すごとに、特定のセルに1とブランク(=0)を 交互に入力する方法を教えてもらったのですが、その中で 新しい、トグルボタンという機能を教えてもらい、 本などを見て自分なりにやってみたのですが、 回答が見つからず、またまた書き込んでしまいました；； 先ほどは、ABS()の絶対値を使って、0と1を繰り返す方法と 下記のプログラムを教えて頂いたのですが、 Private Sub CommandButton1_Click() If Range("D1").Value <> "" Then 　 Range("D1").Value = "" Else 　　　Range("D1").Value = 1 End If End Sub 作りたい書類には1を入力したときに凹ませたいのですが、 教えてもらった回答では どうしても、0の時に凹んで 1のときに凸るんです。 内容を色々変えてやってみたものの成功には至らず、 本を見ても回答に見合った例がなく、うまく出来ません。 っというか、コマンドボタンと同様の式では、 凹んだときにTrueを返して、凸ったときにFalseを返すという 折角のトグルボタンの意味が無いですよね？ とどのつまりが、お知恵をお貸し頂きたいということで、 毎度ながら申し訳ないのですが 何卒宜しくお願いします。

  • トグルボタンのON/OFF

    seatテーブルがあり、座席番号フィールドがあります。 そのseatテーブルに座席番号が入力されたとき トグルボタンをONにしたりテーブルからその座席番号が削除されたら、OFFにするといったことはできるんでしょうか？ たとえばA-1といった座席番号でトグルぼたんが、A-1とします。 また不可能であれば、現在使用中の座席を一覧で認識できる別の方法があれば教えていただきたいです。 よろしくお願いします。

  • 別シートのトグルボタンを指定したい

    複数シートがあって、それぞれのシートにトグルボタンがあるとします。 トグルボタンを押したときの動作は同じなので、 標準モジュールとかに動作内容を記述したいのですが、 「If ActiveSheet.ToggleButton1 = False Then」とか記述しても エラーが出ます。 アクティブなシートにあるトグルボタン1が押された時の動作内容を書きたいです。

  • エクセル　ボタンのVBA　

    印刷のボタンを作成しました。 原本シートに書き込んで終了した時に保存ボタンを押したら シート名を記載して保存するＶＢＡが一個あります それとは別に印刷ボタンを作成したいのですが 原本シートの表には未記入の場所には条件式でセルに色を つける条件を付けてます。 印刷ボタンを押した時 全部のセルの色を白色に戻し指定した範囲の部分を印刷するボタンを作れないでしょうか？ 例　Ａ１：Ｋ７３まで印刷するなど

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する