PresetTexture Property [Publisher 2003 VBA Language Reference]
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.
Remarks
Use the PresetTextured method to specify the preset texture for the fill.
Example
This example adds a rectangle to the first page in the active publication and sets its preset texture to match that of the first shape on the page. For the example to work, the first shape must have a preset textured fill.
Sub SetTexture()
Dim texture As MsoPresetTexture
With ActiveDocument.Pages(1).Shapes
texture = .Item(1).Fill.PresetTexture
With .AddShape(Type:=msoShapeRectangle, Left:=250, Top:=72, _
Width:=40, Height:=80)
.Fill.PresetTextured PresetTexture:=texture
End With
End With
End Sub
Applies to | FillFormat Object