在 Excel 中使用 VBA 更改 ActiveX 命令按钮的名称
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/10641683/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Change Name of ActiveX Command Button using VBA in Excel
提问by Ehudz
I am trying to change the name property of ActiveX command buttons with VBA with the following code:
我正在尝试使用以下代码使用 VBA 更改 ActiveX 命令按钮的名称属性：
Set shp = ActiveSheet.Shapes(Selection.Name)
With shp.OLEFormat.Object
.Object.Caption = "Node" & Str(NumNodes)
.Name = "Node" & Str(NumNodes)
End With
I am able to change the caption name, but the name property cannot be changed with the above code. I need to find a way to concatenate a string with an int (NumNodes) for the name property.
我可以更改标题名称，但无法使用上述代码更改名称属性。我需要找到一种方法来将字符串与 name 属性的 int (NumNodes) 连接起来。
UPDATE
更新
This is the full subroutine which copies a command button and pastes it to a specific cell location. Properties, such as the name and caption are also changed upon button creation.
这是复制命令按钮并将其粘贴到特定单元格位置的完整子例程。名称和标题等属性也会在按钮创建时更改。
Public Sub Node_Button_Duplication()
'
'Comments: Copies and pastes Node 1's button to the appropriate column
Dim shp As Shape
' Copy Node 1 button and paste in appropriate location
ActiveSheet.Shapes("CommandButton1").Select
Selection.Copy
Cells(5, 10 + 7 * (NumNodes - 1) - 1).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 47.25
Selection.ShapeRange.IncrementTop -13.5
Set shp = ActiveSheet.Shapes(Selection.Name)
With shp.OLEFormat.Object
.Object.Caption = "Node" & Str(NumNodes)
.Name = "Node" & Str(NumNodes)
End With
End Sub
回答by Siddharth Rout
Is this what you are trying?
这是你正在尝试的吗？
Set shp = ActiveSheet.Shapes(Selection.Name)
shp.Name = "Node" & Str(NumNodes)
With shp.OLEFormat.Object
.Object.Caption = "Node" & Str(NumNodes)
End With
FOLLOWUP
跟进
Just tried this and it works...
刚试过这个，它有效......
Public Sub Node_Button_Duication()
Dim shp As Shape
Dim NumNodes As Long
ActiveSheet.Shapes("CommandButton1").Select
Selection.Copy
Cells(5, 10 + 7 * (NumNodes - 1) - 1).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 47.25
Selection.ShapeRange.IncrementTop -13.5
NumNodes = 5
Set shp = ActiveSheet.Shapes(Selection.Name)
shp.Name = "Node" & Str(NumNodes)
With shp.OLEFormat.Object
.Object.Caption = "Node" & Str(NumNodes)
End With
End Sub
MORE FOLLOWUP
更多跟进
Try this
尝试这个
Set shp = ActiveSheet.Shapes(Selection.Name)
With shp.OLEFormat.Object
.Object.Caption = "Node" & Str(NumNodes)
.Name = "Node" & NumNodes
End With
Notice, I changed Str(NumNodes)to NumNodes?
请注意，我更改Str(NumNodes)为NumNodes?
The ActiveX Control Names cannot have spaces :)
ActiveX 控件名称不能有空格 :)
Try now.
现在试试。
SNAPSHOT
快照
