ppt学习资料

weiyingde · 发表于 2015-12-30 09:05

CropRight属性
返回或设置从指定图片或 OLE对象的右边所裁剪下的磅数。可读写。Single 类型。
注意裁剪以其相对于图片初始大小来计算。例如，如果插入一个原为 100 磅宽的图片，并将其宽度改变为 200 磅，然后将 CropRight属性设为 50，则将会从图片右边裁减掉 100 磅（而不是 50 磅）。
VBA示例
本示例在myDocument 中第三个形状的右侧裁剪了 20 磅。要使本示例执行，第三个形状必须是图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropRight = 20
本示例从选定的形状右边裁减掉用户指定的比例，不管该形状是否被改变过比例。要使本示例执行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you " & _
"want to crop off the right of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleWidth 1, True
origWidth = .Width
.Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropRight = cropPoints
CropTop属性
返回或设置从指定图片或 OLE对象的顶部所裁剪下的磅数。可读写。Single 类型。
注意裁剪以其相对于图片初始大小来计算。例如，如果插入一个原为 100 磅高的图片，并将其高度改变为 200 磅，然后将 CropTop属性设为 50，则将会从图片顶部裁减掉 100 磅（而不是 50 磅）。
VBA示例
本示例在myDocument 中第三个形状的顶部裁剪了 20 磅。要使本示例执行，第三个形状必须是图片或 OLE对象。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropTop = 20
本示例从选定的形状顶部裁减掉用户指定的比例，不管该形状是否被改变过比例。要使本示例执行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you " & _
"want to crop off the top of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropTop = cropPoints

weiyingde · 发表于 2015-12-30 09:06

CurrentShowPosition属性
返回当前幻灯片在幻灯片放映中的位置，该幻灯片放映显示在指定视图中。只读。Long 类型。
说明
如果指定视图包含自定义放映，则 CurrentShowPosition属性会返回当前幻灯片在自定义放映中的位置，而不是在整个演示文稿中的位置。
VBA示例
本示例设置一个变量为当前在幻灯片放映窗口中显示的当前幻灯片的位置。
lastSlideSeen = SlideShowWindows(1).View.CurrentShowPosition
CustomDocumentProperties属性
返回一个 DocumentProperties集合，该集合代表指定演示文稿的所有自定义文档属性。只读。
有关返回集合中单个元素的详细信息，请参阅返回集合中的对象。
说明
使用BuiltInDocumentProperties属性返回内置文档属性的集合。
VBA示例
本示例为当前演示文稿添加一个静态自定义属性“Complete”。
Application.ActivePresentation.CustomDocumentProperties _
.Add Name:="Complete", LinkToContent:=False, _
Type:=msoPropertyTypeBoolean, Value:=False
如果自定义属性“Complete”值为 True，本示例打印当前演示文稿。
With Application.ActivePresentation
If .CustomDocumentProperties("complete") Then .PrintOut
End With
DashStyle属性
返回或设置指定线条的虚线样式。可读写。MsoLineDashStyle 类型。
MsoLineDashStyle 是下列 MsoLineDashStyle 常数之一。
msoLineDash
msoLineDashDot
msoLineDashDotDot
msoLineDashStyleMixed
msoLineLongDash
msoLineLongDashDot
msoLineRoundDot
msoLineSolid
msoLineSquareDot
expression.DashStyle
expression  必选。该表达式返回“应用于”列表中的对象之一。
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
DateAndTime属性
返回代表日期和时间项的HeaderFooter对象。这些日期和时间项出现在幻灯片的左下角或备注页、讲义或大纲的右上角。只读。
VBA示例
本示例为当前演示文稿的母版幻灯片设置日期和时间格式。该设定将对所有基于该幻灯片母版的幻灯片有效。
Set myPres = Application.ActivePresentation
With myPres.SlideMaster.HeadersFooters.DateAndTime
.Format = ppDateTimeMdyy
.UseFormat = True
End With
DateTime属性
返回 Date 类型值，该值代表创建批注的日期和时间。
expression.DateTime
expression  必选。该表达式返回一个Comment对象。
说明
请勿将此属性与DateAndTime属性相混淆，后者应用于幻灯片的页眉和页脚。
VBA示例
以下示例提供了有关给定幻灯片中所有批注的信息。
Sub ListComments()
Dim cmtExisting As Comment
Dim strAuthorInfo As String
For Each cmtExisting In ActivePresentation.Slides(1).Comments
      With cmtExisting
         strAuthorInfo = strAuthorInfo & .Author & "'s comment #" & _
            .AuthorIndex & " (" & .Text & ") was created on " & _
            .DateTime & vbCrLf
      End With
