共用方式為


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 值。

範例

下列程式碼範例會將預設圖表範本設定為折線圖類型。 接下來,這個範例會將新圖表加入至現用工作表,並從工作表上的已指定範圍填入 (Populate) 其來源資料。 若要執行這個程式碼範例,活頁簿中必須包含名為 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 命名空間