CommandBeforeExecute Event

Occurs before a command is executed. Use this event when you want to impose certain restrictions before a command is executed.

Private Subobject**_CommandBeforeExecute (ByVal Command As Variant, ByVal Cancel As ByRef)**

*object   * A ChartSpace , PivotTable , or Spreadsheet object.

Command Required. The command that has been executed.

Cancel Required. Set the Value property of this object to True to cancel the command.

Remarks

The OCCommandId, ChartCommandIdEnum, PivotCommandId, and SpreadsheetCommandId constants contain lists of the supported commands for each of the Microsoft Office Web Components.

Example

This example refreshes PivotTable1 when the export command is invoked so that the latest data is exported to Microsoft Excel.

Sub PivotTable1_CommandBeforeExecute(Command, Cancel)

   Dim ptConstants

   Set ptConstants = PivotTable1.Constants

   ' Check to see if the Export command
   ' has been invoked.
   If Command = ptConstants.plCommandExport Then

       ' Refresh the PivotTable list.
       PivotTable1.Refresh

   End If

End Sub

Applies to | ChartSpace Object | PivotTable Object | Spreadsheet Object

See Also | CommandChecked Event | CommandEnabled Event | CommandExecute Event