Sub lau()
  Dim newlb As Label
  Dim hdbm As String
  On Error Resume Next
  hdbm = ActiveSheet.Name
  Sheets(hdbm).Labels("zidongsx").Delete
  Set newlb = Sheets(hdbm).Labels.Add(388.5, 2.5, 42.5, 15.3)
  With newlb
    .Name = "zidongsx"
    .Caption = ""
    .OnAction = "zidongsx"
  End With
End Sub

只读属性可以在属性栏手动设置，代码无法设置的。

创建命令按钮也出现这种情况，但只有不超过3个就不提示。这个是自动创建标签，且只创建一个就出问题，vba下是没问题的