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

締切済

質問者：xxxg_01_hc
質問日時：2011/08/03 01:21
回答数：1件

現在、エクセルにて
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で楕円１個の表示/非表示はできるように
なりました。

残りの楕円２、３、４を構文内に色々当てはめてみましたが、エラーが出てしまいます。
どのように記述すれば一括表示できるでしょうか。

連投申し訳ないですが、詳しい方アドバイスを宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： DOUGLAS_
回答日時：2011/08/03 15:12

＞残りの楕円２、３、４を構文内に色々当てはめて

＞みましたが、エラーが出てしまいます。
　そのエラーの出た「構文」とエラーの内容をここにお知らせいただいた方がよいですね。

　いろいろとやり方はあろうかと存じます。
　一応、私の環境では下のでいけました。

Sub test01()
　With Worksheets("sheet2").Shapes. _
　　Range(Array("Oval 1", "Oval 2", "Oval 3", "Oval 4"))
　　.Visible = (ActiveSheet.CheckBoxes(1).Value = xlOn)
　End With
End Sub