Next
If strAuthorInfo <> "" Then
      MsgBox strAuthorInfo
Else
      MsgBox "There are no comments on this slide."
End If
End Sub

weiyingde · 发表于 2015-12-30 09:08

Decelerate属性
设置或返回 Single 类型值，该值代表减速过程持续时间的百分比。例如，数值 0.9 表示减速过程以默认速度启动，经过动画持续时间的 10% 之后开始减速。可读写。
expression.Decelerate
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例添加一个形状并添加一个动画，该动画以默认速度启动，在动画完成 70% 以后开始减速。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds rectangle 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)
'Slows the effect after seventy percent of the animation has finished
With effDiamond.Timing
      .Decelerate = 0.3
End With
End Sub
DefaultLanguageID属性
返回或设置演示文稿的默认语言。设置演示文稿的 DefaultLanguageID属性的同时也设置了所有后续演示文稿的该项属性。可读写。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.DefaultLanguageID
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
可以使用LanguageID属性将文本范围设置成其他语言。任何未明确设置成其他语言的文本范围都将设置成此默认值。
VBA示例
本示例将当前演示文稿以及随后新建的所有演示文稿的默认语言设置为德语。
ActivePresentation.DefaultLanguageID = msoLanguageIDGerman

weiyingde · 发表于 2015-12-30 09:10

DefaultShape属性
返回代表演示文稿中默认形状的Shape对象。只读。
VBA示例
本示例为当前演示文稿的第一张幻灯片添加一个形状，将演示文稿中形状的默认填充颜色设为红色。然后添加另一个形状，默认填充颜色将自动应用于此形状。
With Application.ActivePresentation
Set sld1Shapes = .Slides(1).Shapes
sld1Shapes.AddShape msoShape16pointStar, 20, 20, 100, 100
.DefaultShape.Fill.ForeColor.RGB = RGB(255, 0, 0)
sld1Shapes.AddShape msoShape16pointStar, 150, 20, 100, 100
End With
DefaultSpacing属性
以磅为单位返回或设置指定文本的默认制表位间隔。可读写。Single 类型。
VBA示例
本示例将当前演示文稿第一张幻灯片第二个形状中文本的默认制表位间隔设为 0.5 英寸（36 磅）。
Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _
.Ruler.TabStops.DefaultSpacing = 36
DefaultWebOptions属性
返回DefaultWebOptions对象，该对象中包含应用程序级的全局属性，当以 Web 页的方式发布或保存整个或部分演示文稿，或打开某个 Web 页时，Microsoft PowerPoint 将使用这些属性。只读。
VBA示例
本示例检查默认的文档编码是否为 Western。如果是 Western，则字符串strDocEncoding 将根据它进行设置。
Set objAppWebOptions = Application.DefaultWebOptions
With objAppWebOptions
If .Encoding = msoEncodingWestern Then
      strDocEncoding = "Western"
