ppt学习资料

weiyingde

AutoLength属性
在移动标注时，可决定标注的第一段是保持Length属性指定的固定长度，还是被自动缩放。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。仅应用于由多条线段组成线条的标注（类型 msoCalloutThree 和 msoCalloutFour）。
msoCTrue
msoFalse 无论何时移动标注，标注线的第一段都保持 Length属性指定的固定长度。
msoTriStateMixed
msoTriStateToggle
msoTrue 无论何时移动标注，标注线的第一段（附加到文本标注框的段）都自动缩放。
说明
该属性是只读的。使用AutomaticLength方法设置该属性为 msoTrue，并且使用CustomLength方法设置该属性为 msoFalse。
VBA示例
本示例使myDocument 第一个形状的标注线在对第一段自动缩放和对第一段使用固定长度之间进行切换。要使本示例执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .AutoLength Then
        .CustomLength 50
    Else
        .AutomaticLength
    End If
End With
AutoLoad属性
决定指定的加载宏在每次启动 PowerPoint 时是否自动加载。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 每次启动 PowerPoint 时，自动加载指定的加载宏。
说明
设置该属性为 msoTrue 的同时会自动设置Registered属性为 msoTrue。
VBA示例
本示例显示每次启动 PowerPoint 时自动加载的每个加载项的名称。
For Each myAddIn In AddIns
    If myAddIn.AutoLoad Then
        MsgBox myAddIn.Name
        afound = True
    End If
Next myAddIn
If afound <> True Then
    MsgBox "No add-ins were loaded automatically."
End If
本示例指定名为“MyTools”的加载项在每次启动 PowerPoint 时自动加载。
Application.AddIns("mytools").AutoLoad = msoTrue
AutomationSecurity属性
返回或设置MsoAutomationSecurity 常数，该常数代表用编程方式打开文件时 Microsoft PowerPoint 使用的安全模式。启动应用程序时，此属性自动设置为msoAutomationSecurityLow 值。因此，为了避免破坏基于默认设置的解决方案，在用编程方式打开文件后要注意将此属性重新设置为 msoAutomationSecurityLow。同样，在用编程方式打开文件之前或之后都应立即设置此属性以避免遭受蓄意破坏。可读写。
MsoAutomationSecurity 可以是下列 MsoAutomationSecurity 类型常数之一。
msoAutomationSecurityByUI 使用在“安全性”对话框中指定的安全设置。
msoAutomationSecurityForceDisable 禁用所有以编程方式打开的文件中的所有宏而不显示任何安全警告。
msoAutomationSecurityLow 启用所有的宏。启动应用程序时此参数为默认值。
expression.AutomationSecurity
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
DisplayAlerts属性的值将不会应用于安全警告。例如，如果用户将 DisplayAlerts属性设置为 False 并将 AutomationSecurity属性设置为 msoAutomationSecurityByUI，而用户又处于中等安全级别，则在运行宏时将出现安全警告。此属性将允许宏捕获打开文件时产生的错误，这样即使文件成功打开，仍将显示安全警告。
VBA示例
本示例捕获当前的自动安全设置，将该设置更改为禁用宏，显示“打开”对话框，并在打开选定的演示文稿之后将自动安全性恢复为其原始设置。
Sub Security()
    Dim secAutomation As MsoAutomationSecurity
    secAutomation = Application.AutomationSecurity
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    Application.FileDialog(msoFileDialogOpen).Show
    Application.AutomationSecurity = secAutomation
End Sub

weiyingde

AutoReverse属性
设置或返回MsoTriState 类型常数，该值代表效果是否应正向播放后再反向播放，并因此而将持续时间加倍。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。效果不会正向播放后再反向播放。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 效果正向播放后再反向播放。
expression.AutoReverse
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状并向其中添加动画效果；然后将动画设置为正向播放结束后反向播放。
Sub SetEffectTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    'Adds rectangle and applies diamond 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 the duration of and reverses the effect
    With effDiamond.Timing
        .Duration = 5 ' Length of effect.
        .AutoReverse = msoTrue
    End With
