UnShelveAlarm Method Example

The following example unshelves an alarm in the Alarm Summary object, AlarmSummaryOCX1.

Public Sub UnShelveAnAlarm(NodeName As String, TagName As String)

Dim AppObj As Object

Dim PictureObj As Object

Dim CurrentObj As Object

If TypeName(Application) = "CFixApp" Then

Set AppObj = Application

Else

Set AppObj = App

If AppObj Is Nothing Then

Exit Sub

End If

End If

' Search alarm summary object and unshelve alarm

Set PictureObj = AppObj.ActiveDocument

For Each CurrentObj In PictureObj.Page.ContainedObjects

If TypeName(CurrentObj) = "AlarmSummaryOCX" Then

If CurrentObj.Name = "AlarmSummaryOCX1" Then

CurrentObj.UnShelveAlarm NodeName, TagName

Exit Sub

End If

End If

Next

End Sub