エクセルで他シートの図形を操作する方法

前へ 次へ
このQ&Aのポイント
  • エクセルで他のシートの図形を操作する方法について質問させていただきます。現在、エクセルで帳簿内容入力画面と印刷用帳簿を作成しています。sheet1にチェックボックスを設置し、チェックONでsheet2の任意の場所に楕円を表示させたいのですが、うまくいきません。試しにsheet1上でイベント設定をしたところ、チェックON/OFFで楕円の表示/非表示ができました。しかし、実際にsheet1とsheet2に設置すると「オブジェクトが存在しません」というエラーが発生します。
  • 試しに楕円が存在するシート1上にチェックボックスを設置し、VBAコードでチェックON/OFFで楕円の表示/非表示を切り替えることはできました。しかし、他のシートで同様の操作を行う際にエラーが発生します。恐らく、楕円の場所を指定する方法に誤りがあるのかもしれません。
  • アドバイスをいただきたいです。他のシートに楕円を表示させる方法を教えていただけますか？シート名やセル名を指定する必要があるのでしょうか？詳しい方のご教授をお願いします。
回答を見る
  • ベストアンサー

エクセル：チェックボックスで他シートの図形を操作。

質問させていただきます。 現在、エクセルにて sheet1に帳簿内容入力画面 sheet2に入力画面の項目を反映した印刷用帳簿 というものを作成しています。 その中で、sheet1にチェックボックスを設置し、チェックONでsheet2任意の場所に オートシェイプの楕円を表示(チェックOFFで楕円は消える)させたいのですが、 うまくいきません。 試しにsheet1上にチェックボックス・楕円を設置し、 ------------------------------------------- Sub test01() With ActiveSheet If .CheckBoxes(Application.Caller).Value = xlOn Then .Shapes("楕円１").Visible = True Else .Shapes("楕円１").Visible = False End If End With End Sub ------------------------------------------- とイベント設定をしたところ、sheet1上ではチェックON/OFFで楕円の 表示/非表示ができました。 しかし、実際sheet1にチェックボックス、2に楕円と設置すると「オブジェクトが存在しません」と エラーになってしまいます。 IF関数のような（シート名!セル名）的に楕円の場所を指定しなければいけないのかな？と 思い、色々試してみたのですが実現できませんでした。 勉強不足で恐縮なのですが、詳しい方アドバイスをいただきたいです。

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

  • ベストアンサー
回答No.1

With ActiveSheet … End With の中で .Shapes("楕円１").Visible = True としている意味は、ActiveSheetの楕円1を表示せよということになるので、 ActiveSheetに楕円１がなければ、言われているようなエラーになります。 Worksheets("Sheet2").Shapes("楕円１").Visible = True としましょう。

xxxg_01_hc
質問者

お礼

