Как добавить макрос в диаграмму Word 2010 или PowerPoint 2010?

Question

В PowerPoint 2010 или Word 2010, когда я выбираю Insert -> Chart, он создает новую диаграмму с листом Excel для данных.

Если я добавлю макрос в рабочий лист Excel, это, похоже, будет отменено, когда я закрою рабочий лист и снова открою его.

Однако является возможности иметь диаграмму с макросами, потому что у меня есть некоторые документы Word & PowerPoint презентация, которые я создал в Office 2003, который вложенная диаграмму Excel с помощью макросов. Когда я преобразовал их в Office 2010, они выглядят так же, как «обычные» графики Office 2010, но макросы сохраняются.

Это выглядит как встроенная диаграмма, создаваемая при выборе Insert -> Chart в формате «pptx», а не в формате «pptm», и поэтому макросы не сохраняются.

(Если я запрашиваю ActiveWorkbook.FileFormat, я получаю «51», то есть «Open Xml Spreadsheet», это действительно «pptx», в отличие от «Open Xml Spreadsheet with Macros», который равен «52») ,

Как вставить диаграмму с поведением «pptm»? Или изменить поведение существующей диаграммы?

---

Примечание: Я не хочу, чтобы вставить диаграмму «объект», так как это означает, что график не редактируется в хост-приложения (он просто вставляет таблицу Excel, что вам нужно «открыть» для того, для его редактирования).

---

Позвольте мне дать вам фору ... Я могу добиться того, чего я хочу по следующей методике:

1. Создайте новый документ в Word (или PowerPoint).
2. Сохраните документ как документ 97-2003 (который заставляет его работать в режиме совместимости).
3. Вставьте диаграмму, используя Insert-> Object-> Microsoft Excel Chart. Это встраивает диаграмму Excel в старом стиле.
4. Откройте встроенную диаграмму правой кнопкой мыши-> Открыть и добавьте макрос.
5. Закройте диаграмму, затем выберите «Файл-> Информация» и используйте кнопку «Конвертировать» в режиме совместимости, чтобы преобразовать документ в документ Office 2010.

Теперь у вас есть «родной» график Word или PowerPoint 2010, который вы можете редактировать непосредственно в Word или PowerPoint. Если вы нажмете на диаграмме и выберите «Инструменты диаграммы» -> «Дизайн -> Изменить данные», откроется ли лист Excel, который вы создали на шаге 4. Успех!

Теперь, у кого есть более простой способ?

Answer 1

Теперь, когда щедроты прошли (без лучшего ответа), я добавлю частичный ответ от моего вопроса, для того, чтобы иметь возможность закрыть вопрос.

---

1. Создайте новый документ в Word (или PowerPoint).
2. Сохраните документ как документ 97-2003 (который заставляет его работать в режиме совместимости).
3. Вставьте диаграмму, используя Insert-> Object-> Microsoft Excel Chart. Это встраивает диаграмму Excel в стиле « ».
4. Откройте встроенную диаграмму правой кнопкой мыши-> Открыть, и добавить макрос.
5. Закройте диаграмму, затем выберите «Файл-> Информация» и используйте кнопку «Конвертировать» в режим совместимости , чтобы преобразовать документ в документ Office 2010.

Теперь у вас есть «родной» график Word или PowerPoint 2010, который вы можете редактировать непосредственно в Word или PowerPoint.Если вы нажмете на диаграмме и выберите «Инструменты диаграммы» -> «Дизайн -> Изменить данные», откроется ли лист Excel, который вы создали на шаге 4. Успех!

Я все еще заинтересован в том, в состоянии сделать это более непосредственно ...

Answer 2

На мой взгляд, вы могли бы добиться того, что вам нужно следующим образом:

(к сожалению, я не могу представить его с фотографиями и точным английскими командами, как я использую локальный-английский не-версию офиса)

• Выбрать Вставить >> Объект >> Объект ...
• В окне Object принять первую страницу (как Создать новую)
• Искать Microsoft Excel Chart (или нечто подобное) и нажмите OK
• Вы получите Workbook с двумя листами как представлено на рисунке ниже

(есть функция редактирования диаграммы доступны на ленте)

• Нажмите Alt + F11 в то время как вы в Схеме издании, как представлено в картинке выше. Вы получите IDE для Excel, где вы найдете соответствующую книгу.
• Добавить новый модуль и макроэлементов там
• Теперь вы можете выход график издание в Слове и сохранить документ в качестве *.docm
• После того как вы возобновлять его, перейдите Схему издание (двойной щелчок) >> Alt + F11 >>вы найдете найти макрос, сохраненный в книге, с расширением *docm.

Answer 3

Проблема в том, как данные диаграммы хранятся в приложении. Преобразование и создание - это два разных процесса. Ваша серия данных в основном представляет собой массив, который не является листом excel. Он просто использует excel для отображения данных для редактирования. Вам нужно сохранить свой код в модуле для powerpoint/word и получить доступ к диаграмме через объект фигур, если вы не хотите вставлять листы Excel.

Sub GetChartName() 
Dim sSlide As Slide 
Dim cChart As Chart 
Dim sShape As Shape 

Set sSlide = PowerPoint.ActivePresentation.Slides(1) 
    For Each sShape In sSlide.Shapes 
     If sShape.HasChart Then 
      Set cChart = sShape.Chart 
       MsgBox cChart.Name 
      Set cChart = Nothing 
     End If 
    Next 
Set sSlide = Nothing 

End Sub