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 una cadena que indica el nombre del archivo de textura personalizada para el relleno especificado. Solo lectura.
Sintaxis
expresión. TextureName
Expresión Variable que representa un objeto FillFormat .
Valor devuelto
Cadena
Comentarios
Utilice el método UserTextured para establecer el archivo de textura para el relleno.
Ejemplo:
En este ejemplo se agrega un óvalo a la publicación activa. Si la forma uno de la publicación activa tiene un relleno con una textura definida por el usuario, el óvalo nuevo tendrá ese mismo relleno. Si la forma uno tiene otro tipo de relleno, el nuevo óvalo tendrá un relleno de mármol verde.
Dim ffNew As FillFormat
With ActiveDocument.Pages(1).Shapes
Set ffNew = .AddShape(Type:=msoShapeOval, _
Left:=0, Top:=0, Width:=200, Height:=90).Fill
With .Item(1).Fill
If .Type = msoFillTextured And _
.TextureType = msoTextureUserDefined Then
ffNew.UserTextured _
TextureFile:=.TextureName
Else
ffNew.PresetTextured _
PresetTexture:=msoTextureGreenMarble
End If
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.