Chart.SetDefaultChart 方法

指定 Microsoft Office Excel 在创建新图表时使用的图表模板的名称。

命名空间:  Microsoft.Office.Tools.Excel
程序集:  Microsoft.Office.Tools.Excel(在 Microsoft.Office.Tools.Excel.dll 中)

语法

声明
Sub SetDefaultChart ( _
    Name As Object _
)
void SetDefaultChart(
    Object Name
)

参数

  • Name
    类型:System.Object
    一个字符串,表示在创建新图表时要使用的默认图表模板的名称。该名称可以标识用户定义的模板库中的图表,它也可以是指定内置图表模板的 Microsoft.Office.Interop.Excel.XlChartType 值之一。

示例

下面的代码示例将默认的图表模板设置为折线图类型。 接着,该示例将一个新图表添加到活动工作表中,并用该工作表上指定范围中的源数据来填充。. 若要运行此代码示例,工作簿必须包含一个名为 Sheet1 且具有名为 Chart_1 的图表的工作表。

Private Sub SetDefaultLineChartTemplate()
    ' Set default chart template
    Dim myChart As Microsoft.Office.Tools.Excel.Chart = _
        Globals.Sheet1.Chart_1
    myChart.SetDefaultChart(Excel.XlChartType.xlLine)

    ' Add a new chart and populate source data
    Dim myNewChart As Microsoft.Office.Tools.Excel.Chart = _
        Globals.Sheet1.Controls.AddChart( _
        Globals.Sheet1.Range("D5", "J16"), "myNewChart")
    Globals.Sheet1.Range("A1").Value2 = "Product"
    Globals.Sheet1.Range("B1").Value2 = "Units Sold"
    Dim i As Integer
    For i = 1 To 3
        Globals.Sheet1.Range("A" + (i + 1).ToString()).Value2 = "Product" + i.ToString()
        Globals.Sheet1.Range("B" + (i + 1).ToString()).Value2 = i * 10
    Next
    Dim data As Excel.Range = Globals.Sheet1.Range.Item("A1", "B4")
    myNewChart.SetSourceData(data)
End Sub
private void SetDefaultLineChartTemplate()
{
    // Set default chart template
    Microsoft.Office.Tools.Excel.Chart myChart =
        Globals.Sheet1.Chart_1;
    myChart.SetDefaultChart(Excel.XlChartType.xlLine);

    // Add a new chart and populate source data
    Microsoft.Office.Tools.Excel.Chart myNewChart = 
        Globals.Sheet1.Controls.AddChart(
            Globals.Sheet1.Range["D5","J16"],"myNewChart");                      
    Globals.Sheet1.Range["A1","A1"].Value2 = "Product";
    Globals.Sheet1.Range["B1","B1"].Value2 = "Units Sold";            
    for (int i = 1; i<4; i++)
    {
        Globals.Sheet1.Range["A" + (i + 1).ToString(),missing].Value2 = "Product" + i.ToString();
        Globals.Sheet1.Range["B" + (i + 1).ToString(),missing].Value2 = i * 10;
    }
    Excel.Range data = Globals.Sheet1.Range["A1", "B4"];
    myNewChart.SetSourceData(data, missing);
}

.NET Framework 安全性

请参见

参考

Chart 接口

Microsoft.Office.Tools.Excel 命名空间