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