Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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.