Propriedade LineFormat.InsetPen (Publisher)
Retorna ou define uma constante MsoTriState indicando se as linhas de uma forma especificada são desenhadas dentro de seus limites. Leitura/gravação.
Sintaxe
expressão. InsetPen
Expressão Uma variável que representa um objeto LineFormat .
Valor de retorno
MsoTriState
Comentários
Ocorrerá um erro se você tentar definir essa propriedade como msoTrue em qualquer AutoForma do Microsoft Office que não oferece suporte a desenhos com caneta de baixo-relevo.
O valor da propriedade InsetPen para tabelas é sempre msoTrue; a tentativa de definir a propriedade como qualquer outra valor resulta em um erro.
O valor da propriedade InsetPen pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.
| Constante | Descrição |
|---|---|
| msoFalse | As linhas são desenhadas diretamente nos limites da forma especificados. |
| msoTriStateMixed | Um valor retornado que indica uma combinação de msoTrue e msoFalse para o intervalo de formas especificado. |
| msoTriStateToggle | Um valor definido que alterna entre msoTrue e msoFalse. |
| msoTrue | As linhas são desenhadas dentro dos limites da forma especificados. |
Exemplo
O exemplo a seguir adiciona dois retângulos à página um da publicação ativa, o primeiro com suas linhas desenhadas no interior de seus limites e o segundo com suas linhas desenhadas sobre seus limites.
Dim shpNew As Shape
With ActiveDocument.Pages(1).Shapes
Set shpNew = .AddShape(Type:=msoShapeRectangle, _
Left:=200, Top:=150, Width:=150, Height:=100)
With shpNew.Line
.Weight = 24
.InsetPen = msoTrue
End With
Set shpNew = .AddShape(Type:=msoShapeRectangle, _
Left:=200, Top:=300, Width:=150, Height:=100)
With shpNew.Line
.Weight = 24
.InsetPen = msoFalse
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.