Свойство Shape.Application (PowerPoint)

Статья
04/07/2023

Возвращает объект Application , представляющий создателя указанного объекта.

Синтаксис

expression. Приложения

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

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

Object

Пример

В этом примере в процедуру передается объект Presentation . Процедура добавляет слайд в презентацию, а затем сохраняет презентацию в папке, где выполняется Microsoft PowerPoint.

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

    pptPres.SaveAs pptPres.Application.Path & "\Added Slide"

End Sub

В этом примере показано имя приложения, которое создало каждый связанный объект OLE на слайде в активной презентации.

For Each shpOle In ActivePresentation.Slides(1).Shapes

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

См. также

Объект Shape

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

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

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