Практическое руководство. Добавление элементов управления диаграммой на листы

Статья
02/20/2013

Можно добавить элементы управления Chart на лист Microsoft Office Excel в настройках уровня документа во время разработки и во время выполнения.Во время выполнения также можно добавить элементы управления Chart в надстройки уровня приложения.

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Excel 2013 и Excel 2010. Дополнительные сведения см. в разделе Доступность функций по типам приложений Office и проектов.

В этом разделе описаны следующие задачи:

Добавление элементов управления диаграммы во время разработки
Добавление элементов управления диаграммы во время выполнения в проектах уровня документа
Добавление элементов управления диаграммы во время выполнения в проектах уровня приложения

Дополнительные сведения об элементах управления Chart см. в разделе Элемент управления "диаграмма".

Добавление элементов управления диаграммы во время разработки

Можно добавить элемент управления Chart к листу так же, как добавляют диаграмму из приложения.

Примечание
Элемент управления Chart недоступен в окне Панель элементов или Источники данных.

Добавление элемента управления диаграммы на лист Excel

На вкладке Вставка в группе Диаграммы щелкните пункт Столбец, выберите категорию диаграммы, и затем требуемый тип диаграммы.
В диалоговом окне Вставка диаграммы нажмите кнопку ОК.
На вкладке Конструктор в группе Данные щелкните пункт Выбор данных.
В диалоговом окне Выбор источника данных в окне Диаграмма щелкните пункт Диапазон данных и очистите все выборы по умолчанию.
На листе Данные для диаграммы, выберите диапазон ячеек, который содержит данные для диаграммы (ячейки от A5 по D8).
В диалоговом окне Выбор источника данных нажмите кнопку ОК.

Добавление элементов управления диаграммы во время выполнения в проектах уровня документа

Можно добавлять элементы управления Chart динамически во время выполнения.Динамически созданные диаграммы не сохраняются в документе при его закрытии, как элементы управления ведущего приложения.Дополнительные сведения см. в разделе Добавление элементов управления в документы Office во время выполнения.

Программное добавление на лист элемента управления Chart

В обработчике события Startup объекта Sheet1, вставьте следующий код для добавления элемента управления Chart:

Dim employeeData As Microsoft.Office.Tools.Excel.Chart
employeeData = Me.Controls.AddChart(25, 110, 200, 150, "employees")
employeeData.ChartType = Excel.XlChartType.xl3DPie

' Gets the cells that define the data to be charted.
Dim chartRange As Excel.Range = Me.Range("A5", "D8")
employeeData.SetSourceData(chartRange)

Microsoft.Office.Tools.Excel.Chart employeeData;
employeeData = this.Controls.AddChart(25, 110, 200, 150, "employees");
employeeData.ChartType = Excel.XlChartType.xl3DPie;

// Gets the cells that define the data to be charted.
Excel.Range chartRange = this.get_Range("A5", "D8");
employeeData.SetSourceData(chartRange, missing);

Добавление элементов управления диаграммы во время выполнения в проектах уровня приложения

Элемент управления Chart можно программными средствами добавлять на любой открытый лист в проекте надстройки уровня приложения.Дополнительные сведения см. в разделе Расширение документов Word и книг Excel в надстройках уровня приложения во время выполнения.

Динамически созданные элементы управления диаграммы не сохраняются на листе как ведущие элементы управления при его закрытии.Дополнительные сведения см. в разделе Добавление элементов управления в документы Office во время выполнения.

Программное добавление на лист элемента управления Chart

В следующем примере кода сначала на основе открытого листа создается ведущий элемент листа, а затем добавляется элемент управления Chart.

Private Sub AddChart()
    Dim NativeWorksheet As Microsoft.Office.Interop.Excel.Worksheet =
        Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet

    Dim worksheet As Microsoft.Office.Tools.Excel.Worksheet =
        Globals.Factory.GetVstoObject(NativeWorksheet)

    Dim cells As Excel.Range = worksheet.Range("A5", "D8")
    Dim chart As Chart = worksheet.Controls.AddChart(cells, "employees")
    chart.ChartType = Excel.XlChartType.xl3DPie
    chart.SetSourceData(cells, Type.Missing)

End Sub

private void AddChart()
{
    Worksheet worksheet = Globals.Factory.GetVstoObject(
        Globals.ThisAddIn.Application.ActiveWorkbook.ActiveSheet);


    Excel.Range cells = worksheet.Range["A5", "D8"];
    Chart chart = worksheet.Controls.AddChart(cells, "employees");
    chart.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xl3DPie;
    chart.SetSourceData(cells);
}