Как назвать объект в слайде PowerPoint? - PullRequest
Новая
       25

Как назвать объект в слайде PowerPoint?

38 голосов
/ 19 июня 2010

Итак, я знаю, как назвать текстовое поле или подобный объект в PowerPoint с помощью VB, но мне было интересно, есть ли способ назвать объекты через ленту (PowerPoint 2007). Например, если я добавляю текстовое поле на слайд, есть ли способ присвоить ему имя (вроде окна свойств при доступе или текстового поля в Excel 2003 в верхней левой части, где вы можете ввести имя)

В основном, так что я могу сослаться на это в коде позже; без необходимости использовать код для именования каждого объекта, который я добавляю по факту. Возможно, более легкий путь через Ленту?

Ответы [ 5 ]

86 голосов
/ 19 июня 2010

Да. Нажмите на объект (текстовое поле, фигуру и т. Д.), Чтобы выбрать объект, и в Инструменты рисования | На вкладке Формат нажмите Область выбора в группе Упорядочить . Оттуда вы увидите названия объектов - вы можете дважды щелкнуть (или нажать F2 ) на любое имя и переименовать его. Отменив выбор, он становится переименованным. Вы также можете получить это на вкладке Home -> Drawing group -> Arrange раскрывающийся список -> Selection pane или нажатие ALT + F10 .

5 голосов
/ 30 августа 2018

Выберите объект -> Формат -> Панель выбора -> Двойной щелчок, чтобы изменить имя

enter image description here

4 голосов
/ 22 июня 2010

Хотя приведенный выше ответ верен, я бы не рекомендовал вам менять имя, чтобы ссылаться на него в коде.

Имена хитры.Они могут измениться.Вам следует использовать ShapeId и SlideId.

Особенно остерегайтесь программного изменения имени фигуры, поскольку PowerPoint полагается на имя и может помешать его обычной работе.

3 голосов
/ 26 ноября 2014

ЭТО НЕ ОТВЕТ НА ОРИГИНАЛЬНЫЙ ВОПРОС, ЭТО ОТВЕТ НА @ ТЕДДИ ВОПРОС НА ОТВЕТЫ @ Dudi's ОТВЕТ *

Вот способ перечислить идентификаторы в активной презентации для непосредственногоокно (Ctrl + G) в редакторе VBA: 

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape

    For Each curSlide In ActivePresentation.Slides
        Debug.Print curSlide.SlideID
        For Each curShape In curSlide.Shapes

                If curShape.TextFrame.HasText Then
                    Debug.Print curShape.Id
                End If

        Next curShape
    Next curSlide
End Sub
0 голосов
/ 09 ноября 2017

Нажмите Вставить -> Объект-> Создать из файла -> Обзор.

После выбора файла выберите параметр «Изменить значок», и вы сможете переименовать файл и изменить значок, еслижелание.

Надеюсь, это поможет!

...