Returns the preset texture for the specified fill. Read-only MsoPresetTexture.
| MsoPresetTexture can be one of these MsoPresetTexture constants. |
| msoPresetTextureMixed |
| msoTextureBlueTissuePaper |
| msoTextureBouquet |
| msoTextureBrownMarble |
| msoTextureCanvas |
| msoTextureCork |
| msoTextureDenim |
| msoTextureFishFossil |
| msoTextureGranite |
| msoTextureGreenMarble |
| msoTextureMediumWood |
| msoTextureNewsprint |
| msoTextureOak |
| msoTexturePaperBag |
| msoTexturePapyrus |
| msoTextureParchment |
| msoTexturePinkTissuePaper |
| msoTexturePurpleMesh |
| msoTextureRecycledPaper |
| msoTextureSand |
| msoTextureStationery |
| msoTextureWalnut |
| msoTextureWaterDroplets |
| msoTextureWhiteMarble |
| msoTextureWovenMat |
expression.PresetTexture
expression Required. An expression that returns one of the objects in the Applies To list.
Use the PresetTextured method to set the preset texture for the fill.
Example
This example adds a rectangle to the myDocument and sets its preset texture to match that of shape two. For the example to work, shape two must have a preset textured fill.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
presetTexture2 = .Item(2).Fill.PresetTexture
.AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _
.PresetTextured presetTexture2
End With