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.