Share via


TextureType Property

MsoTextureType

MsoTextureType can be one of these MsoTextureType constants.
msoTexturePreset
msoTextureTypeMixed
msoTextureUserDefined

expression.TextureType

*expression   * Required. An expression that returns one of the objects in the Applies To list.

Example

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

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .TextureType = msoTextureUserDefined Then
            .PresetTextured msoTextureCanvas
        End If
    End With
Next

Applies to | FillFormat Object

See Also | TextureName Property