|
在 ThisWorkbook 里面加代码
Private Sub Workbook_Open()
Call 模块8.CreateMeasureMenu
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
CommandBars("自定义菜单工具箱").Delete
End Sub
在模块8 里面加代码
Sub CreateMeasureMenu()
GPSFlag = False '默认不定位数据
Dim MyBar As CommandBar
Dim MyButton As CommandBarButton
Set MyBar = CommandBars.Add(Name:="自定义菜单工具箱", Position:=msoBarFloating, temporary:=True)
With MyBar
.Top = 300 '125
.Left = 1000 '680
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "合并开始(&F)"
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "合并开始"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "合并更新(&C)"
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "合并更新"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "合并计算(&M)"
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "合并计算"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
.Visible = True
End With
End Sub
Sub 合并开始()
'代码....
End Sub
Sub 合并更新()
'代码....
End Sub
Sub 合并计算()
'代码....
End Sub |
|