Свойство Model3DFormat.Application (Excel)
Возвращает объект Application , представляющий создателя указанного объекта.
Синтаксис
expression. Приложения
Выражение Переменная, представляющая объект Model3DFormat .
Возвращаемое значение
Object
Пример
В этом примере в процедуру передается объект Presentation . Процедура добавляет слайд в презентацию, а затем сохраняет презентацию в папке, в которой выполняется Microsoft Excel.
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
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по