オプションボタンの大量作成マクロ (ID:106671)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自分も、以前に同様の処理でハマりました。
マクロの自動生成してもなぜか作ってくれないんですよね^^;

自分はその時「すぐに役立つエクセルＶＢＡマクロ集」さんで勉強させて
いただきました
http://plaza18.mbn.or.jp/~Happy/

で、結論ですがActiveSheet.OLEObjects.Addはオブジェクトの作成なので、
この「オプションボタンを作る」段階ではオプションボタン固有のプロパティ
CaptionやGroupNameの設定はできないようです。

なので、出来上がったオプションボタンをオブジェクト変数に格納して、
個々に設定を入れていく、という方法を取りました。

下記のロジックでだいたい実現できているかと思います。参考までに。
'========================================================
Dim opt(100, 3) As Object

For i = 1 To 100
    For j = 1 To 3
        ActiveSheet.OLEObjects.Add( _
            ClassType:="Forms.OptionButton.1", _
            Link:=False, _
            DisplayAsIcon:=False, _
            Left:=100 + 20 * J, _
            Top:=50 + 40 * I, _
            Width:=72, _
            Height:=25.5).Select

Set opt(i, j) = ActiveSheet.OLEObjects("OptionButton" & ((i - 1) * 3) + j).Object

Select Case j
        Case 1
            opt(i, j).Caption = "Yes"
        Case 2
            opt(i, j).Caption = "No"
        Case Else
            opt(i, j).Caption = "N/A"
        End Select

opt(i, j).GroupName = "Grp" & i

Next j
Next i
'========================================================

←解決時は質問者本人がここをチェックしてください。

戻る