[[20230615094519]]　『チェックボックスを大きく表示したい』（まみー）　ページの最後に飛ぶ

『チェックボックスを大きく表示したい』（まみー）

エクセルでチェックボックスを使用する際、アクティブXコントロールからチェックボックスを選択してコントロールの書式設定・オブジェクトの位置関係でサイズ変更するを選んでもを、チェックボックス自体を大きく変更することができず、チェックを入れることもできません。

出力サイズA3にてチェックボックスを複数配置したいのですが、非常にチェックボックスが小さくなり、わかりづらくなっています。

お分かりの方、ご教示いただけますでしょうか。
よろしくお願い申し上げます。

＜使用 Excel：Excel2016、使用 OS：Windows11 ＞

 列幅や行高の変更に「つられて」サイズ変更させる手法でしょう。
 これ、複数の行列に跨って列幅や行高を変更する必要があるっぽいですね。

エクセルでチェックボックスの大きさを変更する方法は？
https://excel-doctor.jp/checkbox-size/

 なんか、せっかくサイズ変えても変更後のサイズを維持するのが厳しい様に思えます。
 その後デザインモードでチェックボックスを直接触ったら「□」やフォントのデカさがリセットされます。

 印刷の都合という観点からは、実はあんまりオススメな手法ではないのかも知れませんね。

（白茶） 2023/06/15(木) 10:32:18

 チェックボックスを文字で表現する事は出来そうですので、
     例) =UNICHAR([LinkedCellの値]+9744) 等

 チェックボックス本体は PrintObject を False に設定しておいてシート上で文字列で表現する。
 あるいはそこからリンクさせた[横書きテキストボックス]や[ワードアート]で表現する 等、
 ちょっと回りくどいですけど、
 サイズ調整が容易で、印刷の都合に特化した手法を採用するのも良さそうですね。

（白茶） 2023/06/15(木) 13:51:22

白茶さま
ありがとうございます。
試してみます！
（まみー） 2023/06/15(木) 17:40:08

 あ! でもでも視認性の高さで言うと「□■」の方が断然上なんですぜ!

   □CheckBox1
   ■CheckBox2
   □CheckBox3

（白茶） 2023/06/15(木) 18:32:03

 Activex コントロールのラベルを使用して作成してみた。

 ラベルをシートに貼り付けたら
 右クリック→プロパティ→左欄のBorderStyleの右欄クリック→右端の▼をクリックして
 [1-fmBorderStyleSingle]を選択→その下のCaptionの右欄の文字[Label1]を
 ドラッグで選択して[Delete]で削除
 プロパティウィンドウの右上の☒で閉じる。
 ラベルを好みの大きさに調整する。
 必要な数だけコピーする。
 開発タブのデザインをオフにする。

 白黒反転タイプ □■

 Private Sub Label1_Click()
   If Label1.BackColor = vbBlack Then
     Label1.BackColor = vbWhite
   Else
     Label1.BackColor = vbBlack
   End If
 End Sub

 チェックボックスタイプ□☑

 Private Sub Label1_Click()
   If Label1.Caption = "✓" Then
     Label1.Caption = ""
   Else
     Label1.Caption = "✓"
   End If
 End Sub

 両方ともシートモジュールに記載する。

 チェックの変換候補にある「✓」は VBE では使用できないので
 タスクバーの右端にある IME を右クリックし「IMEパッド」を表示させて
 文字カテゴリーで「シフトJIS→外字」で「✓」を選択して使用する。

 「✓」の大きさはプロパティウィンドウのフォントで調整する

これで大きさは自由自在にできますよ。

（IT） 2023/06/19(月) 22:26:52

 A1 をリンクセルに指定する

 Private Sub Label1_Click()
   If Label1.Caption = "✓" Then
     Label1.Caption = ""
     Range("A1") = False
   Else
     Label1.Caption = "✓"
    Range("A1") = True
   End If
 End Sub

 ☑の時 B1:C1 を合計する。

    |[A]   |[B]|[C]|[D]
 [1]|TRUE☑| 10| 20| 30
 D1=IF(A1=TRUE,SUM(B1:C1),"")

これでリンクセルの代用ができます

（IT） 2023/06/22(木) 17:01:42

コメント返信：

[ 一覧(最新更新順) ]

[[20230615094519]] 『チェックボックスを大きく表示したい』（まみー） ページの最後に飛ぶ

[[20230615094519]]　『チェックボックスを大きく表示したい』（まみー）　ページの最後に飛ぶ