End Sub
AutoRotateNumbers属性
返回或设置横向压缩。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 半宽数字在横向栏中不被压缩。
msoTriStateMixed
msoTriStateToggle
msoTrue 在双字符横向栏中显示竖排文字中的半宽数字。
VBA示例
本示例将第一张幻灯片第三个形状的文本方向设置为竖排文字，并设置横向栏压缩。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).TextFrame
    .Orientation = msoTextOrientationVerticalFarEast
    .TextRange.Font.AutoRotateNumbers = msoTrue
End With

weiyingde

AutoShapeType属性
为指定的 Shape 或 ShapeRange对象返回或设置形状类型，除了直线、任意多边形图形或连接符外，必须表示一 AutoShape。可读写。MsoAutoShapeType 类型。
MsoAutoShapeType 可以是下列 MsoAutoShapeType 类型常数之一。
msoShapeFlowchartConnector
msoShapeFlowchartData
msoShapeFlowchartDecision
msoShapeFlowchartDelay
msoShapeFlowchartDirectAccessStorage
msoShapeFlowchartDisplay
msoShapeFlowchartDocument
msoShapeFlowchartExtract
msoShapeFlowchartInternalStorage
msoShapeFlowchartMagneticDisk
msoShapeFlowchartManualInput
msoShapeFlowchartManualOperation
msoShapeFlowchartMerge
msoShapeFlowchartMultidocument
msoShapeFlowchartOffpageConnector
msoShapeFlowchartOr
msoShapeFlowchartPredefinedProcess
msoShapeFlowchartPreparation
msoShapeFlowchartProcess
msoShapeFlowchartPunchedTape
msoShapeFlowchartSequentialAccessStorage
msoShapeFlowchartSort
msoShapeFlowchartStoredData
msoShapeFlowchartSummingJunction
msoShapeFlowchartTerminator
msoShapeFoldedCorner
msoShapeHeart
msoShapeHexagon
msoShapeHorizontalScroll
msoShapeIsoscelesTriangle
msoShapeLeftArrow
msoShapeLeftArrowCallout
msoShapeLeftBrace
msoShapeLeftBracket
msoShapeLeftRightArrow
msoShapeLeftRightArrowCallout
msoShapeLeftRightUpArrow
msoShapeLeftUpArrow
msoShapeLightningBolt
msoShapeLineCallout1
msoShapeLineCallout1AccentBar
msoShapeLineCallout1BorderandAccentBar
msoShapeLineCallout1NoBorder
msoShapeLineCallout2
msoShapeLineCallout2AccentBar
msoShapeLineCallout2BorderandAccentBar
msoShapeLineCallout2NoBorder
msoShapeLineCallout3
msoShapeLineCallout3AccentBar
msoShapeLineCallout3BorderandAccentBar
msoShapeLineCallout3NoBorder
msoShapeLineCallout4
msoShapeLineCallout4AccentBar
msoShapeLineCallout4BorderandAccentBar
msoShapeLineCallout4NoBorder
msoShapeMixed
msoShapeMoon
msoShapeNoSymbol
msoShapeNotchedRightArrow
msoShapeNotPrimitive
msoShapeOctagon
msoShapeOval
msoShapeOvalCallout
msoShapeParallelogram
msoShapePentagon
msoShapePlaque
msoShapeQuadArrow
msoShapeQuadArrowCallout
msoShapeRectangle
msoShapeRectangularCallout
msoShapeRegularPentagon
msoShapeRightArrow
msoShapeRightArrowCallout
msoShapeRightBrace
msoShapeRightBracket
msoShapeRightTriangle
msoShapeRoundedRectangle
msoShapeRoundedRectangularCallout
msoShapeSmileyFace
msoShapeStripedRightArrow
msoShapeSun
msoShapeTrapezoid
msoShapeUpArrow
msoShapeUpArrowCallout
msoShapeUpDownArrow
msoShapeUpDownArrowCallout
msoShapeUpRibbon
msoShapeUTurnArrow
msoShapeVerticalScroll
msoShapeWave
msoShapeFlowchartCollate
msoShape16pointStar
msoShape24pointStar
msoShape32pointStar
msoShape4pointStar
msoShape5pointStar
msoShape8pointStar
msoShapeActionButtonBackorPrevious
msoShapeActionButtonBeginning
msoShapeActionButtonCustom
msoShapeActionButtonDocument
msoShapeActionButtonEnd
msoShapeActionButtonForwardorNext
msoShapeActionButtonHelp
msoShapeActionButtonHome
msoShapeActionButtonInformation
msoShapeActionButtonMovie
msoShapeActionButtonReturn
msoShapeActionButtonSound
msoShapeArc
msoShapeBalloon
msoShapeBentArrow
msoShapeBentUpArrow
msoShapeBevel
msoShapeBlockArc
msoShapeCan
msoShapeChevron
msoShapeCircularArrow
msoShapeCloudCallout
msoShapeCross
msoShapeCube
msoShapeCurvedDownArrow
msoShapeCurvedDownRibbon
msoShapeCurvedLeftArrow
msoShapeCurvedRightArrow
msoShapeCurvedUpArrow
msoShapeCurvedUpRibbon
msoShapeDiamond
msoShapeDonut
msoShapeDoubleBrace
msoShapeDoubleBracket
msoShapeDoubleWave
msoShapeDownArrow
msoShapeDownArrowCallout
msoShapeDownRibbon
msoShapeExplosion1
msoShapeExplosion2
msoShapeFlowchartAlternateProcess
msoShapeFlowchartCard
expression.AutoShapeType
expression  必选。该表达式返回“应用于”列表中的对象之一。可读写。Long 类型。
注意  改变一个形状的类型时，该形状保留其大小、颜色和其他属性。
说明
使用ConnectorFormat对象的 Type属性设置或返回连接符类型。
VBA示例
本示例在myDocument 中用 16 角星替换所有 32 角星。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.AutoShapeType = msoShape16pointStar Then
        s.AutoShapeType = msoShape32pointStar
    End If
