Método Shapes.AddWebControl (Publisher)

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

Sintaxe

mais simples. AddWebControl (Tipo, Esquerda, Superior, Largura, Altura, 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 da 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 Variant A posição da borda esquerda da forma que representa o controle de formulário da Web.
Top Obrigatório Variant A posição da borda superior da forma que representa o controle de formulário da Web.
Width Obrigatório Variant A largura da forma que representa o controle de formulário da Web. Em botões de comando, esse parâmetro é ignorado.
Height Obrigatório Variant A altura da forma que representa o controle de formulário da 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 Esquerda, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; As cadeias de caracteres podem estar em qualquer unidade com suporte do Microsoft Publisher (por exemplo, "2,5 pol").

Ao adicionar um ponto crítico a um controle da 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 marcar formulário da 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 da 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 de acesso usando a propriedade Hyperlinks de cada forma de ponto de acesso.

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.

  • Last updated on