ppt学习资料

weiyingde

InsetPen属性
在指定的形状内绘制线条时，使用 MsoTrue属性值。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。没有启用插入笔。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 启用插入笔。
expression.InsetPen
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果此属性试图在不支持插入笔绘图的任何 Microsoft Office 自选图形中设置插入笔绘图，将发生错误。
VBA示例
下面的代码行在形状中启用插入笔。本示例假设当前演示文稿的第一张幻灯片中包含形状并且该形状支持插入笔绘图。
Sub DrawLinesInsideShape
    ActivePresentation.Slides(1).Shapes(1).Line.InsetPen = msoTrue
End Sub
InteractiveSequences属性
返回Sequences对象，该对象代表由单击指定形状触发的动画。
expression.InteractiveSequences
expression  必选。该表达式返回一个TimeLine对象。
说明
InteractiveSequences属性的默认值为一个空Sequences集合。
VBA示例
以下示例在第一张幻灯片中添加一个交互式序列并设置新动画序列的文本效果属性。
Sub NewInteractiveSeqence()
    Dim seqInteractive As Sequence
    Dim shpText As Shape
    Dim effText As Effect
    Set seqInteractive = ActivePresentation.Slides(1).TimeLine _
        .InteractiveSequences.Add(1)
    Set shpText = ActivePresentation.Slides(1).Shapes(1)
    Set effText = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpText, _
        EffectId:=msoAnimEffectChangeFont, _
        Trigger:=msoAnimTriggerOnPageClick)
    effText.EffectParameters.FontName = "Broadway"
    seqInteractive.ConvertToTextUnitEffect Effect:=effText, _
        UnitEffect:=msoAnimTextUnitEffectByWord
End Sub

weiyingde

IsFullScreen属性
返回指定幻灯片放映窗口是否占用全屏。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定幻灯片放映窗口占用全屏。
VBA示例
本示例缩小全屏的幻灯片放映窗口高度以便看到任务栏。
With Application.SlideShowWindows(1)
    If .IsFullScreen Then
        .Height = .Height - 20
    End If
End With
IsNamedShow属性
决定自定义（命名的）幻灯片放映是否在指定幻灯片放映视图中显示。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 自定义（命名的）幻灯片放映在指定幻灯片放映视图中显示。
VBA示例
如果在第一个幻灯片放映窗口中运行幻灯片放映是自定义幻灯片放映，本示例将显示其名称。
With SlideShowWindows(1).View
    If .IsNamedShow Then
        MsgBox "Now showing in slide show window 1: " _
           & .SlideShowName
    End If
End With
Italic属性
决定字符格式是否为斜体。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 字符格式不是斜体。
msoTriStateMixed 指定的文本范围包含斜体和非斜体两种字符。
msoTriStateToggle
msoTrue 字符格式为斜体。
VBA示例
本示例设置第一张幻灯片标题的文本，并设为蓝色、倾斜。
With Application.ActivePresentation.Slides(1) _
        .Shapes.Title.TextFrame.TextRange
    .Text = "Volcano Coffee"
    With .Font
        .Italic = msoTrue
        .Name = "palatino"
        .Color.RGB = RGB(0, 0, 255)
    End With
End With

weiyingde

Item属性
返回或设置由 Index参数指定的调整值。对于线性调整，0.0 调整值通常对应于形状的左边缘或上边缘，1.0 调整值通常对应于形状的右边缘或下边缘。但对某些形状，调整值可以超过形状边界。对于径向调整，1.0 调整值对应于形状宽度。对于角度调整，调整值用度数指定。Item属性仅应用于含有调整的形状。可读写。Single 类型。
expression.Item(Index)
expression  必选。该表达式返回一个 Adjustments对象。
Index  必选。Long 类型。调整的索引号。
说明
自选图形、连接符和艺术字对象最多可有八个调整。
VBA示例
本示例将两个十字形添加到myDocument，然后在每个十字形上设置第一个调整（此类型自选图形的唯一调整）的值。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeCross, 10, 10, 100, 100) _
        .Adjustments.Item(1) = 0.4
    .AddShape(msoShapeCross, 150, 10, 100, 100) _
        .Adjustments.Item(1) = 0.2