End If
End With
Depth属性
返回或设置形状的延伸深度。该值的范围是：600 到 9600（正值产生的延伸正面为原始形状；负值产生的延伸背面为原始形状)。可读写。Single 类型。
VBA示例
本示例向myDocument 中添加椭圆，并且指定椭圆延伸的深度为 50 磅，延伸颜色为紫色。
Set myDocument = ActivePresentation.Slides(1)
Set myShape = myDocument.Shapes _
.AddShape(msoShapeOval, 90, 90, 90, 40)
With myShape.ThreeD
.Visible = True
.Depth = 50
'RGB value for purple
.ExtrusionColor.RGB = RGB(255, 100, 255)
End With
Design属性
返回代表设计的 Design对象。
expression.Design
expression  必选。该表达式返回上述对象之一。
VBA示例
以下示例添加一个标题母版。
Sub AddDesignMaster
ActivePresentation.Slides(1).Design.AddTitleMaster
End Sub

weiyingde · 发表于 2015-12-30 09:11

Designs属性
返回代表设计集合的Designs对象。
expression.Designs
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例为当前演示文稿中每种设计显示一条消息。
Sub AddDesignMaster()
Dim desName As Design
With ActivePresentation
      For Each desName In .Designs
         MsgBox "The design name is " & .Designs.Item(desName.Index).Name
      Next
End With
End Sub
Diagram属性
返回图示节点所属的 Diagram对象。
expression.Diagram
expression 必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例在幻灯片中添加图示。
Sub AddADiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intNodes As Integer
'Adds diagram and first child node
Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
      (Type:=msoDiagramCycle, Left:=10, Top:=15, _
      Width:=400, Height:=475)
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Adds three additional child nodes
For intNodes = 1 To 3
      dgnNode.AddNode
Next intNodes
'Automatically formats the diagram
dgnNode.Diagram.AutoFormat = msoTrue
End Sub
DiagramNode属性
返回代表图示中某个节点的DiagramNode对象。
expression.DiagramNode
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例向当前演示文稿的第一张幻灯片中添加一个棱锥图。
Sub CreatePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intCount As Integer
'Add pyramid diagram to current document
Set shpDiagram = ActivePresentation.Slides(1).Shapes _
      .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
      Top:=15, Width:=400, Height:=475)
'Add first diagram node child
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Add three more diagram child nodes
For intCount = 1 To 3
      dgnNode.AddNode
Next intCount
End Sub
Dim属性
返回ColorFormat对象，该对象代表动画结束后要变暗的颜色。
expression.Dim
expression 必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例显示动画结束后要变暗的颜色。
Sub QueryDimColor()
Dim effDim As Effect
Set effDim = ActivePresentation.Slides(1).TimeLine.MainSequence(1)
MsgBox effDim.EffectInformation.Dim
End Sub

weiyingde · 发表于 2015-12-30 09:12

DimColor属性
返回或设置一个ColorFormat对象，该对象代表指定形状创建后的颜色。只读。
说明
如果没有达到预期的效果，请检查其他的创建设置。必须将 AnimationSettings对象的TextLevelEffect属性设为非 ppAnimateLevelNone 的值，AfterEffect属性设为 ppAfterEffectDim，且Animate属性设为 True，才能看到 DimColor属性的效果。另外，如果指定形状是幻灯片中唯一的或最后一个，则该形状无法变暗。要改变幻灯片中形状的创建顺序，可使用AnimationOrder属性。
VBA示例
本示例在当前演示文稿中添加一张幻灯片。该幻灯片包含一个标题和一个三项目的列表。本示例设置标题和列表在创建后变暗，并设置它们变暗的颜色。
With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes
With .Item(1)
      .TextFrame.TextRange.Text = "Sample title"
      With .AnimationSettings
         .TextLevelEffect = ppAnimateByAllLevels
         .AfterEffect = ppAfterEffectDim
         .DimColor.SchemeColor = ppShadow
         .Animate = True
      End With
End With
With .Item(2)
      .TextFrame.TextRange.Text = "Item one" _
         & Chr(13) & "Item two"
      With .AnimationSettings
         .TextLevelEffect = ppAnimateByFirstLevel
         .AfterEffect = ppAfterEffectDim
         .DimColor.RGB = RGB(100, 150, 130)
         .Animate = True
      End With
