PresetTextured Method [Publisher 2003 VBA Language Reference]
Sets the specified fill to a preset texture.
expression.PresetTextured(PresetTexture)
expression Required. An expression that returns one of the objects in the Applies To list.
MsoPresetTexture
| MsoPresetTexture can be one of these MsoPresetTexture constants. |
| msoPresetTextureMixed Not used with this method. |
| msoTextureBlueTissuePaper |
| msoTextureBouquet |
| msoTextureBrownMarble |
| msoTextureCanvas |
| msoTextureCork |
| msoTextureDenim |
| msoTextureFishFossil |
| msoTextureGranite |
| msoTextureGreenMarble |
| msoTextureMediumWood |
| msoTextureNewsprint |
| msoTextureOak |
| msoTexturePaperBag |
| msoTexturePapyrus |
| msoTextureParchment |
| msoTexturePinkTissuePaper |
| msoTexturePurpleMesh |
| msoTextureRecycledPaper |
| msoTextureSand |
| msoTextureStationery |
| msoTextureWalnut |
| msoTextureWaterDroplets |
| msoTextureWhiteMarble |
| msoTextureWovenMat |
Example
This example adds a rectangle with a green-marble textured fill to the active publication.
ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeCan, _
Left:=90, Top:=90, Width:=40, Height:=80) _
.Fill.PresetTextured _
PresetTexture:=msoTextureGreenMarble
Applies to | FillFormat Object