Создание презентаций Powerpoint / Keynote с возможностью создания сценариев?
-
18-09-2019 - |
Вопрос
В последнее время я занимаюсь созданием презентаций PowerPoint для компаний.В основном я делал это в PowerPoint.В основном они создаются с использованием одного и того же дизайна, но с просто разными номерами в заданных местах и разными номерами, используемыми для создания гистограммы PowerPoint / круговой диаграммы.(в основном, при вставке появляются эти объекты круговой диаграммы, которые дают вам возможность изменить дизайн и ввести цифры в какую-нибудь всплывающую таблицу Excel).
Допустим, я делаю это для 100 компаний:разве нет способа просто указать все нужные мне значения и каким-то образом создать PowerPoint?Я могу предоставить базу дизайна, все, что для этого нужно сделать, это просто зайти и изменить динамические значения (ничего растрового).
Это даже не обязательно вопрос для PowerPoint:если бы я мог сделать это с помощью Keynote (например, автоматизировать круговые диаграммы, гистограммы и расставлять места с помощью чисел и статического текста), то это тоже сработало бы.
Редактировать:Я упоминал, что знаю, что круговые диаграммы PowerPoint / столбчатые диаграммы генерируются из электронных таблиц Xxcel.В моей презентации их около 3, наряду с другими изменяющимися значениями в статических позициях, в примерно 100 презентациях.Я хочу написать сценарий всего или большей части процесса.
Редактировать:Используйте PowerPoint 2007 или новейшую версию Keynote.Предпочтительным методом написания сценариев с помощью Keynote, вероятно, будет AppleScript, с PowerPoint 2007 - либо Python / Django, либо макросы.
Решение
Извините, что мне потребовалось несколько дней, чтобы ответить вам, нужно было решить проблему.Вот быстрый и эффективный способ сделать то, о чем вы просите.
- Создайте PowerPoint с поддержкой макросов.
- Создайте единственную круговую диаграмму на первом слайде с помощью команды Вставить | Диаграмма на ленте.Откроется Excel .В колоннах, на Горизонтальная ось (Категория) оставить как есть (т.е.1-й Qtr, 2-й Qrt и т.д.).На Ось Записей условных обозначений (серий), разверните несколько столбцов и добавьте дополнительные данные.Убедитесь, что имена столбцов уникальны.
- Закрыть Excel
- Нажмите Alt + F11, чтобы перейти к VBE.
- Скопируйте/вставьте приведенный ниже код в новый
модуль, изменив следующие
переменные:
chartTemplatePath
и, при необходимости,sc.Name
, то еще по вашему выбору. - Нажмите клавишу F5 в подпрограмме для запуска.Теперь у вас должно быть столько диаграмм слайдов, сколько столбцов.
.
Sub CreateChartDecksandSave()
Dim chartTemplatePath As String
chartTemplatePath = "C:\Temp\"
Dim myPPT As Presentation
Set myPPT = ActivePresentation
Dim mainChart As Chart
Set mainChart = myPPT.Slides(1).Shapes(1).Chart
Dim scCount As Integer
scCount = mainChart.SeriesCollection.Count
Dim sc As Series
For i = 1 To scCount
Set sc = mainChart.SeriesCollection(1)
myPPT.SaveCopyAs (chartTemplatePath & sc.Name & ".pptx")
sc.Delete
Next
End Sub
Если вы работаете с этим и данные диаграммы исчезают из основного PPT, ничего страшного, просто выберите диаграмму, перейдите к Инструменты построения диаграмм | Дизайн | Выберите Данные и повторно выберите свой набор данных как всю таблицу целиком.