PresetTextured Method Example
This example adds a rectangle with a green-marble textured fill to myDocument.
myDocument
Set myDocument = ActiveDocument myDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _ .Fill.PresetTextured msoTextureGreenMarble