Shapes.AddWebControl, méthode (Publisher)

Article
04/07/2023

Ajoute un nouvel objet Shape représentant un contrôle de formulaire web à la collection Shapes spécifiée.

Syntaxe

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

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Type	Requis	PbWebControlType	Spécifie le type de contrôle de formulaire web à ajouter. Il peut s’agir de l’une des constantes PbWebControlType déclarées dans la bibliothèque de type Microsoft Publisher. Une erreur se produit si pbWebControlWebComponent est utilisé.
Left	Obligatoire	Variant	Position du bord gauche de la forme représentant le contrôle de formulaire web.
Top	Obligatoire	Variant	Position du bord supérieur de la forme représentant le contrôle de formulaire web.
Width	Obligatoire	Variant	Largeur de la forme représentant le contrôle de formulaire web. Pour les boutons de commande, ce paramètre est ignoré.
Hauteur	Obligatoire	Variant	Hauteur de la forme représentant le contrôle de formulaire web. Pour les boutons de commande, ce paramètre est ignoré.
LaunchPropertiesWindow	Facultatif	Boolean	Non pris en charge. Valeur par défaut est False; une erreur se produit si cet argument a la valeur True.

Valeur renvoyée

Shape

Remarques

Pour les paramètres Left, Top, Width et Height , les valeurs numériques sont évaluées en points . les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Lors de l’ajout d’un point chaud à un contrôle web à l’aide de la constante pbWebControlHotSpot , l’URL est spécifiée par la propriété Hyperlinks .

Notez que la propriété Shape.Fill, qui renvoie un objet FillFormat et la propriété Shape.Line, qui renvoie un objet LineFormat, ne sont pas accessibles à partir d'une forme de zone réactive. Une erreur d'exécution est renvoyée si vous essayez d'accéder à ces propriétés à partir d'une forme de zone réactive.

Exemple

L’exemple suivant ajoute un contrôle de case à cocher formulaire web à la première page de la composition active.

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

L’exemple suivant ajoute des zones réactives à une forme de la page 4 de la composition web active. Tout d'abord, une forme automatique d'étoile quatre points est ajoutée à la page. Ensuite, un point chaud est ajouté à chaque bras de l’étoile à l’aide de la méthode AddWebControl avec un typede pbWebControlHotSpot. Enfin, un lien hypertexte est ajouté à chaque point chaud à l’aide de la propriété Hyperlinks de chaque forme de point chaud.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via