vb excel 单选框分组

现在又遇到难题，就是关于单选框分组问题
代码如下：
'引用MS excel 11.0
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'--------------设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")

ActiveSheet.OLEObjects.Add(ClassType:="Forms.frame.1", Link:=False, DisplayAsIcon:=False, Left:=65, Top:=140, Width:=90, Height:=80).Select
ActiveSheet.OLEObjects("frame1").Object.Caption = "显示位置"
ActiveSheet.OLEObjects("frame1").Object.BackColor = vbWhite

ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, DisplayAsIcon:=False, Left:=70, Top:=155, Width:=60, Height:=20).Select
ActiveSheet.OLEObjects("optionbutton1").Object.Caption = optguangshen.Caption