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
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.