Compartilhar via

Shapes.AddWebControl method (Publisher) (Método Shapes.AddWebControl [Publisher])

Adiciona um novo objeto Forma que representa um controlo de formulário Web à coleção Formas especificada.

Sintaxe

expressão. 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 controlo de formulário Web a adicionar. Pode ser uma das constantes PbWebControlType declaradas na biblioteca de tipos do Microsoft Publisher. Ocorre um erro se pbWebControlWebComponent for utilizado.
Left Obrigatório Variant A posição do limite esquerdo da forma que representa o controlo de formulário Web.
Top Obrigatório Variant A posição do limite superior da forma que representa o controlo de formulário Web.
Width Obrigatório Variant A largura da forma que representa o controlo de formulário Web. Em botões de comando, esse parâmetro é ignorado.
Height Obrigatório Variant A altura da forma que representa o controlo 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 Esquerda, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; As cadeias de carateres podem estar em todas as unidades suportadas pelo Microsoft Publisher (por exemplo, "2,5 pol").

Ao adicionar um ponto quente a um controlo Web com a constante pbWebControlHotSpot , o URL é especificado pela propriedade Hiperligações .

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 seguinte adiciona um formulário Web marcar controlo de caixa à 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 seguinte adiciona pontos quentes 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, é adicionado um ponto quente a cada braço da estrela através do método AddWebControl com um Tipo de pbWebControlHotSpot. Por fim, é adicionada uma hiperligação a cada ponto quente através da propriedade Hiperligações 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.

  • Last updated on