Метод Shapes.AddOLEObject (PowerPoint)

Создает объект OLE. Возвращает объект Shape , представляющий новый объект OLE.

Синтаксис

выражение. AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Left	Необязательный	Single	Позиция (в точках) левого верхнего угла нового объекта относительно левого верхнего угла слайда. Значение по умолчанию: 0 (ноль).
Top	Необязательный	Single	Позиция (в точках) левого верхнего угла нового объекта относительно левого верхнего угла слайда. Значение по умолчанию: 0 (ноль).
Width	Необязательно	Single	Начальная ширина объекта OLE в точках.
Height	Необязательно	Single	Начальная высота объекта OLE в точках.
ClassName	Необязательный	String	Имя класса OLE long или ProgID для создаваемого объекта. Необходимо указать аргумент ClassName или FileName для объекта, но не оба аргумента.
FileName	Необязательный	String	Файл, из которого создается объект. Если путь не указан, используется текущая рабочая папка. Необходимо указать аргумент ClassName или FileName для объекта, но не оба аргумента.
DisplayAsIcon	Необязательный	MsoTriState	Определяет, будет ли объект OLE отображаться в виде значка.
IconFileName	Необязательный	String	Файл, содержащий отображаемый значок.
IconIndex	Необязательный	Long	Индекс значка в IconFileName. Первый значок в файле имеет индекс номер 0 (ноль). Если значок с заданным номером индекса не существует в IconFileName, используется значок с номером индекса 1 (второй значок в файле). Значение по умолчанию: 0 (ноль).
IconLabel	Необязательный	String	Метка (подпись), отображаемая под значком.
Link	Необязательный	MsoTriState	Определяет, будет ли объект OLE связан с файлом, из которого он был создан. Если вы указали значение className, этот аргумент должен иметь значение msoFalse.

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

Shape

Пример

В этом примере в myDocument добавляется связанный документ Word.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

В этом примере в myDocument добавляется новый лист Microsoft Excel. Лист будет отображаться в виде значка.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

В этом примере кнопка команды добавляется в myDocument.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

См. также

Объект Shapes

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

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