Next

weiyingde

AutoSize属性
返回或设置一个值，该值指示指定形状的大小是否为容纳其边界内的文本而自动更改。可读写。PpAutoSize 类型。
PpAutoSize 可以是下列 PpAutoSize 类型常数之一。
ppAutoSizeMixed
ppAutoSizeNone
ppAutoSizeShapeToFitText
expression.AutoSize
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例调整第一个幻灯片的标题边界框以容纳标题文本。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1)
    If .TextFrame.TextRange.Characters.Count < 50 Then
        .TextFrame.AutoSize = ppAutoSizeShapeToFitText
    End If
End With
AutoUpdate属性
返回或设置更新链接的方法。可读写。PpUpdateOption 类型。
PpUpdateOption 可以是下列 PpUpdateOption 类型常数之一。
ppUpdateOptionAutomatic 每次打开演示文稿或源文件更改时更新链接。
ppUpdateOptionManual 仅当用户特别要求更新演示文稿时更新链接。
ppUpdateOptionMixed
expression.AutoUpdate
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例搜索当前演示文稿中所有幻灯片的所有形状，并将所有链接的 Microsoft Excel 工作表设为手动更新。
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Excel.Sheet" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next
BackColor属性
返回或设置一个ColorFormat对象，该对象代表指定的填充或图案线的背景色。可读写。
VBA示例
本示例在myDocument 中添加一个矩形，然后设置矩形填充的前景色、背景色和过渡。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        90, 90, 90, 50).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(170, 170, 170)
    .TwoColorGradient msoGradientHorizontal, 1
End With
本示例在myDocument 中添加一条有图案的线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 100, 250, 0).Line
    .Weight = 6
    .ForeColor.RGB = RGB(0, 0, 255)
    .BackColor.RGB = RGB(128, 0, 0)
    .Pattern = msoPatternDarkDownwardDiagonal
End With

weiyingde

Background属性
返回代表幻灯片背景的ShapeRange对象。
expression.Background
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果要使用 Background属性设置单张幻灯片的背景而不更改幻灯片母版，则该幻灯片的FollowMasterBackground属性必须设为 False。
VBA示例
本示例将当前演示文稿的幻灯片母版的背景设为预设的底纹。
ActivePresentation.SlideMaster.Background.Fill.PresetGradient _
    Style:=msoGradientHorizontal, Variant:=1, _
    PresetGradientType:=msoGradientLateSunset
本示例将当前演示文稿中第一张幻灯片的背景设为预设的底纹。
With ActivePresentation.Slides(1)
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient Style:=msoGradientHorizontal, _
        Variant:=1, PresetGradientType:=msoGradientLateSunset
