To script the Comparison command button to make a comparison and return an alert:
Use the Object browser to navigate to Application, then Methods, and then double-click Alert.
Navigate to ActiveDocument, then Sections, then RevByTime, then Properties and then double-click ChartType.
Your script should look like this:
Application.Alert(ActiveDocument.Sections["RevByTime"].ChartType)
Type the comparison operator (==) after the property ChartType.
Navigate to Constants, then BqChartType and then double-click bqChartTypeVerticalBar.
Your script should now look like this:
Application.Alert(ActiveDocument.Sections["RevByTime"].ChartType==bqChartTypeVerticalBar)
In Run mode, click the Comparison button. The alert displays true if the chart is a vertical bar chart, false if the chart is any other chart type.