Создание диаграммы в PowerPoint 2010 с помощью новой объектной модели

  • Статья

Баннер быстрых заметок Office

Начало работы с возможностями расширения Office 2010: создание программным путем диаграммы в PowerPoint 2010 на основе данных из Excel 2010.

Дата последнего изменения: 29 марта 2011 г.

Применимо к: Excel 2010 | Office 2010 | PowerPoint 2010 | Word 2010

В этой статье
Создание презентации и добавление кода в редакторе Visual Basic
Добавление ссылки на библиотеку объектной модели Excel
Тестирование проекта
Добавление в презентацию кнопки и дополнительного кода
Тестирование проекта
Дальнейшие действия
Дополнительные материалы

Начиная с выпуска Microsoft Office 2007 с пакетом обновления 2 (SP2) и вплоть до текущего выпуска Microsoft Office 2010 в Word и PowerPoint используется унифицированная объектная модель построения диаграмм. Построение диаграммы осуществляется в одном и том же общем уровне отрисовки Office, поэтому если вы знакомы с объектной моделью диаграмм в Excel 2007, вы легко создадите аналогичное решение в Word 2010 или PowerPoint 2010. В этом упражнении с помощью новой объектной модели программным путем создается диаграмма в PowerPoint 2010 на основе данных из Excel 2010. Данная лабораторная работа включает добавление в презентацию кода для создания и заполнения книги Microsoft Excel и последующее использование этих данных для построения новой диаграммы в PowerPoint. Затем в презентацию добавляется кнопка и дополнительный код для снабжения данных диаграммы меткой. Чтобы это реализовать, выполните указанные ниже действия.

  • Создание презентации и добавление кода в редакторе Visual Basic

  • Добавление ссылки на библиотеку объектной модели Excel

  • Тестирование проекта

  • Добавление в презентацию кнопки и дополнительного кода

  • Тестирование проекта

Создание презентации и добавление кода в редакторе Visual Basic

В этой задаче создается пустая презентация PowerPoint 2010 и добавляется код в редакторе Visual Basic (VBE).

Создание презентации PowerPoint 2010

  1. Запустите PowerPoint 2010, чтобы создать пустую презентацию.

  2. На вкладке Разработчик нажмите кнопку Visual Basic. Откроется редактор Visual Basic.

  3. В меню Вставка выберите пункт Модуль.

  4. Добавьте в окне модуля указанный ниже код.

    Sub CreateChart()
Dim myChart As Chart
Dim gChartData As ChartData
Dim gWorkBook As Excel.Workbook
Dim gWorkSheet As Excel.Worksheet

' Create the chart and set a reference to the chart data.
Set myChart = ActivePresentation.Slides(1).Shapes.AddChart.Chart
Set gChartData = myChart.ChartData

' Set the Workbook and Worksheet references.
Set gWorkBook = gChartData.Workbook
Set gWorkSheet = gWorkBook.Worksheets(1)

 ' Add the data to the workbook.
gWorkSheet.ListObjects("Table1").Resize gWorkSheet.Range("A1:B5")
gWorkSheet.Range("Table1[[#Headers],[Series 1]]").Value = "Items"
gWorkSheet.Range("a2").Value = "Coffee"
gWorkSheet.Range("a3").Value = "Soda"
gWorkSheet.Range("a4").Value = "Tea"
gWorkSheet.Range("a5").Value = "Water"
gWorkSheet.Range("b2").Value = "1000"
gWorkSheet.Range("b3").Value = "2500"
gWorkSheet.Range("b4").Value = "4000"
gWorkSheet.Range("b5").Value = "3000"

' Apply styles to the chart.
With myChart
    .ChartStyle = 4
    .ApplyLayout 4
    .ClearToMatchStyle
End With

' Add the axis title.
With myChart.Axes(xlValue)
    .HasTitle = True
    .AxisTitle.Text = "Units"
End With
 
'myChart.ApplyDataLabels

' Clean up the references.
Set gWorkSheet = Nothing
' gWorkBook.Application.Quit
Set gWorkBook = Nothing
Set gChartData = Nothing
Set myChart = Nothing

End Sub

Добавление ссылки на библиотеку объектной модели Excel

В этой задаче добавляется ссылка на объектную модель Excel 2010.

Добавление ссылки на библиотеку объектной модели Excel 2010

  1. В меню Сервис выберите пункт Ссылки.

  2. В диалоговом окне Ссылки прокрутите список вниз до появления пункта Объектная модель Microsoft Excel 14.0, выберите его и нажмите кнопку ОК.

  3. Закройте редактор Visual Basic.

Тестирование проекта

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

Тестирование проекта

  1. На вкладке Разработчик нажмите кнопку Макросы, выберите макрос CreateChart и нажмите кнопку Выполнить.

  2. Убедитесь, что книга создана и в нее добавлены данные. В презентации также должна появиться диаграмма с данными, как на рис. 1.

    Рис. 1. Диаграмма в презентации

    Диаграмма добавляется в презентацию

Добавление в презентацию кнопки и дополнительного кода

В этой задаче на слайд 1 добавляется кнопка, а в редакторе Visual Basic вводится код для добавления на диаграмму метки.

Добавление в презентацию кнопки и кода

  1. На вкладке Разработчик в группе Элементы управления щелкните элемент управления кнопки команды, а затем щелкните слайд, чтобы вставить кнопку.

  2. Дважды щелкните кнопку, чтобы открыть редактор Visual Basic.

  3. Добавьте в процедуру CommandButton1_Click указанный ниже код.

    ' Set a reference to the chart object.
Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart

' Add and format a title.
myChart.HasTitle = True
With myChart.ChartTitle
    .Characters.Font.Size = 18
    .Text = "2010 Inventory"
End With

'Clean up.
Set myChart = Nothing

  4. Закройте редактор Visual Basic.

Тестирование проекта

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

Тестирование проекта

  1. Нажмите клавишу F5.

  2. Нажмите кнопку. Обратите внимание на появление меток данных, как на рис. 2.

    Рис. 2. Добавление метки на диаграмму

    Надпись добавляется в диаграмму

Дальнейшие действия

Начало работы с возможностями расширения Office 2010

Дополнительные материалы