TextureType Property Example

This example changes the fill for all shapes on myDocument with a custom textured fill to a canvas fill.

Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
    With s.Fill
        If .TextureType = msoTextureUserDefined Then
            .PresetTextured msoTextureCanvas
        End If
    End With
Next