Propiedad FillFormat.PresetTexture (Publisher)

Devuelve una constante MsoPresetTexture que representa la textura preestablecida para el relleno especificado. Solo lectura.

Sintaxis

expresión. PresetTexture

expresión Variable que representa un objeto FillFormat .

Valor devuelto

MsoPresetTexture

Observaciones

El valor de la propiedad PresetTexture puede ser una de las constantes MsoPresetTexture declaradas en la biblioteca de tipos de Microsoft Office.

Utilice el método PresetTextured para establecer la textura preestablecida para el relleno.

Ejemplo

En este ejemplo se agrega un rectángulo a la primera página de la publicación activa y se establece la textura preestablecida para que coincida con la de la primera forma de la página. Para que funcione el ejemplo, la primera forma debe tener una textura de relleno preestablecida.

Sub SetTexture() 
 Dim texture As MsoPresetTexture 
 With ActiveDocument.Pages(1).Shapes 
 texture = .Item(1).Fill.PresetTexture 
 With .AddShape(Type:=msoShapeRectangle, Left:=250, Top:=72, _ 
 Width:=40, Height:=80) 
 .Fill.PresetTextured PresetTexture:=texture 
 End With 
 End With 
End Sub

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.