[已解决]vb编辑器里的“继续”按钮放在excel里的工具栏

xdwy81129

如题，希望可以把vb编辑器里面的“继续”按钮能放在excel里面的工具栏里面

图如下：

vb编辑器里的“继续”按钮放在excel里的工具栏

最佳答案

月排行榜 / 总排行榜

amulee

2010-8-23 15:24

'创建菜单
Sub CreateMenu()
    Dim Menu As CommandBarButton
    Set Menu = Application.CommandBars(1).Controls.Add( _
        Type:=msoControlButton, temporary:=True)
        Menu.Caption = "继续"
        Menu.FaceId = 186
        Menu.OnAction = "Exce"
   
End Sub
'删除菜单
Sub DeleteMenu()
    On Error Resume Next
    Application.CommandBars(1).Controls("继续").Delete
    On Error GoTo 0
End Sub
'执行继续按钮
Sub Exce()
    Application.VBE.CommandBars(4).Controls(3).Execute
End Sub

跳转到最佳答案楼层

爱疯

vb编辑器里的“继续”按钮放在excel里的工具栏

[em09]

xdwy81129

QUOTE:

以下是引用爱疯在2010-8-22 16:45:00的发言：

[em09]

你发的是visual basic工具栏，我问的不是这个

问的是：vb编辑器里面的“继续”按钮

能放在excel里面的工具栏里面不？？ 

是下面的这个按钮：

xdwy81129

自己来顶顶

amulee

'创建菜单
Sub CreateMenu()
    Dim Menu As CommandBarButton
    Set Menu = Application.CommandBars(1).Controls.Add( _
        Type:=msoControlButton, temporary:=True)
        Menu.Caption = "继续"
        Menu.FaceId = 186
        Menu.OnAction = "Exce"
   
End Sub
'删除菜单
Sub DeleteMenu()
    On Error Resume Next
    Application.CommandBars(1).Controls("继续").Delete
    On Error GoTo 0
End Sub
'执行继续按钮
Sub Exce()
    Application.VBE.CommandBars(4).Controls(3).Execute
End Sub

xdwy81129

QUOTE:

以下是引用amulee在2010-8-23 15:24:00的发言：
'创建菜单
Sub CreateMenu()
    Dim Menu As CommandBarButton
    Set Menu = Application.CommandBars(1).Controls.Add( _
        Type:=msoControlButton, temporary:=True)
        Menu.Caption = "继续"
        Menu.FaceId = 186
        Menu.OnAction = "Exce"
   
End Sub
'删除菜单
Sub DeleteMenu()
    On Error Resume Next
    Application.CommandBars(1).Controls("继续").Delete
    On Error GoTo 0
End Sub
'执行继续按钮
Sub Exce()
    Application.VBE.CommandBars(4).Controls(3).Execute
End Sub

感谢感谢阿木老师，这样都做到了。谢谢谢谢。

tcwuning01

为什么 我运行了之后 会提示   未找到宏 "****.xls!Exce”.

求解！