全部显示返回指定填充对象的预设纹理。MsoPresetTexture，只读。
| MsoPresetTexture 可以是下列 MsoPresetTexture 常量之一： |
| 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 必需。该表达式返回一个 FillFormat 对象。
可用 PresetTextured 方法指定填充的预设纹理。
本示例将一个矩形添加至 myDocument 中，并将其预设纹理设置与图形 2 的预设纹理相同。只有在图形 2 已有预设填充纹理时，本示例才会生效。
Set myDocument = ActiveDocument
With myDocument.Shapes
presetTexture2 = .Item(2).Fill.PresetTexture
.AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _
.PresetTextured presetTexture2
End With