Чи є спосіб переглянути всі фігури, які використовуються в презентації точки живлення?

Я працюю над презентацією із близько 150 комбінованих таблиць та діаграм, які слід відслідковувати. Панель вибору та видимості (Інструменти малюнка> Впорядкувати> Панель вибору) дозволяє мені називати та переглядати список усіх фігур на слайді, але чи є можливість піднятись на рівень та переглянути список усіх фігур, використовуваних у цілому презентація?

microsoft-powerpoint

— SuziLmrdo
джерело

Відповіді:

Ні, у PowerPoint немає жодної функції, яка дозволила б вам це зробити.

Що саме ви намагаєтеся досягти? Можливо, є якийсь інший шлях.

— Стів Ріндсберг
джерело

Компанія, для якої я працюю, використовує PowerPoint як програмне забезпечення для верстки для цілей публікації. Це для них усталений метод, і я не маю такого впливу, щоб переконати цілий відділ перейти на таке програмне забезпечення, як Adobe Pagemaker або навіть Microsoft Word.

— SuziLmrdo

Однією з моїх головних завдань є створення звітів разом із діаграмами та таблицями для їх використання, в середньому 100 фігур і 50 таблиць за публікацію. Кожен звіт в середньому становить приблизно 70-90 сторінок, тому відстежувати розташування кожної фігури в презентації в даний час дуже важко. Я хотів би знайти спосіб створити таблицю фігур, яка автоматично оновлює розташування слайдів у разі додавання або видалення слайдів між ними.

— SuziLmrdo

Щось, що автоматично оновлюватиметься, було б складно написати, але повторне створення такого звіту, швидше за все, займе хвилину. Унікальне визначення кожної таблиці / фігури було б складною частиною. Як ви могли визначити фігуру на слайді 42, щоб код міг її розпізнати та докладно повідомити про це користувачеві?

— Стів Ріндсберг

У звіті я називаю таблиці та рисунки в порядку їх появи зверху вниз, що йде за годинниковою стрілкою. Я вже пройшов і назвав кожне зображення, тому коли я переходжу до області вибору для слайда 42, я можу побачити, що він містить фігури 74 та 75 та таблицю 21 (фігури та таблиці рахуються окремо). Це відрізняється від порядку, в якому вони, можливо, були створені, він може містити зміст із запитань 12 та 66 опитування. Якщо б був спосіб включити вхід із тексту alt, там може бути опис кожної фігури / таблиці. Це ти просиш?

— SuziLmrdo

Звіт про посилання легко. У мене є комерційна надбудова, яка допомагає виправити пошкоджені посилання. Безкоштовна демонстраційна версія звіту про посилання, вказуючи посилання на кожному слайді. Це називається PTools FixLinks. Що ви говорите, вважайте це халявою; платна версія не додала б значення у вашому випадку. pptools.com/fixlinks/index.html

— Стів Ріндсберг

Вище я хотів надати часткову відповідь на власне запитання, що базується на VBA, знайденому в наступній темі переповнення стека: VBA для переліку всіх назв об'єктів презентації Powerpoint

Це рішення технічно дозволяє людині переглядати всі форми, які використовуються в презентації Power Point, через звіт про текстові файли.

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\All Shapes.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
                Print #lFile, "    " & curShape.Name
        Next curShape
    Next curSlide

    Close #lFile

End Sub

Це створює текстовий звіт, який виглядає приблизно так:

SLIDE 1
    Rectangle 2
    Rectangle 4
    Rectangle 4
    TextBox 10
    Rectangle 4
SLIDE 2
    TextBox 7
    Rectangle 2
    Rectangle 4
    Rectangle 4
    Line 37
    Picture 1
    Picture 2
SLIDE 3
    Rectangle 2
    Rectangle 4
    Rectangle 7
    TextBox 7
    Line 28
    Picture 3
    Picture 4, etc...

Для мого конкретного випадку я хотів переглянути список лише певних фігур на слайді, чого я досяг, спочатку використовуючи панель вибору, щоб назвати кожне зображення, що містить фігуру чи таблицю, з відповідним префіксом, а потім виконавши це:

Sub ListFiguresAndTables()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\Figures and Tables.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
            If Left(curShape.Name, 4) = "Fig." Or Left(curShape.Name, 5) = "Table" Then
                Print #lFile, "    " & curShape.Name
            End If
        Next curShape
    Next curSlide

    Close #lFile

End Sub

На жаль, єдиний спосіб, коли я можу отримати макрос для друку цих об'єктів у порядку зростання, - це якщо я скористаюся панеллю вибору, щоб спочатку вручну впорядкувати фігури в протилежному (низхідному) порядку.

SLIDE 1
    Fig. 1
    Fig. 2
    Fig. 3
    Table 1
SLIDE 2
    Fig. 4
    Fig. 5
    Fig. 6  
SLIDE 3
    Table 2
    Table 3 (etc.)

— SuziLmrdo
джерело