Método Shapes.AddWebControl (Publisher)

Adiciona um novo objeto Shape que representa um controle de formulário Web à coleção Shapes especificada.

Sintaxe

expressão. AddWebControl (Type, Left, Top, Width, Height, LaunchPropertiesWindow)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	PbWebControlType	Especifica o tipo de controle de formulário Web a ser adicionado. Pode ser uma das constantes PbWebControlType declaradas na biblioteca de tipos do Microsoft Publisher. Ocorrerá um erro se pbWebControlWebComponent for usado.
Left	Obrigatório	Variantes	A posição da borda esquerda da forma que representa o controle de formulário web.
Top	Obrigatório	Variantes	A posição da borda superior da forma que representa o controle de formulário web.
Width	Obrigatório	Variantes	A largura da forma que representa o controle de formulário web. Em botões de comando, esse parâmetro é ignorado.
Height	Obrigatório	Variantes	A altura da forma que representa o controle de formulário web. Em botões de comando, esse parâmetro é ignorado.
LaunchPropertiesWindow	Opcional	Boolean	Não são suportados. O padrão é False; Se esse argumento for definido como True, ocorrerá um erro.

Valor de retorno

Forma

Comentários

Para os parâmetros Esquerdo, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").

Ao adicionar um ponto de acesso a um controle Web usando a constante pbWebControlHotSpot , a URL é especificada pela propriedade Hyperlinks .

Observe que a propriedade Fill, que retorna um objeto FillFormat e a propriedade Shape, que retorna um objeto LineFormat, não podem ser acessados a partir de uma forma de ponto de acesso. Um erro em tempo de execução será retornado se tentar acessar essas propriedades de uma forma de ponto de acesso.

Exemplo

O exemplo a seguir adiciona um controle de caixa de seleção de formulário Web à primeira página da publicação ativa.

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

O exemplo a seguir adiciona pontos de acesso a uma forma na página quatro da publicação web ativa. Primeiro, uma AutoForma de estrela de quatro pontas é adicionada à página. Em seguida, um ponto quente é adicionado a cada braço da estrela usando o método AddWebControl com um tipo de pbWebControlHotSpot. Por fim, um hiperlink é adicionado a cada ponto quente usando a propriedade Hyperlinks de cada forma de ponto quente.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.