expression.PresetTextured(PresetTexture)
expression Required. An expression that returns one of the objects in the Applies To list.
PresetTexture Required 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 |
Example
This example sets the fill format for chart two to the same style used for chart one.
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillTextured Then
With Charts(2).ChartArea.Fill
.Visible = True
If c1f.TextureType = msoTexturePreset Then
.PresetTextured c1f.PresetTexture
Else
.UserTextured c1f.TextureName
End If
End With
End If