オプションボタン

エクセルで、オプションボタンを綺麗に整列させるにはどのようにすればいいでしょうか？
図形の調整では出来なかったのですが、方法はありますか？

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2006/04/17 03:56

Excel 2003 です。

1) シート上に配置した「フォーム」のオプションボタンでしょうか？

2) シート上に配置した「コントロール ツールボックス」のオプションボタンでしょうか？

3) ユーザーフォーム上に配置したオプションボタンでしょうか？

1 と 2 の場合、複数のオプションボタンを選択した状態で [図形の調整]-[配置/整列]-[左揃え] などが使えます。

3 の場合、複数のオプションボタンを選択した状態で VBE の [書式]-[整列]-[左] などが使えます。

この回答へのお礼

すみません。
できました。
ありがとうございます。

お礼日時：2006/04/19 22:35

No.2 回答者： imogasi 回答日時： 2006/04/17 23:43

＞エクセルでのコントロール、といっても

＃１で述べられているように
（１）ワークシート上に貼り付け
　　　Ａ．アクチブＸ（コントロールから）
　　　Ｂ・フォーム（フォームから）
（２）ユーザーフォーム上に貼り付け
の区別があります。
http://j-walk.com/ss/excel/tips/tip84.htm
（１）の場合
　Ｘ．セルのＴｏｐやＬｅｆｔに関連付ける場合（セルの行高を一定にして）
　Ｙ．そうでない場合

Ｙの場合のＶＢＡでやってみました。
Sub test01()
Dim cCont As Object
t = 100
n = 0
For Each cCont In Worksheets("Sheet1").DrawingObjects
n = n + 100
cCont.Top = n
n = n + 1
cCont.Left = 100
Next cCont
End Sub
ーー
Ｘの場合は、
Sub test02()
Dim cCont As Object

i = 1
For Each cCont In Worksheets("Sheet1").DrawingObjects
cCont.Top = Cells(i, "A").Top
i = i + 1
cCont.Left = Cells(i, "B").Left
Next cCont
End Sub
出できそうです。