End With
End With
Direction属性
返回MsoAnimDirection属性值，该值代表动画效果使用的方向。只当效果使用方向时才可以使用此属性。可读写。
MsoAnimDirection 可以是下列 MsoAnimDirection 类型常数之一。
msoAnimDirectionAcross
msoAnimDirectionBottom
msoAnimDirectionBottomLeft
msoAnimDirectionBottomRight
msoAnimDirectionCenter
msoAnimDirectionClockwise
msoAnimDirectionCounterclockwise
msoAnimDirectionCycleClockwise
msoAnimDirectionCycleCounterclockwise
msoAnimDirectionDown
msoAnimDirectionDownLeft
msoAnimDirectionDownRight
msoAnimDirectionFontAllCaps
msoAnimDirectionFontBold
msoAnimDirectionFontItalic
msoAnimDirectionFontShadow
msoAnimDirectionFontStrikethrough
msoAnimDirectionFontUnderline
msoAnimDirectionGradual
msoAnimDirectionHorizontal
msoAnimDirectionHorizontalIn
msoAnimDirectionHorizontalOut
msoAnimDirectionIn
msoAnimDirectionInBottom
msoAnimDirectionInCenter
msoAnimDirectionInSlightly
msoAnimDirectionInstant
msoAnimDirectionLeft
msoAnimDirectionNone
msoAnimDirectionOrdinalMask
msoAnimDirectionOut
msoAnimDirectionOutBottom
msoAnimDirectionOutCenter
msoAnimDirectionOutSlightly
msoAnimDirectionRight
msoAnimDirectionSlightly
msoAnimDirectionTop
msoAnimDirectionTopLeft
msoAnimDirectionTopRight
msoAnimDirectionUp
msoAnimDirectionUpLeft
msoAnimDirectionUpRight
msoAnimDirectionVertical
msoAnimDirectionVerticalIn
msoAnimDirectionVerticalOut
expression.Direction
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状，并且将该形状的动画效果设置为从左侧飞入。
Sub AddShapeSetAnimFly()
Dim effFly As Effect
Dim shpCube As Shape
Set shpCube = ActivePresentation.Slides(1).Shapes _
      .AddShape(Type:=msoShapeCube, Left:=100, _
      Top:=100, Width:=50, Height:=50)
Set effFly = ActivePresentation.Slides(1).TimeLine.MainSequence _
      .AddEffect(Shape:=shpCube, effectId:=msoAnimEffectFly)
effFly.Timing.Duration = 3
effFly.EffectParameters.Direction = msoAnimDirectionLeft
End Sub

weiyingde · 发表于 2015-12-30 09:13

DisplayAlerts属性
设置或返回PpAlertLevel 类型常数，该常数代表 Microsoft PowerPoint 在运行宏时是否显示警告。可读写。
PpAlertLevel 可以是下列 PpAlertLevel 类型常数之一。
ppAlertsAll 显示所有的消息框和警告；将错误返回宏。
ppAlertsNone 默认值。不显示任何警告或消息框。如果运行宏时遇到消息框，则选中默认值并继续运行宏。
expression.DisplayAlerts
expression  必选。该表达式返回一个 Application对象。
说明
一旦宏停止运行，则 DisplayAlerts属性的值无法重新设置；该值将在会话过程中保持不变。在会话过程之间不会保存该值，所以在 PowerPoint 开始运行时，该值重新设置为 ppAlertsNone。
VBA示例
以下一行代码通知 PowerPoint 显示所有的消息框和警告，并将错误返回宏。
Sub SetAlert
Application.DisplayAlerts = ppAlertsAll
End Sub
DisplayAutoCorrectOptions属性
Microsoft PowerPoint 的 MsoTrue属性值用于显示“自动更正选项”按钮。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.DisplayAutoCorrectOptions
expression  必选。该表达式返回一个AutoCorrect对象。
VBA示例
本示例禁止显示“自动更正选项”按钮和“自动版式选项”按钮。
Sub HideAutoCorrectOpButton()
With Application.AutoCorrect
      .DisplayAutoCorrectOptions = msoFalse
      .DisplayAutoLayoutOptions = msoFalse
