PresetTextured Method Example

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

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