修改图表的属性和格式。
语法
              expression。 
              ChartWizard
               ( varSource,varGallery,varFormat,varPlotBy,varCategoryLabels,varSeriesLabels,varHasLegend,varTitle,varCategoryTitle,varValueTitle,varExtraTitle ) 
expression:一个表示 Chart 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 | 
|---|---|---|---|
| varSource | 可选 | Variant | 新图表的源数据。 如果省略 varSource 参数,Project 将编辑活动报表或活动报表上的所选图表。 | 
| varGallery | 可选 | Variant | Office.XlChartType 枚举的常量之一,该常量指定图表类型。 | 
| varFormat | 可选 | Variant | 内置自动套用格式的选项编号。 可为从 1 到 10 的数字,其取值依赖于库的类型。 如果省略 varFormat 参数,Project 将根据库类型和数据源选择默认值。 | 
| varPlotBy | 可选 | Variant | 指定每个数据系列的数据行或列中。 可以是以下 Office.XlRowCol 常量之一: xlRows 或 xlColumns。 | 
| varCategoryLabels | 可选 | Variant | 指定包含分类标签的源范围内的行数或列数的整数。 值可以是 0 (零) 到小于相应类别或系列的最大数目的 1。 | 
| varSeriesLabels | 可选 | Variant | 指定包含系列标签的源范围内的行数或列数的整数。 值可以是 0 (零) 到小于相应类别或系列的最大数目的 1。 | 
| varHasLegend | 可选 | Variant | 将 True 设置为包含图例。 | 
| varTitle | 可选 | Variant | 图表标题。 | 
| varCategoryTitle | 可选 | Variant | 类别轴标题。 | 
| varValueTitle | 可选 | Variant | 数值轴标题。 | 
| varExtraTitle | 可选 | Variant | 3D 图表的系列轴标题或 2D 图表的第二个值轴标题。 | 
| varSource | 可选 | Variant | |
| varGallery | 可选 | Variant | |
| varFormat | 可选 | Variant | |
| varPlotBy | 可选 | Variant | |
| varCategoryLabels | 可选 | Variant | |
| varSeriesLabels | 可选 | Variant | |
| varHasLegend | 可选 | Variant | |
| varTitle | 可选 | Variant | |
| varCategoryTitle | 可选 | Variant | |
| varValueTitle | 可选 | Variant | |
| varExtraTitle | 可选 | Variant | 
返回值
Nothing
备注
使用 ChartWizard 方法可快速设置图表的格式,而无需设置所有单独的属性。 本方法是非交互式的,并且仅更改指定的属性。 AutoFormat 方法可以执行与调用 ChartWizard 相同的作业,该调用仅使用 varGallery 和 varFormat 参数。
如果省略 Source 参数,并且所选内容不是活动报表上的嵌入图表,或者活动报表不包含图表, 则 ChartWizard 方法将失败并发生错误。
示例
以下示例将活动报表上的图表重新格式化为折线图,添加图例,并添加类别和数值轴标题。
Sub TestChartWizard()
    Dim chartShape As Shape
    Dim reportName As String
    
    reportName = "Simple scalar chart"
    Set chartShape = ActiveProject.Reports(reportName).Shapes(1)
    
    chartShape.Chart.ChartWizard varGallery:=xlLine, varHasLegend:=True, varCategoryTitle:="Task", varValueTitle:="Hours"
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。