End With
BaseLineAlignment属性
为指定段落返回或设置基线对齐方式。可读写。PpBaselineAlignment 类型。
PpBaselineAlignment 可以是下列 PpBaselineAlignment 类型常数之一。
ppBaselineAlignBaseline
ppBaselineAlignCenter
ppBaselineAlignFarEast50
ppBaselineAlignMixed
ppBaselineAlignTop
expression.BaseLineAlignment
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例显示当前演示文稿第一张幻灯片第二个形状中段落的基准线对齐方式。
MsgBox ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _
.ParagraphFormat.BaseLineAlignment
BaselineOffset属性
返回或设置指定的下标或下标字符的基准线偏移。可为 -1 到 1 之间的浮点数。-1 代表 - 100% 的偏移，1 代表 100% 的偏移。可读写。Single 类型。
说明
BaselineOffset属性设为负值时，Subscript属性被自动设为 True，Superscript属性被自动设为 False。
BaselineOffset属性设为正值时，Subscript属性被自动设为 False，Superscript属性被自动设为 True。
Subscript属性设为 True 时，BaselineOffset属性被自动设为 0.3 (30%)。
设置 Superscript属性为 True 自动设置 BaselineOffset属性为 -0.25 (-25%)。
VBA示例
本示例为第一张幻灯片上的第二个形状设置文本，并将第二个字符的下标设为偏移 20%。
With Application.ActivePresentation.Slides(1) _
        .Shapes(2).TextFrame.TextRange
    .Text = "H2O"
    .Characters(2, 1).Font.BaselineOffset = -0.2
End With

weiyingde

BeginArrowheadLength属性
返回或设置指定线条开头的箭头长度。 可读写。MsoArrowheadLength 类型。
MsoArrowheadLength 可以是下列 MsoArrowheadLength 类型常数之一。
msoArrowheadLengthMedium
msoArrowheadLengthMixed
msoArrowheadLong
msoArrowheadShort
expression.BeginArrowheadLength
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在myDocument 中添加一条线。在该线条的起点有一个短而窄的椭圆，在终点有一个长而宽的三角形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadLong
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadWidth = msoArrowheadWide
End With
BeginArrowheadStyle属性
返回或设置指定线条开头的箭头样式。可读写。MsoArrowheadStyle 类型。
MsoArrowheadStyle 可以是下列 MsoArrowheadStyle 类型常数之一。
msoArrowheadDiamond
msoArrowheadNone
msoArrowheadOpen
msoArrowheadOval
msoArrowheadStealth
msoArrowheadStyleMixed
msoArrowheadTriangle
expression.BeginArrowheadStyle
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在myDocument 中添加一条线。在该线条的起点有一个短而窄的椭圆，在终点有一个长而宽的三角形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadLong
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadWidth = msoArrowheadWide
End With
BeginArrowheadWidth属性
返回或设置指定线条开头的箭头宽度。可读写。MsoArrowheadWidth 类型。
MsoArrowheadWidth 可以是下列 MsoArrowheadWidth 类型常数之一。
msoArrowheadNarrow
msoArrowheadWide
msoArrowheadWidthMedium
msoArrowheadWidthMixed
expression.BeginArrowheadWidth
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例在myDocument 中添加一条线。在该线条的起点有一个短而窄的椭圆，在终点有一个长而宽的三角形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
    .BeginArrowheadLength = msoArrowheadShort
    .BeginArrowheadStyle = msoArrowheadOval
    .BeginArrowheadWidth = msoArrowheadNarrow
    .EndArrowheadLength = msoArrowheadLong
    .EndArrowheadStyle = msoArrowheadTriangle
    .EndArrowheadWidth = msoArrowheadWide
End With

weiyingde

BeginConnected属性
决定指定连接符的一端是否与形状相连。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定连接符的一端与形状相连。
VBA示例
本示例中如果将当前演示文稿第一张幻灯片的第三个形状作为连接符且其中一端与某个形状相连，则将连接点数目保存在变量oldBeginConnSite 中，将对连接形状的引用保存在对象变量oldBeginConnShape 中，然后断开该连接符与形状的连接。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Connector Then
        With .ConnectorFormat
            If .BeginConnected Then
                oldBeginConnSite = .BeginConnectionSite
                Set oldBeginConnShape = .BeginConnectedShape
                .BeginDisconnect
            End If
        End With
    End If