シート指定はこの様にするのですね！ 早速ご指摘通りに修正したところ、問題なく動作しました！ 勉強になりました！有難うございます！

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセル：チェックボックスで他シート複数図形を操作

    現在、エクセルにて sheet1に帳簿内容入力画面 sheet2に入力画面の項目を反映した印刷用帳簿 というものを作成しています。 その中で、sheet1にチェックボックスを１つ設置し、チェックONでsheet2任意の場所に ４個のオートシェイプの楕円を一括表示、チェックOFFで４つの楕円を一括消去、 とさせたいのですが、うまくいきません。 sheet1上にチェックボックス１個・楕円を１個設置し、 ------------------------------------------- Sub test01() With ActiveSheet If .CheckBoxes(Application.Caller).Value = xlOn Then worksheets("sheet2").Shapes("楕円１").Visible = True Else worksheets("sheet2").worksheets.Shapes("楕円１").Visible = False End If End With End Sub ------------------------------------------- とイベント設定をしたところ、チェックON/OFFで楕円１個の表示/非表示はできるように なりました。 残りの楕円２、３、４を構文内に色々当てはめてみましたが、エラーが出てしまいます。 どのように記述すれば一括表示できるでしょうか。 連投申し訳ないですが、詳しい方アドバイスを宜しくお願いします。

  • Excel チェックボックスの配置を換えた時

    ご質問させていただきます。 Excel2007を使用しています。 sheet2のA1セルからA190セルまでチェックボックスがあり、下記のmacro1が登録されていました。 そこで、チェックボックスの位置を以下のように変更しました。 sheet2のA1～A10セルまでチェックボックスが１０個、その隣のB1～B10セルにsheet1のJ2～J11列への参照式、sheet2のC1～C10セルまでチェックボックスが１０個、その隣のD1～D10セルにsheet1のJ12～J21列への参照式、・・・（省略）・・・、sheet2のAK1～AK10セルまでチェックボックスが１０個、その隣のAL1～AL10セルにsheet1のJ182～J191への参照式、というふうに変更しました。 変更に伴い、A1～A10セルのチェックボックスには下記のmacro1を登録し、C1～C10セルのチェックボックスには下記のmacro2を登録しました。 問題は次で起こりました。E1～E10セルのチェックボックスに下記macro3を登録したのですが、チェックボックスをONにすると「実行時エラー13　型が一致しません」と表示されてしまいます。デバックボタンを押すと、myCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Valueが黄色くなります。 そこで、myCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Valueを削除してE1セルのチェックボックスをONにしてみたところ、なぜかE1セルにSheet1のI22セルの値が表示され、チェックボックスをOFFにしてみたらE1セルに=Sheet1!I22と書かれていることがわかりました。 offsetの数値を色々と試してみたところ、macro3のoffset(0,1)の部分をoffset(0,2)にするとチェックボックスがOFFの時にちゃんとE1セルには=Sheet1!J22と記入されます。 しかし、offset(0,2)の状態でmyCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Valueを挿入して実行してみたところ、やはり「実行時エラー13　型が一致しません」と表示されてしまいます。 どこをどう直したら良いのか全くわかりません。 教えてください。 よろしくお願いいたします。 Sub macro1() 　Dim myCheck As Shape 　Set myCheck = ActiveSheet.Shapes(Application.Caller) 　myCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Value 　With myCheck.TopLeftCell.Offset(0, 1) 　　If myCheck.ControlFormat.Value = 1 Then 　　　.Value = .Value 　　Else 　　　.FormulaR1C1 = "=Sheet1!R[1]C[8]" 　　End If 　End With End Sub Sub macro2() Dim myCheck As Shape Set myCheck = ActiveSheet.Shapes(Application.Caller) myCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Value With myCheck.TopLeftCell.Offset(0, 1) If myCheck.ControlFormat.Value = 1 Then .Value = .Value Else .FormulaR1C1 = "=Sheet1!R[11]C[6]" End If End With End Sub Sub macro3() Dim myCheck As Shape Set myCheck = ActiveSheet.Shapes(Application.Caller) myCheck.TopLeftCell.Value = Not myCheck.TopLeftCell.Value With myCheck.TopLeftCell.Offset(0, 1) If myCheck.ControlFormat.Value = 1 Then .Value = .Value Else .FormulaR1C1 = "=Sheet1!R[21]C[4]" End If End With End Sub

  • Excel2003で簡単な図形の表示と非表示のプログラムを作成したので

    Excel2003で簡単な図形の表示と非表示のプログラムを作成したのですが上手く出来ません UserForm1に Private Sub OptionButton1 Click() ActiveSheet.Shapes("Oval 1").Visible=True 'ワークシート１に楕円の図形１表示 ActiveSheet.Shapes("Oval 2").Visible=False 'ワークシート１に楕円の図形２非表示 End Sub Private Sub OptionButton2 Click() ActiveSheet.Shapes("Oval 1").Visible=False 'ワークシート１に楕円の図形１非表示 ActiveSheet.Shapes("Oval 2").Visible=True 'ワークシート１に楕円の図形２表示 End Sub 上記の記述では上手くいくのですが、下記の様に ワークシート２の図形３と４も同様に表示・非表示したいため追加するとエラーになります。 UserForm1に Private Sub OptionButton1 Click() ActiveSheet.Shapes("Oval 1").Visible=True 'ワークシート１の楕円図形１表示 ActiveSheet.Shapes("Oval 2").Visible=False 'ワークシート１の楕円図形２非表示 ActiveSheet.Shapes("Oval 3").Visible=True 'ワークシート２の楕円図形３表示 ActiveSheet.Shapes("Oval 4").Visible=False 'ワークシート２の楕円図形４非表示 End Sub Private Sub OptionButton2 Click() ActiveSheet.Shapes("Oval 1").Visible=False 'ワークシート１の楕円図形１非表示 ActiveSheet.Shapes("Oval 2").Visible=True 'ワークシート１の楕円図形２表示 ActiveSheet.Shapes("Oval 3").Visible=False 'ワークシート２の楕円図形３非表示 ActiveSheet.Shapes("Oval 4").Visible=True 'ワークシート２の楕円図形４表示 End Sub ＶＢＡの勉強中の初心者です。教えて頂けないでしょうか。

  • フォームのCheck boxとOLEObjectのCheckboxのマクロの違い？

    エクセル2003です。 ワークシート上に複数個のチェックボックスを配置し、オンの場合、その左隣のセルの値を返すマクロを作成する場合についての質問です。 普段はフォームのCheck boxを使っています。 フォームのCheck boxなら Sub ChkBx() With ActiveSheet.CheckBoxes(Application.Caller) If .Value = xlOn Then MsgBox .TopLeftCell.Offset(0, -1).Value End If End With End Sub と、標準モジュールに一つだけプロシージャを書いて、複数個のCheck boxに同一のマクロを登録すれば簡単に出来ます。 ところがこれをOLEObjectのCheckboxでやってみようと思ったところ、フォームのように一つのプロシージャを使いまわすことができず、シートモジュールに以下のように各Checkboxごとのマクロを書かなくてはいけないようです。 Private Sub CheckBox1_Click() With OLEObjects("CheckBox1") If .Object.Value Then MsgBox .TopLeftCell.Offset(0, -1).Value End If End With End Sub Private Sub CheckBox2_Click() With OLEObjects("CheckBox2") If .Object.Value Then MsgBox .TopLeftCell.Offset(0, -1).Value End If End With End Sub Private Sub CheckBox3_Click() With OLEObjects("CheckBox3") If .Object.Value Then MsgBox .TopLeftCell.Offset(0, -1).Value End If End With End Sub 3つや4つくらいならどうってことはないのですが十数個もあるとかなり面倒です。 OLEObjectのCheckboxでももっと簡単にする方法はないのでしょうか？ それともわたしが何かOLEObjectのCheckboxの使い方について思い違いをしているのでしょうか？ ご教示をお願いいたします。

  • エクセルVBAでShapesまたはDrawingObjects

    シート上のフォームなどを表示/非表示するためtest04を書きましたが、「実行時エラー438　オブジェクトはこのプロパティまたはメッソッドをサポートしていません」となります。 しかし、Test05のように同じことをForNextで回せばうまくいきます。 また、Test06のようにShapesをDrawingObjectsに書き換えただけでもうまくいきます。 では、Test04がエラーになるのはなぜでしょうか？ Sub test04() With ActiveSheet.Shapes If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub Sub test05() For Each sp In ActiveSheet.Shapes If sp.Visible = False Then sp.Visible = True Else sp.Visible = False End If Next End Sub Sub test06() With ActiveSheet.DrawingObjects If .Visible = False Then .Visible = True Else .Visible = False End If End With End Sub

  • エクセルのチェックボックスでの行の表示の切り替え

    エクセルでチェックボックスを使用して行の表示を切り替えています。 これに他のチェックボックスのON-OFFで表示する行を変えたいと思います。 例えばチェックボックスが3つあり チェックボックス3のON-OFFで行10-20を非表示と表示に切り替えている マクロがあります。 それをチェックボックス1がONの時は行11-20が非表示に チェックボックス2がONの時は10-19が非表示になるようにマクロに追加 するにはどうすればよいでしょうか？ ちなみにチェックボックスはActiveXの方を使用しています。 今のコードは Private Sub CheckBox3_Click() If CheckBox3 = True Then Range("10:20").EntireRow.Hidden = False Else Range("10:20").EntireRow.Hidden = True End If End Sub です。 よろしくお願いします。

  • [エクセル2007] 図形を非表示にするマクロ

    図形「図A」を非表示にするマクロがあります。 Sub 図削除() ActiveSheet.Shapes("図A").Visible = False End Sub これを図A、図B、図C・・・・・・と増やしていく場合はどうすれば良いのでしょうか？ Sub 図削除() ActiveSheet.Shapes("図A").Visible = False ActiveSheet.Shapes("図B").Visible = False ActiveSheet.Shapes("図C").Visible = False 　　　　　　　　　 　・ 　　　　　　　　　　 ・　 　　　　　　　　　　 ・ End Sub とするしかないのでしょうか？

  • エクセル　マクロ：チェックボックス　コピー

    教えてください。 sheet1にデータがあり sheet2にチェックボックスとコマンドボタンがあります。 チェックボックスにレ点を入れ、コマンドボタンを押すと sheet1の該当する列をコピーして、sheet3に貼り付ける マクロを作ろうと思ってますがうまくいきません。 下記のマクロを使えるように手直ししていただけないでしょうか。 よろしくお願い致します。 Private Sub CommandButton1_Click() Dim myrange As String Dim rmax As Long rmax = Sheets("sheet1").Range("A2").End(xlDown).Row With Sheets("sheet2") If .CheckBox1 Then myrange = myrange & ",$B$1:$B$" & rmax If .CheckBox2 Then myrange = myrange & ",$C$1:$C$" & rmax If .CheckBox3 Then myrange = myrange & ",$D$1:$D$" & rmax End With If myrange = "" Then MsgBox "チェックしてください" Exit Sub End If myrange = "$A$2:$A$" & rmax & myrange Sheets("sheet1").Range(myrange).Copy Sheets("sheet3").Range("A1").PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("sheet3").Select End Sub

  • エクセル　チェックボックスの解除について（VBA)

    YES/NOを入力させる為の下記のVBAにおいて、チェックボックス１をチェックすると、アの部分でチェックボックス２の解除を行う関係で？、シート上でチェックボックス２を操作していないのにもかかわらず、勝手にCheckBox2_Click()に入り、命令文イを実行してしまいます。 ただ単にSub CheckBox1_Click()のルーチンの最後までの処理で終わりたいのですが、どうしたらよいのでしょうか。 Private Sub CheckBox1_Click() If CheckBox1 = True Then Sheets("sheet1").Range("A1") = 1 Sheets("sheet1").Range("A2") = 0 CheckBox2 = False・・・ア Else Sheets("sheet1").Range("A1") = "" End If End Sub Private Sub CheckBox2_Click() If CheckBox2 = True Then Sheets("sheet1").Range("A1") = 0 Sheets("sheet1").Range("A2") = 1 CheckBox1 = False Else Sheets("sheet1").Range("A2") = ""・・・イ End If End Sub

  • エクセル2010　シート上のコンボボックス

    エクセル２０１０を使用しております。 シート１にコンボボックス１（アクティブＸコントロール）を設置しており、 コードは下記です。 Private Sub ComboBox1_DropButtonClick() Dim i As Long With Worksheets("シート操作").OLEObjects("ComboBox1").Object .Clear 　　 For i = 1 To 100 .AddItem i Next i End With End Sub コンボボックス１のドロップボタンで リスト１～１００の数字の中から、任意の数字を選び テキスト表示部分に表示させたいだけなのですが、 上記コードではリストから選択しても何も表示されません。 コードの誤りと詳しい説明を希望します。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する