End With
End Sub
DisplayAutoLayoutOptions属性
Microsoft PowerPoint 的 MsoTrue属性值用于显示“自动版式选项”按钮。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.DisplayAutoLayoutOptions
expression  必选。该表达式返回一个AutoCorrect对象。
VBA示例
本示例禁止显示“自动更正选项”按钮和“自动版式选项”按钮。
Sub HideAutoCorrectOpButton()
With Application.AutoCorrect
      .DisplayAutoCorrectOptions = msoFalse
      .DisplayAutoLayoutOptions = msoFalse
End With
End Sub

weiyingde · 发表于 2015-12-30 09:14

DisplayComments属性
决定是否在指定的演示文稿中显示批注。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 在指定的演示文稿中显示批注。
VBA示例
本示例隐藏当前演示文稿中的批注。
ActivePresentation.DisplayComments = msoFalse
DisplayGridLines属性
MsoTrue属性值用于显示 Microsoft PowerPoint 中的网格线。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue
expression.DisplayGridLines
expression  必选。该表达式返回一个Application对象。
VBA示例
本示例切换 PowerPoint 中网格线的显示状态。
Sub ToggleGridLines()
With Application
      If .DisplayGridLines = msoTrue Then
         .DisplayGridLines = msoFalse
      Else
         .DisplayGridLines = msoTrue
      End If
End With
End Sub
DisplayMasterShapes属性
决定是否由指定的幻灯片或幻灯片区域显示幻灯片母版中的背景对象。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 在指定的幻灯片或幻灯片区域显示幻灯片母版中的背景对象。这些背景对象包括添加到幻灯片母版中的文本、图像、OLE对象和剪贴画。不包括页眉和页脚。
说明
创建新幻灯片时此项属性的默认值是 msoTrue 类型。如果从其他演示文稿中复制幻灯片，将保留原始幻灯片中的设置。即如果该幻灯片忽略了原始幻灯片中幻灯片母版的背景对象，则新幻灯片中也将忽略该对象。
请注意幻灯片的背景由配色方案、背景对象和背景本身共同决定。如果单独设置 DisplayMasterShapes属性没有达到预期的效果，可尝试设置FollowMasterBackground 和ColorScheme属性。
VBA示例
本示例复制第二个演示文稿的第一张幻灯片，将该幻灯片粘贴在第一个演示文稿的末尾，并将该幻灯片的背景、配色方案和背景对象与第一个演示文稿的其他幻灯片匹配。
Presentations(2).Slides(1).Copy
With Presentations(1).Slides.Paste
.FollowMasterBackground = True
.ColorScheme = Presentations(1).SlideMaster.ColorScheme
.DisplayMasterShapes = msoTrue
End With

weiyingde · 发表于 2015-12-30 09:17

