Question

excel宏实现 命名一个按钮的名称

Private Sub 删除按钮_Click()
ActiveSheet.Shapes("删除按钮").Select
Selection.Cut

' ActiveSheet.Buttons.Add(700,10,60,25).Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=400, Top:=400, Width:=100, Height:= _
25).Select
Selection.Name = "恢复按钮"
Selection.Caption = "恢复按钮" '----该语名无法实现按钮上名称显示
End Sub

Private Sub 恢复按钮_Click()
ActiveSheet.Shapes("恢复按钮").Select
Selection.Cut

' ActiveSheet.Buttons.Add(700,10,60,25).Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=200, Top:=400, Width:=100, Height:= _
25).Select
Selection.Name = "删除按钮"
Selection.Caption = "删除按钮" '----该语名无法实现按钮上名称显示
End Sub

最后一句要命名按钮上的名称无法实现，请高手答复，在线等。。。
ActiveSheet.Buttons.Add(700,10,60,25).Select

如果用此语名画按钮的话，命名是没问题，但此按钮无法执行。

Answer 1

 .Object.Caption = "恢复按钮"

另外我给你化简下代码，你看看还符合你意思吗：

方法一、
Private Sub 删除按钮_Click()
    On Error Resume Next
    ActiveSheet.Shapes("删除按钮").Delete
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=400, Top:=400, Width:=100, Height:=25)
        .Name = "恢复按钮"
        .Object.Caption = "恢复按钮"
    End With
End Sub

方法二、事先放好两个对应名称的按钮：
Private Sub 删除按钮_Click()
    On Error Resume Next
    ActiveSheet.Shapes("删除按钮").Visible = False
    ActiveSheet.Shapes("恢复按钮").Visible = True
End Sub

Private Sub 恢复按钮_Click()
    ActiveSheet.Shapes("恢复按钮").Visible = False
    ActiveSheet.Shapes("删除按钮").Visible = True
End Sub

Answer 2

按钮并不是在语句中画且命名的。
一般是画一个控件按钮。再编辑其代码。
或者编好程序功能后。再用窗体下的按钮，指向这个宏。

你的宏代码。只是实现了画一个形状，并未给这个按钮指定宏功能。

追问

手动当然会喽，关键要用宏执行命名

宏功能我会加上的

追答

我觉得你自己走进了一个死循环的圈子。

既要宏代码执行画按钮的功能。又要该按钮指向自身。

比如此图：

我复制你的代码进一个空表中，你的第一句就是“选中删除按钮”

但是你连这个按钮都没画出来。如何选中它？

同理。第2段代码。连恢复按钮都没画出来。如何选中。

我运行就出错。

追问

呵呵，首次是先手工建立好其中一个按钮后才有用，其功能就是删除一个按钮，同时生成另一个按钮

追答

其实你这个问题的初衷没有说清楚。

你设置这样的功能。有什么好处。只是想显示其中一个按钮？

Answer 3

在线等是吧？
自己录一个不就知道是怎么回事了