Метод Shapes.AddOLEObject (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. AddOLEObject (Left, Top, Width, Height, ClassName, FileName, Link)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Left	Обязательный	Variant	Положение левого края фигуры, представляющей объект OLE.
Top	Обязательный	Variant	Положение верхнего края фигуры, представляющей объект OLE.
Width	Необязательный	Variant	Ширина фигуры, представляющей объект OLE. Значение по умолчанию — -1, то есть ширина фигуры автоматически устанавливается на основе данных объекта.
Height	Необязательный	Variant	Высота фигуры, представляющей объект OLE. Значение по умолчанию — -1, то есть высота фигуры автоматически устанавливается на основе данных объекта.
ClassName	Необязательный	String	Имя класса добавляемого объекта OLE.
FileName	Необязательный	String	Имя файла добавляемого объекта OLE. Если путь не указан, используется текущая рабочая папка.
Link	Необязательный	MsoTriState	Определяет, связан ли объект OLE с публикацией или внедрен в нее.

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

Shape

Примечания

Для аргументов Left, Top, Width и Height числовые значения вычисляются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Необходимо указать className или FileName. Если ни один из аргументов не указан или оба аргумента указаны, возникает ошибка.

Параметр Link может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office и показанных в следующей таблице.

Константа	Описание
msoFalse	Внедренный объект OLE.
msoTrue	Объект OLE связан. Значение по умолчанию.

Пример

В следующем примере лист Microsoft Office Excel добавляется на первую страницу активной публикации и активируется для редактирования.

Dim shpSheet As Shape 
 
Set shpSheet = ActiveDocument.Pages(1).Shapes.AddOLEObject _ 
 (Left:=72, Top:=72, ClassName:="Excel.Sheet") 
 
shpSheet.OLEFormat.Activate

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

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