PresetTextured Method Example

This example adds a rectangle with a green-marble textured fill to myDocument.

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _
    .Fill.PresetTextured msoTextureGreenMarble