Propriedade LineFormat.InsetPen (Excel)

Retorna ou define se as linhas são desenhadas dentro dos limites da forma especificada. Leitura/gravação.

Sintaxe

expressão. InsetPen

Expressão Uma variável que representa um objeto LineFormat .

Valor de retorno

MsoTriState

Comentários

msoTrue (-1) se as linhas forem desenhadas dentro dos limites da forma; caso contrário, msoFalse (0).

Exemplo

O exemplo de código a seguir adiciona dois retângulos à planilha ativa, sendo o primeiro com suas linhas desenhadas dentro dos limites e o segundo com suas linhas desenhadas sobre os limites.

Dim shpNew As Shape 
 
With ActiveSheet.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.