只要指定的数据透视图视图或数据透视表视图重画，该事件就会发生。

Private Sub Form_ViewChange(ByVal Reason As Long)

Reason   PivotViewReasonEnum 常量，表明视图有哪些改动。对于数据透视图视图，Reason 总是返回–1。

示例

下面的示例说明了捕获 ViewChange 事件的子程序的语法。为了使该示例奏效，必须设置一个对 Microsoft Office Web Components 10.0 类型库的引用。

Private Sub Form_ViewChange(ByVal Reason As Long)

    If Reason = OWC.plViewReasonShowDetails Then

        MsgBox "You've opted to show details."

    End If

End Sub