Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve o establece una constante MsoTriState que indica si las líneas de una forma especificada se dibujan dentro de sus límites. Lectura y escritura.
Sintaxis
expresión. InsetPen
expresión Variable que representa un objeto LineFormat .
Valor devuelto
MsoTriState
Observaciones
Si se intenta establecer esta propiedad en msoTrue para cualquier autoforma de Microsoft Office que no admita insertar dentro, se produce un error.
El valor de la propiedad InsetPen para las tablas es siempre msoTrue; al intentar establecer la propiedad en cualquier otros valor los resultados de un error.
El valor de la propiedad InsetPen puede ser una de las constantes MsoTriState declaradas en la biblioteca de tipos de Microsoft Office y se muestra en la siguiente tabla.
| Constante | Descripción |
|---|---|
| msoFalse | Las líneas se trazan directamente en los límites de la forma especificada. |
| msoTriStateMixed | Valor devuelto que indica una combinación de msoTrue y msoFalse para el intervalo de formas especificado. |
| msoTriStateToggle | Valor establecido que cambia entre msoTrue y msoFalse. |
| msoTrue | Las líneas se trazan dentro de los límites de la forma especificada. |
Ejemplo
En el siguiente ejemplo se agregan dos rectángulos a la página uno de la publicación activa, el primero con líneas trazadas dentro de sus límites y el segundo con las líneas trazadas en sus límites.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.