Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7116 / 13646 ツリー ←次へ | 前へ→

【41043】checkboxのサイズ てっちゃん 06/7/28(金) 11:41 質問[未読]
【41045】Re:checkboxのサイズ Blue 06/7/28(金) 12:02 発言[未読]
【41078】Re:checkboxのサイズ てっちゃん 06/7/28(金) 17:08 質問[未読]
【41082】Re:checkboxのサイズ Blue 06/7/28(金) 17:35 発言[未読]
【41120】Re:checkboxのサイズ てっちゃん 06/7/31(月) 7:46 お礼[未読]

【41043】checkboxのサイズ
質問  てっちゃん  - 06/7/28(金) 11:41 -

引用なし
パスワード
   こんにちは、くだらない質問でしたらすみません。
checkboxのサイズは、変更(大きく)する事は可能なのですか?
教えて下さい。
自分には少し小さく感じてしまうので、もう少し大きくしたいのですが・・・。
よろしくお願いします。

【41045】Re:checkboxのサイズ
発言  Blue  - 06/7/28(金) 12:02 -

引用なし
パスワード
   シート上のコントロールツールボックスから配置したチェックボックス
および
UserForm上のチェックボックス
を「Microsoft Forms 2.0 Frame」を使って大きくする方法です。

http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=29056&no=0&P=v61k3&KLOG=187

聞きたいことが違うのであれば、再度なにを聞きたいのか明確にして質問してください。
(いまの質問では、不明確な点が多いですので)

【41078】Re:checkboxのサイズ
質問  てっちゃん  - 06/7/28(金) 17:08 -

引用なし
パスワード
   ▼Blue さん:
>シート上のコントロールツールボックスから配置したチェックボックス
>および
>UserForm上のチェックボックス
>を「Microsoft Forms 2.0 Frame」を使って大きくする方法です。
>
>http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=29056&no=0&P=v61k3&KLOG=187
>
>聞きたいことが違うのであれば、再度なにを聞きたいのか明確にして質問してください。
>(いまの質問では、不明確な点が多いですので)

ありがとうございます。もう一度説明させていただきますと、formにframeを貼り付け、その中にtextbox、checkboxが複数貼り付けてあるのですが、プロパティのzoomはframeを選択した時はあるのですが、checkboxを選択するとないです。frameのプロパティのzoomを変更すると、frameの中にあるtextbox、checkboxが全て拡大されてしまいます。checkboxのみ(四角い部分)を大きくしたいのです。

【41082】Re:checkboxのサイズ
発言  Blue  - 06/7/28(金) 17:35 -

引用なし
パスワード
   ▼てっちゃん さん:
>ありがとうございます。もう一度説明させていただきますと、formにframeを貼り付け、その中にtextbox、checkboxが複数貼り付けてあるのですが、プロパティのzoomはframeを選択した時はあるのですが、checkboxを選択するとないです。frameのプロパティのzoomを変更すると、frameの中にあるtextbox、checkboxが全て拡大されてしまいます。checkboxのみ(四角い部分)を大きくしたいのです。

CheckBoxの左の四角の部分だけにFrameをおくのです。

┌Frame ─────────┐
│ ┌───────┐  │
│ │       │  │
│ └───────┘  │
│            │
│ □ CheckBox1     │
│            │
│ □ CheckBox2     │
│            │
└────────────┘

の場合


┌Frame ─────────┐
│ ┌───────┐  │
│ │       │  │
│ └───────┘  │
│┌─┐         │
││ │CheckBox1     │
│└─┘         │
│ □ CheckBox2     │
│            │
└────────────┘

のように 、すでにあるCheckBox1の四角の上にFrameを配置する。(四角が隠れるように)
FrameのCaptionを消して、そのFrameの上にCheckBoxを乗せる。
そのとき、CheckBoxのCaptionも消して四角だけにする。
そして、FrameのZoomを適当に設定し、最後にFrameのBorderStyleを
fmBorderStyleSingleにBorderColorを「ボタンの表面」に設定。

これで見た目だけは四角だけが大きくなったように見える。

最後に、かぶせたチェックボックスと連携しないといけないのでそのコードを
追加する。

既存のチェックボックスを CheckBox1
追加して四角だけのチェックボックスを CheckBox2 とすると
コードはこんな感じ

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

Private Sub CheckBox2_Click()
  CheckBox1.Value = CheckBox2.Value
  CheckBox1.SetFocus
End Sub

【41120】Re:checkboxのサイズ
お礼  てっちゃん  - 06/7/31(月) 7:46 -

引用なし
パスワード
   おはようございます。返事が遅くなりました。
なるほどです。少し頭を柔らかくして考えないと思いつきませんね^^
ありがとうございました。

7116 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free