Question

用VBA在excel中建立一个标签控件,然后设置其格式，求代码

需要某个触发，才执行此程序。
比如说，点击一下按钮，就新建一个标签，再进行格式的设置。

Answer 1

Sub 增加表()
Sheets.Add
ActiveSheet.Name = "新表"
End Sub

追问

不是新建表，是个Label之类的控件

追答

Sub lau()
Dim newlb As Label
Set newlb = ActiveSheet.Labels.Add(0, 0, 0, 0)
With newlb
.Caption = "新标签"
.Name = "新标签名字"
.Top = 100
.Left = 100
.Width = 100
.Height = 100
End With
End Sub
或直接Set newlb = ActiveSheet.Labels.Add(Left , Top , Width , Height )