PowerPoint VBA教程:Style属性

应用于 LineFormat对象的 Style属性。

返回或设置线条样式。可读写。MsoLineStyle 类型。

MsoLineStyle 可以是下列 MsoLineStyle 类型常数之一。
msoLineSingle
msoLineStyleMixed
msoLineThickBetweenThin
msoLineThickThin
msoLineThinThick
msoLineThinThin

expression.Style

expression  必选。该表达式返回上述对象之一。

 

应用于 BulletFormat对象的 Style属性。

返回或设置项目符号的样式。可读写。PpNumberedBulletStyle 类型。依据所选择或安装的语言支持系统(例如 U.S. English),部分这些常数是不可用的。

PpNumberedBulletStyle 可以是下列 PpNumberedBulletStyle 类型常数之一。
ppBulletAlphaLCParenBoth 带有一对圆括号的小写字母字符。
ppBulletAlphaLCParenRight 带有右括号的小写字母字符。
ppBulletAlphaLCPeriod 带有句号的小写字母字符。
ppBulletAlphaUCParenBoth 带有一对圆括号的大写字母字符。
ppBulletAlphaUCParenRight 带有右括号的大写字母字符。
ppBulletAlphaUCPeriod 带有句号的大写字母字符。
ppBulletArabicAbjadDash 带有破折号的阿拉伯 Abjad 字母表。
ppBulletArabicAlphaDash 带有破折号的阿拉伯语字母字符。
ppBulletArabicDBPeriod 带有双字节句号的双字节阿拉伯数字方案。
ppBulletArabicDBPlain 双字节阿拉伯数字方案(无标点)。
ppBulletArabicParenBoth 带有一对圆括号的阿拉伯数字。
ppBulletArabicParenRight 带有右括号的阿拉伯数字。
ppBulletArabicPeriod 带有句号的阿拉伯数字。
ppBulletArabicPlain 阿拉伯数字。
ppBulletCircleNumDBPlain 双字节的圆形数字(其值最大为 10)。
ppBulletCircleNumWDBlackPlain 圆形背景为普通文本颜色的彩色阴影数字。
ppBulletCircleNumWDWhitePlain 周围绘有相同颜色圆形的彩色文本数字。
ppBulletHebrewAlphaDash 带有破折号的希伯来语字母字符。
ppBulletHindiAlphaPeriod
ppBulletHindiNumPeriod
ppBulletKanjiKoreanPeriod 带有句号的日本/朝鲜数字。
ppBulletKanjiKoreanPlain 无句号的日本/朝鲜数字。
ppBulletRomanLCParenBoth 带有一对圆括号的小写罗马数字。
ppBulletRomanLCParenRight 带有右括号的小写罗马数字。
ppBulletRomanLCPeriod 带有句号的小写罗马数字。
ppBulletRomanUCParenBoth 带有一对圆括号的大写罗马数字。
ppBulletRomanUCParenRight 带有右括号的大写罗马数字。
ppBulletRomanUCPeriod 带有句号的大写罗马数字。
ppBulletSimpChinPeriod 带有句号的简体中文。
ppBulletSimpChinPlain 无句号的简体中文。
ppBulletStyleMixed 任何未定义的样式。
ppBulletThaiAlphaParenBoth
ppBulletThaiAlphaParenRight
ppBulletThaiAlphaPeriod
ppBulletThaiNumParenBoth
ppBulletThaiNumParenRight
ppBulletThaiNumPeriod
ppBulletTradChinPeriod 带有句号的繁体中文。
ppBulletTradChinPlain 无句号的繁体中文。

expression.Style

expression  必选。该表达式返回上述对象之一。

 

VBA示例

应用于 LineFormat对象。

本示例向myDocument 中添加粗的蓝色复合线。该复合线由一根粗线及其旁边的一根细线组成。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .Style = msoLineThickBetweenThin
    .Weight = 8
    .ForeColor.RGB = RGB(0, 0, 255)
End With

应用于 BulletFormat对象。

本示例将项目符号列表(由第一张幻灯片的第一个形状代表)的项目符号样式设置为彩色阴影数字,其背景为具有普通文本颜色的圆形背景。


ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.ParagraphFormat.Bullet _
        .Style = ppBulletCircleNumWDBlackPlain

上页:PowerPoint VBA教程:StopAfterSlides属性 下页:PowerPoint VBA教程:SubAddress属性

PowerPoint VBA教程:Style属性

PowerPoint VBA教程:SubAddress属性 PowerPoint VBA教程:Subscript属性
PowerPoint VBA教程:Superscript属性 PowerPoint VBA教程:Table属性
PowerPoint VBA教程:TableDirection属性 PowerPoint VBA教程:TabStops属性
PowerPoint VBA教程:Tags属性 PowerPoint VBA教程:TargetBrowser属性
PowerPoint VBA教程:TemplateName属性 PowerPoint VBA教程:Text属性
PowerPoint VBA教程:TextDirection属性 PowerPoint VBA教程:TextEffect属性
PowerPoint VBA教程:TextFrame属性 PowerPoint VBA教程:TextLevelEffect属性
PowerPoint VBA教程:TextRange属性 PowerPoint VBA教程:TextRangeLength属性
PowerPoint VBA教程:TextRangeStart属性 PowerPoint VBA教程:TextShape属性
PowerPoint VBA教程:TextStyles属性 PowerPoint VBA教程:TextToDisplay属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号