Создание презентаций Powerpoint / Keynote с возможностью создания сценариев?

Question

В последнее время я занимаюсь созданием презентаций PowerPoint для компаний.В основном я делал это в PowerPoint.В основном они создаются с использованием одного и того же дизайна, но с просто разными номерами в заданных местах и разными номерами, используемыми для создания гистограммы PowerPoint / круговой диаграммы.(в основном, при вставке появляются эти объекты круговой диаграммы, которые дают вам возможность изменить дизайн и ввести цифры в какую-нибудь всплывающую таблицу Excel).

Допустим, я делаю это для 100 компаний:разве нет способа просто указать все нужные мне значения и каким-то образом создать PowerPoint?Я могу предоставить базу дизайна, все, что для этого нужно сделать, это просто зайти и изменить динамические значения (ничего растрового).

Это даже не обязательно вопрос для PowerPoint:если бы я мог сделать это с помощью Keynote (например, автоматизировать круговые диаграммы, гистограммы и расставлять места с помощью чисел и статического текста), то это тоже сработало бы.

Редактировать:Я упоминал, что знаю, что круговые диаграммы PowerPoint / столбчатые диаграммы генерируются из электронных таблиц Xxcel.В моей презентации их около 3, наряду с другими изменяющимися значениями в статических позициях, в примерно 100 презентациях.Я хочу написать сценарий всего или большей части процесса.

Редактировать:Используйте PowerPoint 2007 или новейшую версию Keynote.Предпочтительным методом написания сценариев с помощью Keynote, вероятно, будет AppleScript, с PowerPoint 2007 - либо Python / Django, либо макросы.

Answer 1

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

1. Создайте PowerPoint с поддержкой макросов.
2. Создайте единственную круговую диаграмму на первом слайде с помощью команды Вставить | Диаграмма на ленте.Откроется Excel .В колоннах, на Горизонтальная ось (Категория) оставить как есть (т.е.1-й Qtr, 2-й Qrt и т.д.).На Ось Записей условных обозначений (серий), разверните несколько столбцов и добавьте дополнительные данные.Убедитесь, что имена столбцов уникальны.
3. Закрыть Excel
4. Нажмите Alt + F11, чтобы перейти к VBE.
5. Скопируйте/вставьте приведенный ниже код в новый модуль, изменив следующие переменные: chartTemplatePath и, при необходимости, sc.Name, то еще по вашему выбору.
6. Нажмите клавишу 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, ничего страшного, просто выберите диаграмму, перейдите к Инструменты построения диаграмм | Дизайн | Выберите Данные и повторно выберите свой набор данных как всю таблицу целиком.