返回和预设指定填充的纹理。只读。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 必选。该表达式返回“应用于”列表中的对象之一。
使用 PresetTextured 方法为填充设置预设纹理。
本示例向 myDocument 中添加矩形，并且设置该矩形的预设纹理以便和第二个形状的纹理相匹配。要使本示例执行，第二个形状必须使用预设纹理的填充。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
presetTexture2 = .Item(2).Fill.PresetTexture
.AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _
.PresetTextured presetTexture2
End With