目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

176 / 277

←次へ　｜　前へ→

【113】シート上アクティブXコントロールのフレーム(Frame)とオプションボタン

Jaka - 05/10/11(火) 11:43 -


	引用なし

	パスワード

その１　シート上アクティブXコントロールのフレーム(Frame)とオプションボタン

・シート上にフレームの作るには。
　コントロールツールボックスのコントロールの選択の中から、「Micrsoft Forms 2.0 Frame」を選んで作成。

　注）作ったフレーム上にアクティブＸコントロールのOptionボタンを作っても、
　　　１つ１つのパーツでしかないためか、デザインモードを解除すると、
　　　なぜかボタン類が後ろに隠れてしまう。

・フレームの上にOptionボタンを作るには。
　デザインモードにしてから、
　フレームを右クリック　→　フレームオブジェクト　→　編集
　で、出てきたツールボックスから作る。

・作ったOptionボタンのCaptionを編集するには。
　フレームを上記、編集状態にして、Optionボタン右クリック　→　プロパティ
　で、変更できます。

----------------------------------
○上記方法で作ったOptionボタンのCaptionを取得する。

下の１，２のコードは、フレームがあるシートモジュール、標準モジュールのどちらからでも取得できます。
シート上コマンドボタンの場合、プロシジャー名を
Private Sub CommandButton1_Click()
等に置き換えてください。

by Win98se & EXCEL2000 SR-1
　 Win2000SP3 & EXCEL97 SR-2

１、
Sub 選択されたフレーム上OPTボタンのCaption取得()
　　With Worksheets("Sheet1").Frame1
　　　　For i = 0 To .Controls.Count - 1
　　　　　　If .Controls(i).Value Then
　　　　　　　 MsgBox .Controls(i).Caption
　　　　　　　 Exit For
　　　　　　End If
　　　　Next
　　End With
End Sub

２、
Sub 選択されたフレーム上OPTボタンのCaption取得OLE版()
　　With Worksheets("Sheet1").OLEObjects("Frame1").Object
　　　　For i = 0 To .Controls.Count - 1
　　　　　　If .Controls(i).Value Then
　　　　　　　 MsgBox .Controls(i).Caption
　　　　　　　 Exit For
　　　　　　End If
　　　　Next
　　End With
End Sub

3,703 hits