エクセルＶＢＡ チェックボックスについて

質問

ＶＢＡ初心者です。
あるシート（セル）に作った入力用チェックボックスにチェック（ＴＲＵＥ）を入れたときに、別シートの特定の位置に楕円を引きたいのですが、どのようなやり方があるでしょうか。
使い方は入力用シートと印刷用シートを分けて、入力用シートのチェックボックスの状態で印刷用シートの特定のセルに選択したことがわかるように楕円をつけたいというものです。
よろしくお願いします。

回答No.2

merlionXX · ベストアンサー

どうしてもということであれば・・・

１．印刷用シートのご希望の位置にオートシェープの楕円を配置します。
２．その楕円に名前ボックスで「楕円君」と名前を付けます。
３．入力用シートにフォームのチェックボックスを配置します。
４．このチェックボックスに以下のマクロをセットします。

Sub TEST()
Dim x As Variant
x = IIf(ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn, True, False)
Sheets("印刷用シート").Ovals("楕円君").Visible = x
End Sub

回答No.1

papayuka

私見ですが、あまり良い実装と思いません。
入力用と印刷用の両方にチェックボックスを置いて、プロパティで LinkedCell を共有の設定（例えば Sheet1!A1）にすればコードの記入すら不要ですよ。