End With
本示例虽然没有明确地使用 Item属性，但与上例的结果相同。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape(msoShapeCross, 10, 10, 100, 100) _
        .Adjustments(1) = 0.4
    .AddShape(msoShapeCross, 150, 10, 100, 100) _
        .Adjustments(1) = 0.2
End With
KernedPairs属性
决定指定艺术字中的字符对是否紧排。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定艺术字中的字符对紧排。
VBA示例
本示例打开myDocument 中第三个形状（如果该形状为艺术字）的字体对字距。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.KernedPairs = msoTrue
    End If
End With

weiyingde

LanguageID属性
返回或设置指定文本范围的语言。用于标记使用不同于DefaultLanguageID属性指定的语言编写的文本部分。这使 Microsoft PowerPoint 可根据该语言检查每个文本范围的拼写和语法。此属性与应用程序界面语言无关。可读写。MsoLanguageID 类型。
MsoLanguageID 可以是下列 MsoLanguageID 类型常数之一。
msoLanguageIDAfrikaans
msoLanguageIDAlbanian
msoLanguageIDAmharic
msoLanguageIDArabic
msoLanguageIDArabicAlgeria
msoLanguageIDArabicBahrain
msoLanguageIDArabicEgypt
msoLanguageIDArabicIraq
msoLanguageIDArabicJordan
msoLanguageIDArabicKuwait
msoLanguageIDArabicLebanon
msoLanguageIDArabicLibya
msoLanguageIDArabicMorocco
msoLanguageIDArabicOman
msoLanguageIDArabicQatar
msoLanguageIDArabicSyria
msoLanguageIDArabicTunisia
msoLanguageIDArabicUAE
msoLanguageIDArabicYemen
msoLanguageIDArmenian
msoLanguageIDAssamese
msoLanguageIDAzeriCyrillic
msoLanguageIDAzeriLatin
msoLanguageIDBasque
msoLanguageIDBelgianDutch
msoLanguageIDBelgianFrench
msoLanguageIDBengali
msoLanguageIDBrazilianPortuguese
msoLanguageIDBulgarian
msoLanguageIDBurmese
msoLanguageIDByelorussian
msoLanguageIDCatalan
msoLanguageIDCherokee
msoLanguageIDChineseHongKong
msoLanguageIDChineseMacao
msoLanguageIDChineseSingapore
msoLanguageIDCroatian
msoLanguageIDCzech
msoLanguageIDDanish
msoLanguageIDDutch
msoLanguageIDEnglishAUS
msoLanguageIDEnglishBelize
msoLanguageIDEnglishCanadian
msoLanguageIDEnglishCaribbean
msoLanguageIDEnglishIreland
msoLanguageIDEnglishJamaica
msoLanguageIDEnglishNewZealand
msoLanguageIDEnglishPhilippines
msoLanguageIDEnglishSouthAfrica
msoLanguageIDEnglishTrinidad
msoLanguageIDEnglishUK
msoLanguageIDEnglishUS
msoLanguageIDEnglishZimbabwe
msoLanguageIDEstonian
msoLanguageIDFaeroese
msoLanguageIDFarsi
msoLanguageIDFinnish
msoLanguageIDFrench
msoLanguageIDFrenchCameroon
msoLanguageIDFrenchCanadian
msoLanguageIDFrenchCotedIvoire
msoLanguageIDFrenchLuxembourg
msoLanguageIDFrenchMali
msoLanguageIDFrenchMonaco
msoLanguageIDFrenchReunion
msoLanguageIDFrenchSenegal
msoLanguageIDFrenchWestIndies
msoLanguageIDFrenchZaire
msoLanguageIDFrisianNetherlands
msoLanguageIDGaelicIreland
msoLanguageIDGaelicScotland
msoLanguageIDGalician
msoLanguageIDGeorgian
msoLanguageIDGerman
msoLanguageIDGermanAustria
msoLanguageIDGermanLiechtenstein
msoLanguageIDGermanLuxembourg
msoLanguageIDGreek
msoLanguageIDGujarati
msoLanguageIDHebrew
msoLanguageIDHindi
msoLanguageIDHungarian
msoLanguageIDIcelandic
msoLanguageIDIndonesian
msoLanguageIDInuktitut
msoLanguageIDItalian
msoLanguageIDJapanese
msoLanguageIDKannada
msoLanguageIDKashmiri
msoLanguageIDKazakh
msoLanguageIDKhmer
msoLanguageIDKirghiz
msoLanguageIDKonkani
msoLanguageIDKorean
msoLanguageIDLao
msoLanguageIDLatvian
msoLanguageIDLithuanian
msoLanguageIDMacedonian
msoLanguageIDMalayalam
msoLanguageIDMalayBruneiDarussalam
msoLanguageIDMalaysian
msoLanguageIDMaltese
msoLanguageIDManipuri
msoLanguageIDMarathi
msoLanguageIDMexicanSpanish
msoLanguageIDMixed
msoLanguageIDMongolian
msoLanguageIDNepali
msoLanguageIDNone
msoLanguageIDNoProofing
msoLanguageIDNorwegianBokmol
msoLanguageIDNorwegianNynorsk
msoLanguageIDOriya
msoLanguageIDPolish
msoLanguageIDPunjabi
msoLanguageIDRhaetoRomanic
msoLanguageIDRomanian
msoLanguageIDRomanianMoldova
msoLanguageIDRussian
msoLanguageIDRussianMoldova
msoLanguageIDSamiLappish
msoLanguageIDSanskrit
msoLanguageIDSerbianCyrillic
msoLanguageIDSerbianLatin
msoLanguageIDSesotho
msoLanguageIDSimplifiedChinese
msoLanguageIDSindhi
msoLanguageIDSlovak
msoLanguageIDSlovenian
msoLanguageIDSorbian
msoLanguageIDSpanish
msoLanguageIDSpanishArgentina
msoLanguageIDSpanishBolivia
msoLanguageIDSpanishChile
msoLanguageIDSpanishColombia
msoLanguageIDSpanishCostaRica
msoLanguageIDSpanishDominicanRepublic
msoLanguageIDSpanishEcuador
msoLanguageIDSpanishElSalvador
msoLanguageIDSpanishGuatemala
msoLanguageIDSpanishHonduras
msoLanguageIDSpanishModernSort
msoLanguageIDSpanishNicaragua
msoLanguageIDSpanishPanama
msoLanguageIDSpanishParaguay
msoLanguageIDSpanishPeru
msoLanguageIDSpanishPuertoRico
msoLanguageIDSpanishUruguay
msoLanguageIDSpanishVenezuela
msoLanguageIDSutu
msoLanguageIDSwahili
msoLanguageIDSwedish
msoLanguageIDSwedishFinland
msoLanguageIDSwissFrench
msoLanguageIDSwissGerman
msoLanguageIDSwissItalian
msoLanguageIDTajik
msoLanguageIDTamil
msoLanguageIDTatar
msoLanguageIDTelugu
msoLanguageIDThai
msoLanguageIDTibetan
msoLanguageIDTraditionalChinese
msoLanguageIDTsonga
msoLanguageIDTswana
msoLanguageIDTurkish
msoLanguageIDTurkmen
msoLanguageIDUkrainian
msoLanguageIDUrdu
msoLanguageIDUzbekCyrillic
msoLanguageIDUzbekLatin
msoLanguageIDVenda
msoLanguageIDVietnamese
msoLanguageIDWelsh
msoLanguageIDXhosa
msoLanguageIDZulu
msoLanguageIDPortuguese
expression.LanguageID

expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将第一个形状中指定文字的语言设置为美国英语。
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange _
    .LanguageID = msoLanguageIDEnglishUS

weiyingde

LayoutDirection属性
为用户界面返回或设置布局方向。依据所选择或安装的语言支持该布局方向可为下列默认值之一。可读写。PpDirection 类型。
PpDirection 可以是下列 PpDirection 类型常数之一。
ppDirectionLeftToRight
ppDirectionMixed
ppDirectionRightToLeft
expression.LayoutDirection
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例将布局方向设置为从右向左。
Application.ActivePresentation.LayoutDirection = _
    ppDirectionRightToLeft
Left属性
应用于 Application、DocumentWindow、Shape、ShapeRange 和 SlideShowWindow对象的 Left属性。
Application、DocumentWindow 和SlideShowWindow对象：返回或设置 Single 类型值，该值代表从文档、应用程序和幻灯片放映窗口的左边缘到应用程序窗口用户区域左边缘的距离（以磅为单位）。将该属性设为一个很大的正值或负值会将整个窗口移出桌面。可读写。
Shape对象：返回或设置 Single 类型值，该值代表从形状边界框的左边缘到幻灯片左边缘的距离（以磅为单位）。可读写。
ShapeRange对象：返回或设置 Single 类型值，该值代表从形状区域中最左侧形状的左边缘到幻灯片左边缘的距离（以磅为单位）。可读写。
expression.Left
expression  必选。该表达式返回上述对象之一。
应用于 Comment对象的 Left属性。
返回 Single 类型值，该值代表批注的左边缘到幻灯片左边缘的距离（以磅为单位）。只读。
expression.Left
expression  必选。该表达式返回一个Comments对象。
VBA示例
应用于 DocumentWindows对象。
本示例水平排列第一个和第二个窗口。也就是说，每个窗口占据应用程序窗口用户区域的一半垂直可用空间和所有水平可用空间。要使本示例执行，必须只有两个文档窗口打开。
Windows.Arrange ppArrangeTiled
sngHeight = Windows(1).Height                     ' available height
sngWidth = Windows(1).Width + Windows(2).Width    ' available width
With Windows(1)
    .Width = sngWidth
    .Height = sngHeight / 2
    .Left = 0
