OnRecalculateHyperlinks Event

       

Occurs before the hyperlink structure in the Hyperlinks view is recalculated to view any changes made to the web.

Private Sub expression_OnRecalculateHyperlinks(ByVal pWeb As Web, Cancel As Boolean)

expression   An object of type Application declared with events in a class module.

pWeb   The WebEx object that contains the view.

Cancel   A Boolean that determines if the event will be cancelled. If False, the event will not be cancelled. If True, the event will be cancelled .

Example

The following example prompts the user before recalculating the hyperlink structure. If the user accepts, the event will continue and the hyperlinks will be recalculated.

Private Sub objApp_OnRecalculateHyperlinks(ByVal pWeb As Web, Cancel As Boolean)
'Occurs when the current web's hyperlinks are recalculated.

    Dim strAns As String
    strAns = MsgBox("This action will cause the hyperlinks structure to be recalculated. " _
                     & "Do you want to continue?", vbYesNo)
    'Set value of Cancel argument to users' response
    If strAns = vbYes Then
        Cancel = False
    Else
        Cancel = True
    End If

End Sub