|
Option Explicit '高亮显示
Option Base 1
Dim myapp As Class1
'by cheng
Sub brightrow()
On Error Resume Next
Set myapp = New Class1
Set myapp.app = Application
End Sub
Sub stopbrightrow()
On Error Resume Next
Set myapp = Nothing
End Sub
Sub auto_open()
On Error Resume Next
Dim mybutt As CommandBarButton
Set mybutt = CommandBars("tools").FindControl(, , "brightrow", True)
If mybutt Is Nothing Then
Set mybutt = Application.CommandBars("tools").Controls.add(msoControlButton, , , , True)
mybutt.Caption = "按下高亮显示"
mybutt.OnAction = "brightrow"
mybutt.Tag = "brightrow"
End If
Dim mybutt1 As CommandBarButton
Set mybutt1 = CommandBars("tools").FindControl(, , "stopbrightrow", True)
If mybutt1 Is Nothing Then
Set mybutt1 = Application.CommandBars("tools").Controls.add(msoControlButton, , , , True)
mybutt1.Caption = "取消高亮显示"
mybutt1.OnAction = "stopbrightrow"
mybutt1.Tag = "stopbrightrow"
End If
End Sub
Sub auto_close()
On Error Resume Next
Dim mybutt As CommandBarButton
Set mybutt = CommandBars("tools").FindControl(, , "brightrow", True)
If Not mybutt Is Nothing Then
mybutt.Delete
End If
Set mybutt = CommandBars("tools").FindControl(, , "stopbrightrow", True)
If Not mybutt Is Nothing Then
mybutt.Delete
End If
End Sub
|
|