End With
With Windows(2)
    .Width = sngWidth
    .Height = sngHeight / 2
    .Top = sngHeight / 2
    .Left = 0
End With

weiyingde

LeftMargin属性
以磅为单位返回或设置指定大纲级别的左缩进。可读写。Single 类型。
说明
如果段落以一个项目符号开始，该项目符号的位置由 FirstMargin属性决定。该段落的第一个文本字符的位置由 LeftMargin属性决定。
注意  RulerLevels集合包含五个 RulerLevel对象,每个对象对应于一个可能的大纲级别。第一个 RulerLevel对象的 LeftMargin属性值的有效范围为（-9.0 到 4095.875）。第二到第五个大纲级别的 RulerLevel对象的 LeftMargin属性值可确定如下：
最大值永远为 4095.875。
最小值为 FirstMargin属性和前一级 LeftMargin属性加 9 之间的最大赋值。
可以使用以下公式决定 LeftMargin属性的最小值。Index，RulerLevel对象中的索引数目表示了对象所对应大纲级别。若要决定对应第二到第五大纲级别的 RulerLevel对象的最小 LeftMargin属性值，用 2、3、4 或 5 代替 index 占位符。
Minimum(RulerLevel(index).FirstMargin) = Maximum(RulerLevel(index -1).FirstMargin, RulerLevel(index -1).LeftMargin) + 9
Minimum(RulerLevel(index).LeftMargin) = Maximum(RulerLevel(index -1).FirstMargin, RulerLevel(index -1).LeftMargin) + 9
VBA示例
本示例设置当前演示文稿幻灯片母版的文本第一级的首行缩进和悬挂缩进。
With Application.ActivePresentation _
        .SlideMaster.TextStyles(ppBodyStyle)
    With .Ruler.Levels(1)
        .FirstMargin = 9
        .LeftMargin = 54
    End With
