Fire Notification When Activating a Sheet Example (VBA)
This example shows how to fire a notification when a sheet is activated in a
drawing document:
Main module
'---------------------------------------------------------------
' Preconditions: Open a drawing document with two or more sheets.
'
' Press F5 to run this macro, then:
' 1. Click an inactive sheet's tab to activate it.
' A message box informs you that a sheet is about to be
activated.
' 2. Click OK to close the message box.
' A message box informs you that a sheet was activated.
' 3. Click OK to close the message box.
'
' Postconditions: None
'---------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swDrawEvents As Class1
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
'Set up events
Set swDraw = swModel
Set swDrawEvents = New Class1
Set swDrawEvents.swDraw = swApp.ActiveDoc
End Sub
Class module
Option Explicit
Public WithEvents swDraw As SldWorks.DrawingDoc
Private Function swDraw_ActivateSheetPreNotify(ByVal
SheetName As String) As Long
MsgBox "A sheet is about to be activated."
End Function
Private Function swDraw_ActivateSheetPostNotify(ByVal
SheetName As String) As Long
MsgBox "A sheet was activated."
End Function