Метод Shapes.AddOLEObject (Publisher)
Добавляет новый объект 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 и обратная связь.