Question

如何用VBA向Word中添加CheckBox控件并修改属性

Answer 1

vb和vba还是有区别的，尽管他们的语法大致相同。
1应该是控件编号，如果是手动画控件，第一个的编号默认为1

至于为添加的控件添加代码，百度有很多

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

’将程式码复制到Module中,然後执行 GetOption程序
Sub GetOption()
Dim TempForm 'As VBComponent
Dim NewOptionButton As MSForms.OptionButton
Dim LeftPos As Integer
Dim X As Integer, i As Integer, TopPos As Integer
' 隐藏VBE视窗预防萤幕更新
Application.VBE.MainWindow.Visible = False
' 动态新增UserForm
Set TempForm = ActiveWorkbook.VBProject.VBComponents.Add(3)
' 新增 OptionButtons
LeftPos = 4
k = 1
TopPos = 5
For i = 1 To 3
LeftPos = 4
For j = 1 To 10
'动态新增OptionButton控件
Set NewOptionButton = _
TempForm.Designer.Controls.Add("forms.OptionButton.1")
With NewOptionButton
.Width = 60
.Caption = k & "℃"
.Height = 15
.Left = LeftPos
.Top = TopPos
.Tag = k & "℃"
.AutoSize = True
End With
LeftPos = LeftPos + 30
k = k + 1
Next j
TopPos = i * 20 + 5
Next i
'【写入Click 事件】
For i = 1 To 30
With TempForm.CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub OptionButton" & i & "_Click()"
.InsertLines X + 2, " Cells(8, 8) = Me.ActiveControl.Tag"
.InsertLines X + 3, "End Sub"
End With
Next i
With TempForm
.Properties("Caption") = "温度选项"
.Properties("Width") = LeftPos + 20
.Properties("Height") = TopPos + 20
.Properties("Left") = 160
.Properties("Top") = 150
End With
'显示窗体
VBA.UserForms.Add(TempForm.Name).Show
'关闭後一橱窗体
ActiveWorkbook.VBProject.VBComponents.Remove VBComponent:=TempForm
End Sub