Excel VBA教程: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

上页:Excel VBA教程:PresetGradient方法 下页:Excel VBA教程:Previous方法

Excel VBA教程:PresetTextured方法

Excel VBA教程:Previous方法 Excel VBA教程:PrevNode方法
Excel VBA教程:PrintOut方法 Excel VBA教程:PrintPreview方法
Excel VBA教程:Protect方法 Excel VBA教程:ProtectSharing方法
Excel VBA教程:Publish方法 Excel VBA教程:PurgeChangeHistoryNow方法
Excel VBA教程:Quit方法 Excel VBA教程:RadarGroups方法
Excel VBA教程:RangeFromPoint方法 Excel VBA教程:RecheckSmartTags方法
Excel VBA教程:Record方法 Excel VBA教程:RecordMacro方法
Excel VBA教程:Refresh方法 Excel VBA教程:RefreshAll方法
Excel VBA教程:RefreshData方法 Excel VBA教程:RefreshTable方法
Excel VBA教程:RegisterXLL方法 Excel VBA教程:Regroup方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号