End With
BeginConnectedShape属性
返回一个Shape对象，该对象代表指定连接符的起点所连到的形状。只读。
注意  如果指定的连接符起点并未连接到形状上，则该属性产生一个错误。
VBA示例
本示例假定活动演示文稿的第一张幻灯片已经包含两个形状，且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
    .AddConnector(msoConnectorCurve, 0, 0, 10, 10) _
        .Name = "Conn1To3"
    With .Item("Conn1To2").ConnectorFormat
        beginConnSite1 = .BeginConnectionSite
        Set beginConnShape1 = .BeginConnectedShape
    End With
    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect beginConnShape1, beginConnSite1
        .EndConnect r3, 1
    End With
End With
BeginConnectionSite属性
返回一个整数，该整数指定连接符起点的连接位置。只读。Long 类型。
注意  如果指定的连接符起点并未连接到形状上，则该属性产生一个错误。
VBA示例
本示例假定活动演示文稿的第一张幻灯片已经包含两个形状，且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
    .AddConnector(msoConnectorCurve, _
        0, 0, 10, 10).Name = "Conn1To3"
    With .Item("Conn1To2").ConnectorFormat
        beginConnSite1 = .BeginConnectionSite
        Set beginConnShape1 = .BeginConnectedShape
    End With
    With .Item("Conn1To3").ConnectorFormat
        .BeginConnect beginConnShape1, beginConnSite1
        .EndConnect r3, 1
    End With
End With

weiyingde

Behaviors属性
将指定的幻灯片动画动作作为AnimationBehaviors集合返回。
expression.Behaviors
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
若要返回AnimationBehaviors集合中的单个 AnimationBehavior对象，请使用Item方法或 Behaviors(index)，其中 index 是 AnimationBehaviors集合中 AnimationBehavior对象的索引号。
VBA示例
以下示例返回当前演示文稿中指定的动画动作类型。
Sub ReturnTypeValue
    MsgBox ActiveWindow.Selection.SlideRange(1).TimeLine _
        .MainSequence(1).Behaviors.Item(1).Type
End Sub
BlackAndWhite属性
决定文档窗口是否以黑白方式显示。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。
msoTriStateMixed
msoTriStateToggle
msoTrue 文档窗口以黑白方式显示。
VBA示例
本示例将第一个窗口中的内容显示改为黑白显示。
Application.Windows(1).BlackAndWhite = msoTrue
BlackWhiteMode属性
返回或设置一个值，该值指示以黑白模式查看演示文稿时指定形状出现的形式。可读写。MsoBlackWhiteMode 类型。
MsoBlackWhiteMode 可以是下列 MsoBlackWhiteMode 类型常数之一。
msoBlackWhiteAutomatic
msoBlackWhiteBlack
msoBlackWhiteBlackTextAndLine
msoBlackWhiteDontShow
msoBlackWhiteGrayOutline
msoBlackWhiteGrayScale
msoBlackWhiteHighContrast
msoBlackWhiteInverseGrayScale
expression.BlackWhiteMode
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置myDocument 的第一个形状以黑白模式出现。以黑白模式查看演示文稿时，第一个形状将显示黑色，而不管其在彩色模式下是何种颜色。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).BlackWhiteMode = msoBlackWhiteBlack

weiyingde

Bold属性
决定字符格式是否为粗体。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 字符格式不是粗体。
msoTriStateMixed 指定的文本范围同时包含粗体和非粗体字符。
msoTriStateToggle
msoTrue 字符格式是粗体。
VBA示例
本示例将第一张幻灯片的标题中的第一到第五个字符设为粗体。
Set myT = Application.ActivePresentation.Slides(1).Shapes.Title
myT.TextFrame.TextRange.Characters(1, 5).Font.Bold = msoTrue
Border属性
决定指定标注中的文本是否有边框。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的标注中的文本有边框。
VBA示例
本示例在myDocument 中添加一个椭圆和指向该椭圆的标注。标注文本没有边框，但包含将文本与标注线分开的垂直强调线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape msoShapeOval, 180, 200, 280, 130
    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)
        .TextFrame.TextRange.Text = "My oval"
        With .Callout
            .Accent = msoTrue
            .Border = msoFalse
        End With
    End With
