Метод Shapes.AddWebControl (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. AddWebControl (Type, Left, Top, Width, Height, LaunchPropertiesWindow)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	PbWebControlType	Указывает тип добавляемого элемента управления веб-формы. Может быть одной из констант PbWebControlType , объявленных в библиотеке типов издателя Майкрософт. Если используется pbWebControlWebComponent , возникает ошибка.
Left	Обязательный	Variant	Положение левого края фигуры, представляющей элемент управления веб-формы.
Top	Обязательный	Variant	Положение верхнего края фигуры, представляющей элемент управления веб-формы.
Width	Обязательный	Variant	Ширина фигуры, представляющей элемент управления веб-формы. Для кнопок команд этот параметр игнорируется.
Height	Обязательный	Variant	Высота фигуры, представляющей элемент управления веб-формы. Для кнопок команд этот параметр игнорируется.
LaunchPropertiesWindow	Необязательный	Логический	Не поддерживается. Значение по умолчанию — False; Ошибка возникает, если для этого аргумента задано значение True.

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

Shape

Примечания

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

При добавлении горячей точки в веб-элемент управления с помощью константы pbWebControlHotSpot URL-адрес задается свойством Hyperlinks .

Обратите внимание, что к свойству Shape.Fill , возвращающем объект FillFormat , и к свойству Shape.Line , которое возвращает объект LineFormat , нельзя получить доступ из фигуры горячей точки. При попытке доступа к этим свойствам из фигуры горячей точки возвращается ошибка времени выполнения.

Пример

В следующем примере на первую страницу активной публикации добавляется элемент управления флажок веб-формы.

Dim shpCheckBox As Shape 
 
Set shpCheckBox = ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlCheckBox, _ 
 Left:=216, Top:=216, _ 
 Width:=18, Height:=18)

В следующем примере к фигуре на четвертой странице активной веб-публикации добавляются горячие точки. Сначала на страницу добавляется четыре точки AutoShape. Затем в каждую руку звезды добавляется горячая точка с помощью метода AddWebControl с типомpbWebControlHotSpot. Наконец, гиперссылка добавляется в каждую горячую точку с помощью свойства Hyperlinks каждой фигуры горячей точки.

Dim theDoc As Document 
Dim theStar As Shape 
Dim theWC1 As Shape 
Dim theWC2 As Shape 
Dim theWC3 As Shape 
Dim theWC4 As Shape 
 
Set theDoc = ActiveDocument 
Set theStar = theDoc.Pages(4).Shapes.AddShape _ 
 (Type:=msoShape4pointStar, Left:=200, Top:=25, _ 
 Width:=200, Height:=200) 
 
With theDoc.Pages(4).Shapes 
 
 Set theWC1 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=280, Top:=25, Width:=40, Height:=80) 
 With theWC1 
 .Hyperlink.Address = "https://www.contoso.com/page1.htm" 
 End With 
 
 Set theWC2 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=320, Top:=105, Width:=80, Height:=40) 
 With theWC2 
 .Hyperlink.Address = "https://www.contoso.com/page2.htm" 
 End With 
 
 Set theWC3 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=280, Top:=145, Width:=40, Height:=80) 
 With theWC3 
 .Hyperlink.Address = "https://www.contoso.com/page3.htm" 
 End With 
 
 Set theWC4 = .AddWebControl(Type:=pbWebControlHotSpot, _ 
 Left:=200, Top:=105, Width:=80, Height:=40) 
 With theWC4 
 .Hyperlink.Address = "https://www.contoso.com/page4.htm" 
 End With 
End With

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

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

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