End With
Length属性
应用于 CalloutFormat对象的 Length属性。
当指定标注的AutoLength属性设为 False 时，Length属性返回标注线的第一段（添加到文本标注框中的部分）的长度（以磅为单位）。仅应用于标注线多于一段的标注（msoCalloutThree 和 msoCalloutFour 类型）。只读。Float 类型。使用CustomLength方法为 CalloutFormat对象设置该属性的值。
expression。Length
expression  必选。该表达式返回上述对象之一。
应用于 TextRange对象的 Length属性。
以字符方式返回指定文本范围的长度。只读。Long 类型。
expression。Length
expression  必选。该表达式返回上述对象之一。
VBA示例
应用于 CalloutFormat 对象。
如果标注“co1”的第一段有固定的长度，本示例将标注“co2”的第一段也指定为该固定长度。要执行该示例，两个标注都必须有多个段。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    With .Item("co1").Callout
        If Not .AutoLength Then len1 = .Length
    End With
    If len1 Then .Item("co2").Callout.CustomLength len1
End With
应用于 TextRange对象。
如果第二张幻灯片的标题含有五个以上字符，本示例将标题的字体大小设为 48 磅，如果标题为五个或五个以下字符，则将字体大小设为 72 磅。
Set myDocument = ActivePresentation.Slides(2)
With myDocument.Shapes(1).TextFrame.TextRange
    If .Length > 5 Then
        .Font.Size = 48
    Else
        .Font.Size = 72
    End If
End With

weiyingde

Levels属性
应用于 Ruler对象的 Levels属性。
返回一个描述大纲缩进格式的RulerLevels对象。只读。
expression.Levels
expression  必选。该表达式返回上述对象之一。
应用于 TextStyle对象的 Levels属性。
返回一个描述大纲文本格式的TextStyleLevels对象。只读。
expression.Levels
expression  必选。该表达式返回上述对象之一。
VBA示例
本示例为当前演示文稿的幻灯片母版的正文文本的大纲级别 1 设置首行缩进和悬挂缩进，再设置该级别文本的字体名称和大小。
With Application.ActivePresentation _
        .SlideMaster.TextStyles(ppBodyStyle)
    With .Ruler.Levels(1) ' sets indents for level 1
        .FirstMargin = 9
        .LeftMargin = 54
    End With
    With .Levels(1).Font  ' sets text formatting for level 1
        .Name = "arial"
        .Size = 36
    End With
End With
Line属性
返回一个LineFormat对象，该对象含有指定形状的线条格式属性。（对于线条，LineFormat对象代表该线条本身；对于一个有边界的形状，LineFormat对象代表边界）。只读。
VBA示例
本示例向myDocument 中添加蓝色的虚线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With
本示例向第一张幻灯片中添加一个十字，然后将其边框设置为 8 磅，颜色为红色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeCross, 10, 10, 50, 70).Line
    .Weight = 8
    .ForeColor.RGB = RGB(255, 0, 0)
End With
LineRuleAfter属性
决定是否将每段最后一行后面的行距设为指定的磅数或行数。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 将每段最后一行后面的行距设为指定的磅数。
msoTriStateMixed
msoTriStateToggle
msoTrue 将每段最后一行后面的行距设为指定的行数。
VBA示例
本示例在显示一个消息框，其中显示当前演示文稿第一张幻灯片第二个形状中文本段落后的间距设置。
With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat
        sa = .SpaceAfter
        If .LineRuleAfter Then
            saUnits = " lines"
        Else
            saUnits = " points"
        End If
    End With
End With
MsgBox "Current spacing after paragraphs: " & sa & saUnits

weiyingde

LineRuleBefore属性
决定是否将每段第一行前面的行距设为指定的磅数或行数。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 将每段第一行前面的行距设为指定的磅数。
msoTriStateMixed
msoTriStateToggle
msoTrue 将每段第一行前面的行距设为指定的行数。
VBA示例
本示例显示一个消息框，其中显示当前演示文稿第一张幻灯片第二个形状中文本段落前的间距设置。
With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat
        sb = .SpaceBefore
        If .LineRuleBefore Then
            sbUnits = " lines"
        Else
            sbUnits = " points"
        End If
    End With
