PresetShape 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

PresetShape 属性

发布于 2019-08-07 字数 2887 浏览 616 评论 0

返回或设置指定的艺术字对象的图形。MsoPresetTextEffectShape 类型,可读写。











































MsoPresetTextEffectShape 可为以下 MsoPresetTextEffectShape 常量之一。
msoTextEffectShapeArchDownCurve
msoTextEffectShapeArchDownPour
msoTextEffectShapeArchUpCurve
msoTextEffectShapeArchUpPour
msoTextEffectShapeButtonCurve
msoTextEffectShapeButtonPour
msoTextEffectShapeCanDown
msoTextEffectShapeCanUp
msoTextEffectShapeCascadeDown
msoTextEffectShapeCascadeUp
msoTextEffectShapeChevronDown
msoTextEffectShapeChevronUp
msoTextEffectShapeCircleCurve
msoTextEffectShapeCirclePour
msoTextEffectShapeCurveDown
msoTextEffectShapeCurveUp
msoTextEffectShapeDeflate
msoTextEffectShapeDeflateBottom
msoTextEffectShapeDeflateInflateDeflate
msoTextEffectShapeDoubleWave1
msoTextEffectShapeFadeDown
msoTextEffectShapeFadeRight
msoTextEffectShapeInflate
msoTextEffectShapeInflateTop
msoTextEffectShapePlainText
msoTextEffectShapeRingOutside
msoTextEffectShapeSlantUp
msoTextEffectShapeTriangleDown
msoTextEffectShapeWave1
msoTextEffectShapeDeflateInflate
msoTextEffectShapeDeflateTop
msoTextEffectShapeDoubleWave2
msoTextEffectShapeFadeLeft
msoTextEffectShapeFadeUp
msoTextEffectShapeInflateBottom
msoTextEffectShapeMixed
msoTextEffectShapeRingInside
msoTextEffectShapeSlantDown
msoTextEffectShapeStop
msoTextEffectShapeTriangleUp
msoTextEffectShapeWave2

expression.PresetShape


expression 必需。该表达式返回“应用于”列表中的对象之一。


说明


设置 PresetTextEffect 属性将自动设置 PresetShape 属性。


示例


本示例将 myDocument 中所有艺术字对象的图形设置为中点朝下的山形。

Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetShape = msoTextEffectShapeChevronDown
End If
Next

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!