Question

我想利用VBA向Excel的sheet中插入optionbutton ,插入的同时设置其属性(Caption等), 找了很久资料 找不到

本人小白,多谢了
ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, _
DisplayAsIcon:=False, Left:=223.5, Top:=348, Width:=108, Height:=19.5 _
).Select
ActiveSheet.OLEObjects("optionbutton1").Object.Caption = "标题1"
像上面的写法 标题1根本就没有变啊

Answer 1

应该是建立了 代码没有问题
只是多次执行后 会有新的optionbutton 覆盖在前面
你的标题1看不见了而已

Answer 2

另外,虚机团上产品团购,超级便宜

Answer 3

Sub 按钮1_Click()
Application.ScreenUpdating = False
Dim optname As String
optname = "标题" & (ActiveSheet.OptionButtons.Count + 1)
With ActiveCell
ActiveSheet.OptionButtons.Add(.Left, .Top, .Width, .Height).name = optname
End With
optname = "标题" & ActiveSheet.OptionButtons.Count
ActiveSheet.OptionButtons(optname).Caption = optname
Application.ScreenUpdating = True
End Sub