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

Question

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

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

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

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

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

Answer 1

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

1. Создайте PowerPoint с поддержкой макросов.
2. Создайте единую круговую диаграмму на первом слайде с помощью команды Вставить | Диаграмма в ленте. Excel будет открыт. В столбцах на оси Горизонтальная (категория) ось оставьте как есть (т. Е. 1-й Qtr, 2-й Qrt и т. Д.). На Обозначения Legend (Series) Axis, разверните несколько столбцов и добавьте больше данных. Убедитесь, что имена колонок уникальны.
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 

Если вы работаете с этим и данные диаграммы исчезает из главного РРТ, что все в порядке, просто выберите диаграмму, перейдите Chart Tools | Дизайн | Выберите данные и переустановите набор данных как всю таблицу.