End With
MsgBox "Current spacing before paragraphs: " & sb & sbUnits
LineRuleWithin属性
决定是否将基线间的行距设为指定磅数或行数。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 将基线间的行距设为指定磅数。
msoTriStateMixed
msoTriStateToggle
msoTrue 将基线间的行距设为指定行数。
VBA示例
本示例显示一个消息框，其中显示当前演示文稿第一张幻灯片第二个形状中文本的行距设置。
With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame
    With .TextRange.ParagraphFormat
        ls = .SpaceWithin
        If .LineRuleWithin Then
            lsUnits = " lines"
        Else
            lsUnits = " points"
        End If
    End With
End With
MsgBox "Current line spacing: " & ls & lsUnits

weiyingde

LinkFormat属性
返回一个LinkFormat对象，该对象包含链接的 OLE对象独有的属性。只读。
VBA示例
本示例将更新活动演示文稿的第一张幻灯片上任何 OLE对象与其源文件之间的链接。
For Each sh In ActivePresentation.Slides(1).Shapes
    If sh.Type = msoLinkedOLEObject Then
        With sh.LinkFormat
            .Update
        End With
    End If
Next
Loaded属性
决定是否已加载指定加载宏。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定加载宏已加载。在“加载宏”对话框（位于“工具”菜单）中，已加载的加载宏旁的复选框将会选中。
VBA示例
本示例将 MyTools.ppa 添加到“加载宏”对话框（位于“工具”菜单）的加载宏列表中并加载它。
Addins.Add("c:\my documents\mytools.ppa").Loaded = msoTrue
本示例卸载名为“MyTools”的加载宏。
Application.Addins("mytools").Loaded = msoFalse
LockAspectRatio属性
决定当调整指定形状时是否保留其原始比例。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 当调整形状时，可相互独立地更改形状的高度和宽度。
msoTriStateMixed
msoTriStateToggle
msoTrue调整指定形状时保留其原始比例。
VBA示例
本示例向myDocument 中添加一个立方体。可移动并调整该立方体，但不能重新设置其比例。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCube, 50, 50, 100, 200) _
    .LockAspectRatio = msoTrue
LoopSoundUntilNext属性
可读写。MsoTriState 类型。指定为指定幻灯片切换设置的声音是否循环播放，直到开始下一个声音。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 为指定幻灯片切换设置的声音循环播放，直到开始下一个声音。
VBA示例
本示例指定转换到当前演示文稿第二张幻灯片时开始播放文件 Dudududu.wav，并持续播放直到开始下一个声音文件。
With ActivePresentation.Slides(2).SlideShowTransition
    .SoundEffect.ImportFromFile "c:\sndsys\dudududu.wav"
    .LoopSoundUntilNext = msoTrue
End With

weiyingde

LoopUntilStopped属性
应用于 PlaySettings对象。
决定指定影片或声音是否持续循环，直到出现下列情况：开始下一个影片或声音、用户单击幻灯片或发生幻灯片切换。可读写，MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定影片或声音持续循环，直到开始下一个影片或声音、用户单击幻灯片或发生幻灯片切换。
expression.LoopUntilStopped
expression  必选。该表达式返回“应用于”列表中的对象之一。
应用于 SlideShowSettings对象。
决定指定幻灯片放映是否持续循环，直到用户按 Esc。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定幻灯片放映持续循环，直到用户按 Esc。
expression.LoopUntilStopped
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
应用于 PlaySettings对象。
本示例将当前演示文稿第一张幻灯片第三个形状设为以动画顺序开始播放，并持续播放直到开始下一个媒体剪辑。第三个形状必须是声音或影片对象。
ActivePresentation.Slides(1).Shapes(3) _
    .AnimationSettings.PlaySettings.LoopUntilStopped = msoTrue
应用于 SlideShowSettings对象。
本示例开始当前演示文稿的一个幻灯片放映，该演示文稿自动切换幻灯片（按存储的时间间隔），并循环放映直到用户按 Esc。
With ActivePresentation.SlideShowSettings
    .AdvanceMode = ppSlideShowUseSlideTimings
    .LoopUntilStopped = msoTrue
    .Run
End With