VBAで、指定した範囲のセルにチェックボックスを埋め込みたい

Question

前提・実現したいこと

Microsoft360のエクセルを使っています。
VBAで指定した範囲のセルにチェックボックスを埋め込みたいのですが、セルとは関係なく生成されるので困っています。
GASで作ったスクリプトを移植しているのですが、GASのようにセルに埋め込むように扱えないでしょうか？

試したこと

マクロの記録をオンにしたまま、生成した後セルに埋め込んでみましたが、座標を指定して移動させるように記録されていて一般化できませんでした。

Answer 1

「リンクするセル」を使ってみてはいかがでしょうか。
エクセルのチェックボックスの挿入

【エクセル】チェックボックスのリンクするセルを自動で指定【excel】

チェックボックスの位置についてはこちらも
【VBA】チェックボックスの作成と活用例

意図するものと違ったら申し訳ないです。

Comments

[halmichi]

ありがとうございます。
参考になりました。

Answer 2

VBA - 選択したセルの文字列を変更しようとすると文字の大きさが変わってしまう、複数選択でも動くようにしたい｜teratail
の質問の関連ですね。

セルに埋め込むことはできませんが、セルの上に配置すれば、セルのサイズを変更したりしても一緒に移動するので同じことだと思います。

前の質問の画像のように配する場合、VBAでセル上に配置する方法はすでに他の方の回答でリンクが紹介されていますので、手作業で配置する方法を紹介しておきます。

リンク先では、□ 　　□リハ の２つのチェックボックスかグループ化されていますので、まず、
配置したいセル範囲の左上のセルとその右のセルに２つのActiveXコントロールのチェックボックスを配置します。（例えば、A1セルとB1セル）右のチェックボックスはプロパティの Enable を False に設定しておきます。
２つのセルに配置出来たら、その２つのセルを選択します。選択範囲の右下隅(フィルハンドル）を下にドラッグします。するとドラッグしただけチェックボックスが複製されます。
次に、生成されたチェックボックス全体のセル範囲を選択してフィルバンドルを右にドラッグします。
横方向にも複製されます。このようにすれば希望のセル範囲に簡単にチェックボックスを配置出ます。

あとは、VBAで各チェックボックスのクリックイベントを設定することになります。

Private Sub CheckBox1_Click()
    CheckBox2.Enabled = CheckBox1.Value
End Sub

CheckBox1をクリックするとチェックの有無でとなりのチェックボックス（CheckBox2）の使用可能か不可が切り替わります。

このイベントプロシージャをチェックボックスの数だけ記述することになりますが、これが無駄だと思ったら、クラスモジュールを使って共通化することも可能です。

複数のコントロールのイベントを一つのプロシージャにまとめる(ExcelVBA) - パソコンカレッジ　スタッフのひとりごと

Comments

[halmichi]

ありがとうございます。
もう少しで実装できそうです。
前の質問でもお世話になったのでベストアンサーにさせていただきます。

Answer 3

やめておいた方がよいと思います。

疑似的にやるのであれば、ワークシートチェンジイベントで操作セルを取得し
□を■に塗りつぶすなどの処理とかでしょうか・・・。

Comments

[halmichi]

ありがとうございます。