FillFormat.PresetTexture property (PowerPoint)
Returns the preset texture for the specified fill. Read-only.
expression.PresetTexture
expression A variable that represents a FillFormat object.
MsoPresetTexture
The value of the PresetTexture property 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 |
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
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.