Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 | Obligatoire | PbWebControlType | Spécifie le type de contrôle de formulaire Web à ajouter. Peut être l’une des constantes PbWebControlType déclarées dans la bibliothèque de types de 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 Gauche, Haut, Largeur et Hauteur , 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 »).
Lorsque vous ajoutez 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 formulaire Web case activée un contrôle de zone à 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 points chauds à une forme sur la page quatre 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 en utilisant la méthode AddWebControl avec un type de pbWebControlHotSpot. Enfin, un lien hypertexte est ajouté à chaque point chaud à l’aide de la propriété Liens hypertexte 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.