Shapes.AddWebControl-Methode (Publisher)

Artikel
04/07/2023

Fügt der angegebenen Shapes-Auflistung ein neues Shape-Objekt hinzu, das ein Webformular-Steuerelement darstellt.

Syntax

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

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Typ	Erforderlich	PbWebControlType	Gibt den Typ des hinzuzufügenden Webformularsteuerelements an. Dies kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbWebControlType-Konstanten sein. Wenn pbWebControlWebComponent verwendet wird, tritt ein Fehler auf.
Left	Erforderlich	Variant	Die Position des linken Rands der Form, die das Webformular-Steuerelement darstellt.
Top	Erforderlich	Variant	Die Position des oberen Rands der Form, die das Webformular-Steuerelement darstellt.
Width	Erforderlich	Variant	Die Breite der Form, die das Webformular-Steuerelement darstellt. Dieser Parameter wird für Befehlsschaltflächen ignoriert.
Height	Erforderlich	Variant	Die Höhe der Form, die das Webformular-Steuerelement darstellt. Dieser Parameter wird für Befehlsschaltflächen ignoriert.
LaunchPropertiesWindow	Optional	Boolean	Nicht unterstützt Der Standardwert ist False; Ein Fehler tritt auf, wenn dieses Argument auf True festgelegt ist.

Rückgabewert

Form

Bemerkungen

Für die Parameter Left, Top, Width und Height werden numerische Werte in Punkt ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Beim Hinzufügen eines Hotspots zu einem Websteuerelement mithilfe der pbWebControlHotSpot-Konstante wird die URL durch die Hyperlinks-Eigenschaft angegeben.

Beachten Sie, dass die Shape.Fill -Eigenschaft, die ein FillFormat -Objekt zurückgibt, und die Shape.Line -Eigenschaft, die ein LineFormat -Objekt zurückgibt, von einer Form Hotspot zugegriffen werden können. Beim Versuch, Zugriff auf diese Eigenschaften von einer Form Hotspot wird ein Laufzeitfehler zurückgegeben.

Beispiel

Im folgenden Beispiel wird der ersten Seite der aktiven Publikation ein Webformular-Kontrollkästchen-Steuerelement hinzugefügt.

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

Im folgenden Beispiel werden einer Form auf Seite 4 der aktiven Webveröffentlichung Hotspots hinzugefügt. Zuerst wird eine vierzackiger Stern AutoForm der Seite hinzugefügt. Als Nächstes wird jedem Sternarm mithilfe der AddWebControl-Methode mit dem TyppbWebControlHotSpot ein Hotspot hinzugefügt. Schließlich wird jedem Hotspot mithilfe der Hyperlinks-Eigenschaft jedes Hot Spot-Shapes ein Hyperlink hinzugefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über