AddTitleMaster方法
为指定演示文稿添加一个标题母版。返回一个代表该标题母版的Master对象。如果演示文稿已经有标题母版，该方法将产生一个错误。
expression.AddTitleMaster
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例中，如果当前演示文稿没有标题母版，将为其添加一个标题母版。
With Application.ActivePresentation
If Not .HasTitleMaster Then .AddTitleMaster
End With
AddToFavorites方法
在 Windows 程序文件夹的 Favorites 文件夹中，添加一个快捷方式，以代表指定演示文稿的当前选择内容（对于Presentation对象）或指定超链接的目标文档（对于Hyperlink对象）。
expression.AddToFavorites
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果文档名称可用作快捷方式的长名，则使用该长名，否则快捷方式名称由 HLINK.DLL 决定。
VBA示例
本示例在 Windows 程序文件夹的 Favorites 中添加一个指向当前演示文稿的超链接。
Application.ActivePresentation.AddToFavorites
Align方法
对齐指定形状范围内的形状。
expression.Align(AlignCmd, RelativeTo)
expression  必选。该表达式返回一个 ShapeRange对象。
AlignCmd  必选。MsoAlignCmd 类型。指定形状在指定形状范围内的对齐方式。
MsoAlignCmd 可以是下列 MsoAlignCmd 类型常数之一。
msoAlignBottoms
msoAlignCenters
msoAlignLefts
msoAlignMiddles
msoAlignRights
msoAlignTops
RelativeTo 必选。MsoTriState 类型。决定形状是否与幻灯片边缘对齐。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 形状相互对齐。
msoTriStateMixed
msoTriStateToggle
msoTrue 形状与幻灯片边缘对齐。
VBA示例
本示例将myDocument 中指定范围内所有形状的左边缘与该范围内最左边形状的左边缘对齐。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.Range.Align msoAlignLefts, msoFalse
Apply方法
应用于指定的形状格式，该形状格式已使用PickUp方法复制。
expression.Apply
expression  必选。该表达式返回一个 Shape 或 ShapeRange对象。
VBA示例
本示例复制myDocument 上第一个形状的格式，再将所复制的格式应用于第二个形状。
Set myDocument = ActivePresentation.Slides(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With
ApplyTemplate方法
将设计模板应用于指定的演示文稿。
expression.ApplyTemplate(FileName)
expression  必选。该表达式返回一个 Presentation对象。
FileName  必选。String 类型。指定设计模板的名称。
注意  如果在字符串中引用已卸载的演示文稿设计模板，会产生一个运行错误。该模板可能由于FeatureInstall属性设置而无法自动安装。若要使用当前未安装的模板的 ApplyTemplate方法，必须首先安装附加的设计模板。方法是：通过运行 Microsoft Office 安装程序（使用 Windows 控制面板中的添加/删除程序图标）为 PowerPoint 安装附加设计模板。
VBA示例
本示例将“Professional”设计模板应用于活动演示文稿。
Application.ActivePresentation.ApplyTemplate _
"c:\program files\microsoft office\templates" & _
"\presentation designs\professional.pot"

weiyingde · 发表于 2015-12-30 09:18

DisplaySlideMiniature属性
决定是否和何时自动显示幻灯片缩图窗口。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 幻灯片缩图窗口没有自动显示。
msoTriStateMixed
msoTriStateToggle
msoTrue 当文档窗口为黑白视图时自动显示幻灯片缩图窗口，幻灯片窗格扩大到超过匹配率 150% 以上，或者母版视图变为可视。
说明
该属性在放映视图和幻灯片浏览视图中不可用。幻灯片缩图窗口既不是 Windows集合的成员也不是 SlideShowWindows集合的成员。
合适的百分比由幻灯片窗格的大小和演示文稿窗口的大小来决定。若要决定合适的百分比，请设置ZoomToFit属性为 True，然后返回Zoom属性值。
VBA示例
如果第一个文档窗口是幻灯片视图，本示例显示幻灯片缩图窗口。
With Windows(1).View
If .Type = ppViewSlide Then .DisplaySlideMiniature = msoTrue
End With
Drop属性
对于显式设置了垂直距离的标注，该属性返回从文本框边缘到标注线连接位置的垂直距离（以磅为单位）。该距离通常从文本框顶端测量，但当 AutoAttach属性值设为 True 且文本框位于标注线源位置（该标注所指向的位置）的左侧时，该垂直距离从文本框底端测量。只读。Single 类型。
说明
使用CustomDrop方法设置该属性值。
只有在标注明确地设置了垂直距离，即DropType属性的值为 msoCalloutDropCustom 时，此项属性值才会准确地反映连在文本框上的标注线的位置。
VBA示例
本示例用一或两个预设的下沉替换myDocument 中第一个形状的自定义下沉，这依赖于自定义垂直距离是否大于或小于标注文本框高度的一半。要使本示例执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
      If .Drop < .Parent.Height / 2 Then
         .PresetDrop msoCalloutDropTop
      Else
         .PresetDrop msoCalloutDropBottom
      End If
End If
End With

		自动登录	找回密码
密码			免费注册

[分享] ppt学习资料