End With
Border属性
决定指定标注中的文本是否有边框。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的标注中的文本有边框。
VBA示例
本示例在myDocument 中添加一个椭圆和指向该椭圆的标注。标注文本没有边框，但包含将文本与标注线分开的垂直强调线。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    .AddShape msoShapeOval, 180, 200, 280, 130
    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)
        .TextFrame.TextRange.Text = "My oval"
        With .Callout
            .Accent = msoTrue
            .Border = msoFalse
        End With
    End With
End With
Borders属性
返回Borders集合，该集合代表指定 Cell对象或 CellRange集合中的边框和对角线。只读。
有关返回集合中单个元素的详细信息，请参阅返回集合中的对象。
VBA示例
本示例将第一个单元格（位于选定表格的第二行上）中左框线的粗细值设置为 3 磅。
ActiveWindow.Selection.ShapeRange.Table.Rows(2) _
    .Cells(1).Borders.Item(ppBorderLeft).Weight = 3
BoundHeight属性
返回指定文本框的文本文本边界框高度，以磅为单位。只读。Single 类型。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个圆角矩形，该矩形与第一个形状的文本边界框的大小相同。
With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
End With

weiyingde

BoundLeft属性
以磅为单位返回指定文本框的文本文本边界框的左边界到幻灯片的左边界的距离。只读。Single 类型。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个圆角矩形，该矩形与第一个形状的文本边界框的大小相同。
With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
End With
BoundTop属性
以磅为单位返回指定文本框的文本文本边界框的上边界到幻灯片的上边界的距离。只读。Single 类型。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个圆角矩形，该矩形与第一个形状的文本边界框的大小相同。
With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
End With
BoundWidth属
以磅为单位返回指定文本框的文本边界框的宽度。只读。Single 类型。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个圆角矩形，该矩形与第一个形状的文本边界框的大小相同。
With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
End With
Brightness属性
返回或设置指定图片或 OLE对象的亮度。该属性的值必须是 0.0（最暗）到 1.0（最亮）之间的数。可读写。Single 类型。
VBA示例
本示例设置了myDocument 中第一个形状的亮度。第一个形状必须是图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).PictureFormat.Brightness = 0.3
Build属性
返回 PowerPoint 编译号。只读。String 类型。
VBA示例
本示例显示 PowerPoint 编译号。
MsgBox Prompt:=Application.Build, Title:="PowerPoint Build"
BuildByLevelEffect属性
返回MsoAnimateByLevel 类型常数，该常数代表创建动画效果的级别。只读。
MsoAnimateByLevel 可以是下列 MsoAnimateByLevel 类型常数之一。
msoAnimateChartAllAtOnce
msoAnimateChartByCategory
msoAnimateChartByCategoryElements
msoAnimateChartBySeries
msoAnimateChartBySeriesElements
msoAnimateDiagramAllAtOnce
msoAnimateDiagramBreadthByLevel
msoAnimateDiagramBreadthByNode
msoAnimateDiagramClockwise
msoAnimateDiagramClockwiseIn
msoAnimateDiagramClockwiseOut
msoAnimateDiagramCounterClockwise
msoAnimateDiagramCounterClockwiseIn
msoAnimateDiagramCounterClockwiseOut
msoAnimateDiagramDepthByBranch
msoAnimateDiagramDepthByNode
msoAnimateDiagramDown
msoAnimateDiagramInByRing
msoAnimateDiagramOutByRing
msoAnimateDiagramUp
msoAnimateLevelMixed
msoAnimateTextByAllLevels
msoAnimateTextByFifthLevel
msoAnimateTextByFirstLevel
msoAnimateTextByFourthLevel
msoAnimateTextBySecondLevel
msoAnimateTextByThirdLevel
msoAnimationLevelNone
expression.BuildByLevelEffect
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例返回一个按级别创建的效果。
Sub QueryBuildByLevelEffect()
    Dim effMain As Effect
    Set effMain = ActivePresentation.Slides(1).TimeLine _
        .MainSequence(1)
    If effMain.EffectInformation.BuildByLevelEffect <> msoAnimateLevelNone Then
        ActivePresentation.Slides(1).TimeLine.MainSequence _
            .ConvertToTextUnitEffect Effect:=effMain, _
            UnitEffect:=msoAnimTextUnitEffectByWord
    End If
End Sub