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

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

5 голосов
/ 05 января 2010

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

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

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

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

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

1 Ответ

2 голосов
/ 11 января 2010

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

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

...