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
SubAddress属性
返回或设置对象在与指定超链接相关联的文档中的位置，例如 Word 文档中的书签、Microsoft Excel 工作表中的区域或 PowerPoint 演示文稿中的幻灯片。可读写。String 类型。
VBA示例
本示例设置在幻灯片放映过程中，单击当前演示文稿第一张幻灯片第一个形状时，跳转到 Latest Figures.ppt 中名为“Last Quarter”的幻灯片。
With ActivePresentation.Slides(1).Shapes(1) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
With .Hyperlink
.Address = "c:saleslatest figures.ppt"
.SubAddress = "last quarter"
End With
End With
本示例设置在幻灯片放映过程中，单击当前演示文稿第一张幻灯片第一个形状时，跳转到 Latest.xls 中 A1:B10 单元格区域。
With ActivePresentation.Slides(1).Shapes(1) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
With .Hyperlink
.Address = "c:saleslatest.xls"
.SubAddress = "A1:B10"
End With
End With
Subscript属性
决定指定的文本是否为下标。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。指定的文本不是下标。
msoTriStateMixed 某些字符是下标，某些字符不是下标。
msoTriStateToggle
msoTrue 指定的文本是下标。
说明
如果把 BaselineOffset属性设为负值，则 Subscript属性将自动设置为 msoTrue 类型且 Superscript属性自动设置为 msoFalse 类型。
如果把 BaselineOffset属性设为正值，则 Subscript属性将自动设置为 msoFalse 类型且 Superscript属性自动设置为 msoTrue 类型。
如果把 Subscript属性设置为 msoTrue 类型，则 BaselineOffset属性将自动设置为 -0.25 (-25%)。
VBA示例
本示例将字符是下标的第一张幻灯片标题的第一个字符放大。
With Application.ActivePresentation.Slides(1) _
.Shapes.Title.TextFrame.TextRange
With .Characters(1, 1).Font
If .Subscript Then
scaleChar = -20 * .BaselineOffset
.Size = .Size * scaleChar
End If
End With
End With
Superscript属性
决定指定的文本是否为上标。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。指定的文本不是上标。
msoTriStateMixed 某些字符是上标，某些字符不是上标。
msoTriStateToggle
msoTrue 指定的文本是上标。
说明
如果把 BaselineOffset属性设为负值，则 Subscript属性将自动设置为 msoTrue 类型且 Superscript属性自动设置为 msoFalse 类型。
如果把 BaselineOffset属性设为正值，则 Subscript属性将自动设置为 msoFalse 类型且 Superscript属性自动设置为 msoTrue 类型。
设置 Superscript属性为 msoTrue 同时会自动设置 BaselineOffset属性为 0.3 (30%)。
VBA示例
本示例设置第一张幻灯片第二个形状的文本，并将第五个字符设为偏移 30% 的上标。
With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
With .TextRange
.Text = "E=mc2"
.Characters(5, 1).Font.Superscript = msoTrue
End With
End With
Table属性
返回一个Table对象，代表某个形状或形状范围内的一个表格。只读。
VBA示例
本示例将第二张幻灯片第五个形状中表格第一列的列宽设置为 80 磅。
ActivePresentation.Slides(2).Shapes(5).Table _
.Columns(1).Width = 80
TableDirection属性
返回或设置表格单元格排列的方向。可读写。PpDirection 类型。
PpDirection 可以是下列 PpDirection 类型常数之一。
ppDirectionLeftToRight
ppDirectionMixed
ppDirectionRightToLeft
expression.TableDirection
expression必选。该表达式返回“应用于”列表中的对象之一。
说明
TableDirection属性的默认值为 ppDirectionLefttToRight。但是在LanguageSettings属性或DefaultLanguageID属性被设置为从右向左的语言时例外，在此情况下其默认值为 ppDirectionRightToLeft。当使用 TextDirection属性时会返回 ppDirectionMixed 常数。
VBA示例
本示例将选定表格中单元格放置次序的方向设置为从左向右（即第一列在最左边）。
ActiveWindow.Selection.ShapeRange.Table.TableDirection = _
ppDirectionLeftToRight
Smooth属性
设置或返回MsoTriState 类型值，该值代表从一个动画点到另一个动画点的切换是否是平稳。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 动画点不应该是平稳的。
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。动画应该是平稳的。
expression.Smooth
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例更改动画点的平稳性。
Sub ChangeSmooth(ByVal ani As AnimationBehavior, ByVal bln As MsoTriState)
ani.PropertyEffect.Points.Smooth = bln
End Sub
SmoothEnd属性
设置或返回MsoTriState 类型常数，该常数代表动画结束时是否应该减速。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画结束时不减速。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画结束时减速。
expression.SmoothEnd
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向幻灯片添加一个形状并使该形状具有动画效果，然后指示该形状在动画结束时减速。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds shape and sets animation effect
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
'Sets duration of effect and slows animation at end
With effDiamond.Timing
.Duration = 5
.SmoothEnd = msoTrue
End With
End Sub
SmoothStart属性
设置或返回MsoTriState 类型常数，该常数代表动画启动时是否应该加速。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画启动时不加速。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画启动时加速。
expression.SmoothStart
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向幻灯片添加一个形状并使该形状具有动画效果，然后指示该形状在动画启动时加速。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
With effDiamond.Timing
.Duration = 5
.SmoothStart = msoTrue
End With
End Sub
SnapToGrid属性
属性值为 MsoTrue 时，在指定的演示文稿中将形状与网格线对齐。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.SnapToGrid
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在当前演示文稿中切换形状相对于网格线的对齐。
Sub ToggleSnapToGrid()
With ActivePresentation
If .SnapToGrid = msoTrue Then
.SnapToGrid = msoFalse
Else
.SnapToGrid = msoTrue
End If
End With
End Sub
SoundEffect属性
ActionSetting对象：返回SoundEffect对象，该对象代表单击指定形状或鼠标移过该形状时播放的声音。如果运行幻灯片放映时无法听到为该形状设置的声音，请确保将TextLevelEffect属性设为非 ppAnimateLevelNone 的值，并且将Animate属性设置为 True。
AnimationSettings 和EffectInformation对象：返回 SoundEffect对象，该对象代表指定形状的动画中播放的声音。
SlideShowTransition对象：返回一个 SoundEffect对象，该对象代表转换到指定幻灯片时播放的声音。
expression.SoundEffect
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置在当前演示文稿第一张幻灯片第一个形状演示动画时播放文件 Bass.wav。
With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
.Animate = True
.TextLevelEffect = ppAnimateByAllLevels
.SoundEffect.ImportFromFile "c:bass.wav"
End With
SourceFullName属性
返回或设置链接 OLE对象的源文件的名称或路径。可读写。String 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第一个形状的源文件设为 Wordtest.doc，并指定该对象的图像自动更新。
With ActivePresentation.Slides(1).Shapes(1)
If .Type = msoLinkedOLEObject Then
With .LinkFormat
.SourceFullName = "c:my documentswordtest.doc"
.AutoUpdate = ppUpdateOptionAutomatic
End With
End If
End With
SourceType属性
返回或设置要发布为 HTML 格式的演示文稿的源类型。可读写。PpPublishSourceType 类型。
PpPublishSourceType 可以是下列 PpPublishSourceType 类型常数之一。
ppPublishAll
ppPublishNamedSlideShow 使用此值发布自定义幻灯片放映，用SlideShowName属性指定该自定义幻灯片放映的名称。
ppPublishSlideRange
expression.SourceType
expression必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将当前演示文稿中指定的幻灯片范围（第三张幻灯片到第五张幻灯片）以 HTML 格式发布，并将发布的演示文稿命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
.FileName = "C:TestMallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.Publish
End With
SpaceAfter属性
以磅或行为单位返回或设置指定文本中每段末行后的间距大小。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中文本的段落后的间距设为 6 磅。
With Application.ActivePresentation.Slides(1).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat
.LineRuleAfter = False
.SpaceAfter = 6
End With
End With
SpaceBefore属性
以磅或行为单位返回或设置指定文本中每段首行前的间距大小。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中文本的段落前的间距设为 6 磅。
With Application.ActivePresentation.Slides(1).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat
.LineRuleBefore = False
.SpaceBefore = 6
End With
End With
SpaceWithin属性
以磅或行为单位返回或设置指定文本中基准行之间的距离。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第二张幻灯片第二个形状中的文本的行间距设为 21 磅。
With Application.ActivePresentation.Slides(2).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat
.LineRuleWithin = False
.SpaceWithin = 21
End With
End With
SpeakerNotes属性
决定是否要将演讲者备注随演示文稿一起发布。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 演讲者备注不随演示文稿一起发布。
VBA示例
本示例将当前演示文稿的第三张幻灯片到第五张幻灯片以 HTML 格式发布。发布的演示文稿中包含相关的演讲者备注，并将其命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
.FileName = "C:TestMallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.SpeakerNotes = msoTrue
.Publish
End With
Speed属性
应用于 SlideShowTransition对象的 Speed属性。
返回或设置PpTransitionSpeed 类型常数，该常数代表切换到指定幻灯片的速度。可读写。
PpTransitionSpeed 可以是下列 PpTransitionSpeed 类型常数之一。
ppTransitionSpeedFast
ppTransitionSpeedMedium
ppTransitionSpeedMixed
ppTransitionSpeedSlow
expression.Speed
expression必选。该表达式返回一个SlideShowTransition对象。
应用于 Timing对象的 Speed属性。
返回或设置 Single 类型值，该值代表指定动画的速度（以秒为单位）。可读写。
expression.Speed
expression必选。该表达式返回一个Timing对象。
VBA示例
应用于 SlideShowTransition对象。
本示例设置切换到当前演示文稿第一张幻灯片的特殊效果，并指定切换为快速。
With ActivePresentation.Slides(1).SlideShowTransition
.EntryEffect = ppEffectStripsDownLeft
.Speed = ppTransitionSpeedFast
End With
应用于 Timing对象。
本示例将主序列动画设置为正向播放后再反向播放，并且将速度设置为一秒。
Sub AnimPoints()
Dim tmlAnim As TimeLine
Dim spdAnim As Timing
Set tmlAnim = ActivePresentation.Slides(1).TimeLine
Set spdAnim = tlnAnim.MainSequence(1).Timing
With spdAnim
.AutoReverse = msoTrue
.Speed = 1
End With
End Sub