- 0
- 0
- 约1.01千字
- 约 2页
- 2021-01-14 发布于山东
- 举报
PresetTextured 方法
将指定填充格式设为预设纹理。
expression.PresetTextured(PresetTexture)
expression 必需。表达式返回“应用于”列表中的一个对象。
PresetTexture 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
Excel VBA 教程: PresetTextured 方法·示例
本示例以第一个图表中使用的填充格式对第二个图表的填充格式进行设置。
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
原创力文档

文档评论(0)