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

名前

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

本文 エクセルでアンケートを作っているので、オプションボタンを大量に作る必要があり、マクロを組んでいます。100行に渡る質問（I=1 to 100)で、各行にYes,No,N/Aの３ケのボタン（J=1 TO ３）を自動で作成したいのです。 ボタンは作成できるのですが、その後で、Caption,LinkｄCell、GroupNameなどを設定する方法が判りません。どなたか教えてください。 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 Next J Next I