Свойство Master.Shapes (PowerPoint)

Статья
04/07/2023

Возвращает коллекцию фигур, представляющую все элементы, которые были помещены или вставлены на указанный слайд, образец слайдов или диапазон слайдов. Только для чтения.

Синтаксис

expression. Формы

Выражение Переменная, представляющая главный объект.

Возвращаемое значение

Фигуры

Замечания

Возвращаемая коллекция фигур может содержать рисунки, фигуры, объекты OLE, рисунки, текстовые объекты, заголовки, колонтитулы, номера слайдов, а также объекты даты и времени на слайде или на изображении слайда на странице заметок.

Пример

В этом примере добавляется прямоугольник шириной 100 точек и высотой 50 точек, левый верхний угол которого находится в 5 точках от левого края слайда в активной презентации и 25 точек от верхней части слайда.

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

В этом примере задается текстура заливки для третьей фигуры на слайде 1 в активной презентации.

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

При условии, что один слайд в активной презентации содержит заголовок, вторая и третья строки кода в следующем примере задают текст заголовка на слайде 1 в презентации.

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

Предположим, что фигура 2 на слайде 2 в активной презентации содержит текстовый кадр, в следующем примере к слайду добавляется ряд абзацев. Обратите внимание, что Chr(13) используется для вставки пометок абзаца в текст.

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

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

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

См. также

Главный объект

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через