ppt学习资料

weiyingde · 发表于 2016-1-25 13:14

PrintColorType属性
返回或设置指定文档的打印方式：以黑白、以纯白色和纯黑色（亦称为高对比度）或以彩色方式。默认值由打印机设置。可读写。PpPrintColorType 类型。
PpPrintColorType 可以是下列 PpPrintColorType 类型常数之一。
ppPrintBlackAndWhite
ppPrintColor
ppPrintPureBlackAndWhite
expression.PrintColorType
expression 必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例以彩色方式打印当前演示文稿的幻灯片。
With Application.ActivePresentation
.PrintOptions.PrintColorType = ppPrintColor
.PrintOut
End With
PrintComments属性
设置或返回是否打印批注。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。不打印批注。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 打印批注
expression.PrintComments
expression 必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例指示 Microsoft PowerPoint 打印批注。
Sub PrintPresentationComments
ActivePresentation.PrintOptions.PrintComments = msoTrue
End Sub

weiyingde · 发表于 2016-1-25 13:18

PrintFontsAsGraphics属性
决定是否将 TrueType 字体作为图形打印。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 将 TrueType 字体作为图形打印。
VBA示例
本示例指定当前演示文稿中的 TrueType 字体作为图形打印。
ActivePresentation.PrintOptions.PrintFontsAsGraphics = msoTrue
PrintHiddenSlides属性
决定是否打印指定演示文稿中的隐藏幻灯片。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。
msoTriStateMixed
msoTriStateToggle
msoTrue 打印指定演示文稿中的隐藏幻灯片。
VBA示例
本示例打印当前演示文稿的所有幻灯片（不论可见或隐藏）。
With ActivePresentation
.PrintOptions.PrintHiddenSlides = msoTrue
.PrintOut
End With
PrintInBackground属性
决定是否在后台打印指定的演示文稿。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 默认值。在后台打印指定的演示文稿，这意味着可以在打印的同时继续工作。
VBA示例
本示例在后台打印当前演示文稿。
With ActivePresentation
.PrintOptions.PrintInBackground = msoTrue
.PrintOut
End With

weiyingde · 发表于 2016-1-25 13:19

PrintOptions属性
返回一个PrintOptions对象，该对象代表与指定演示文稿共同保存的打印选项。只读。
VBA示例
本示例打印当前演示文稿中的隐藏幻灯片，并调整幻灯片的尺寸以适应纸张大小。
With Application.ActivePresentation
With .PrintOptions
      .PrintHiddenSlides = True
      .FitToPage = True
End With
.PrintOut
End With
PrintSteps属性
返回要打印的幻灯片个数，模拟指定幻灯片、幻灯片母版或幻灯片组的编译。只读。Long 类型。
VBA示例
本示例为要打印的幻灯片个数设置一个变量，模拟当前演示文稿的第一张幻灯片的编译，然后显示该变量的值。
steps1 = ActivePresentation.Slides(1).PrintSteps
MsgBox steps1
ProductCode属性
返回 Microsoft PowerPoint 的全局唯一标识符 (GUID)。用户可以使用 GUID，例如，当使用程序调用应用程序编程接口时。只读。String 类型。
VBA示例
本示例将 PowerPoint GUID 返回到变量pptGUID 类型。
Dim pptGUID As String
pptGUID = Application.ProductCode
ProgID属性
返回指定的 OLE对象的程序标识符 (ProgID)。只读。String 类型。
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

weiyingde · 发表于 2016-1-25 13:21

Property属性
设置或返回MsoAnimProperty 类型常数，该常数代表动画属性。可读写。
MsoAnimProperty 可以是下列 MsoAnimProperty 类型常数之一。
msoAnimColor
msoAnimHeigth
msoAnimNone 默认值。
msoAnimOpacity
msoAnimRotation
msoAnimShape3DExtrudeForward
msoAnimShape3DExtrusionColor
msoAnimShape3DXRotationAngle
msoAnimShape3DYRotationAngle
msoAnimShapefBackColor
msoAnimShapefColor
msoAnimShapefGradientPreset
msoAnimShapefGradientType
msoAnimShapeFlipH
msoAnimShapeFlipV
msoAnimShapefOn
msoAnimShapefOpacity
msoAnimShapefType
msoAnimShapelColor
msoAnimShapelDashes
msoAnimShapelEndArrowHead
msoAnimShapelEndArrowLength
msoAnimShapelEndArrowWidth
msoAnimShapelOn
msoAnimShapelStartArrowHead
msoAnimShapelStartArrowLength
msoAnimShapelStartArrowWidth
msoAnimShapelStyle
msoAnimShapelWidth
msoAnimShapepBrightness
msoAnimShapepContrast
msoAnimShapepCropFromBottom
msoAnimShapepCropFromLeft
msoAnimShapepCropFromRight
msoAnimShapepCropFromTop
msoAnimShapepFilename
msoAnimShapepGamma
msoAnimShapepGrayscale
msoAnimShapeRotation
msoAnimShapesColor
msoAnimShapesEmbossed
msoAnimShapesOffsetX
msoAnimShapesOffsetY
msoAnimShapesOn
msoAnimShapesOpacity
msoAnimShapesType
msoAnimShapeType
msoAnimShapewfontBold
msoAnimShapewfontItalic
msoAnimShapewfontName
msoAnimShapewfontShadow
msoAnimShapewfontSize
msoAnimShapewfontSmallCaps
msoAnimShapewfontStrikeThrough
msoAnimShapewfontUnderline
msoAnimShapewSpacing
msoAnimShapewVertical
msoAnimTextBulletCharacter
msoAnimTextBulletColor
msoAnimTextBulletFontName
msoAnimTextBulletNumber
msoAnimTextBulletPicture
msoAnimTextBulletRelativeSize
msoAnimTextBulletStyle
msoAnimTextBulletType
msoAnimTextFontBold
msoAnimTextFontColor
msoAnimTextFontEmboss
msoAnimTextFontItalic
msoAnimTextFontName
msoAnimTextFontShadow
msoAnimTextFontSize
msoAnimTextFontStrikeThrough
msoAnimTextFontSubscript
msoAnimTextFontSuperscript
msoAnimTextFontUnderline
msoAnimWidth
msoAnimX
msoAnimY
expression.Property
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状，并对该形状添加一个三秒钟的填充动画，然后将填充动画设置为彩色。
Sub AddShapeSetAnimFill()
Dim effBlinds As Effect
Dim shpRectangle As Shape
Dim animProperty As AnimationBehavior
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
      .AddShape(Type:=msoShapeRectangle, Left:=100, _
      Top:=100, Width:=50, Height:=50)
Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
      .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)
effBlinds.Timing.Duration = 3
Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)
With animProperty.PropertyEffect
      .Property = msoAnimColor
      .From = RGB(Red:=0, Green:=0, Blue:=255)
      .To = RGB(Red:=255, Green:=0, Blue:=0)
End With
End Sub

weiyingde · 发表于 2016-1-25 13:27

PropertyEffect属性
返回给定动画动作的PropertyEffect对象。
expression.PropertyEffect
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例向当前演示文稿添加一个带有效果的形状，然后将该形状的动画效果属性设置为更改颜色。
Sub AddShapeSetAnimFill()
Dim effBlinds As Effect
Dim shpRectangle As Shape
Dim animBlinds As AnimationBehavior
'Adds rectangle and sets animiation effect
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
      .AddShape(Type:=msoShapeRectangle, Left:=100, _
      Top:=100, Width:=50, Height:=50)
Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
      .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)
'Sets the duration of the animation
effBlinds.Timing.Duration = 3
'Adds a behavior to the animation
Set animBlinds = effBlinds.Behaviors.Add(msoAnimTypeProperty)
'Sets the animation color effect and the formula to use
With animBlinds.PropertyEffect
      .Property = msoAnimColor
      .From = RGB(Red:=0, Green:=0, Blue:=255)
      .To = RGB(Red:=255, Green:=0, Blue:=0)
End With
End Sub
PublishObjects属性
返回一个PublishObjects集合，代表整个或部分已加载的演示文稿的集合，它们可作为 HTML 格式进行发布。只读。
VBA示例
本示例将活动演示文稿的第三张幻灯片到第五张幻灯片发布为 HTML 格式，并将发布的幻灯片命名为“Mallard.htm”。
With ActivePresentation.PublishObjects.Item(1)
.FileName = "C:\Test\Mallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.Publish
End With
RangeEnd属性
返回或设置要发布为 Web 演示文稿的一组幻灯片中的最后一张幻灯片的编号。可读写。Integer 类型。
VBA示例
本示例将活动演示文稿的第三张幻灯片到第五张幻灯片发布为 HTML 格式，并将发布的幻灯片命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
.FileName = "C:\Test\Mallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.Publish
End With
Ranges属性
返回PrintRanges对象，该对象代表演示文稿中要打印幻灯片的区域。只读。
说明
如果不想打印整个演示文稿，必须使用Add方法为每个要打印的连续的幻灯片组创建一个PrintRange对象。例如，如果要打印演示文稿的第一张，第三张到第五张，第八张和第九张幻灯片，必须创建三个 PrintRange对象：一个代表第一张，一个代表第三张到第五张，一个代表第八张和第九张。有关详细信息，请参阅该属性的例子。
RangeType属性必须设为 ppPrintSlideRange 以应用 PrintRanges集合中的打印区域。
要从 PrintRanges集合中清除所有现存的打印区域，可使用ClearAll方法。
指定PrintOut方法的 To 和 From参数将设置PrintRanges对象的内容。
VBA示例
本示例打印当前演示文稿中第一张，第三到第五张，以及第八和第九张幻灯片。
With ActivePresentation
With .PrintOptions
      .RangeType = ppPrintSlideRange
      With .Ranges
         .Add 1, 1
         .Add 3, 5
         .Add 8, 9
      End With
End With
.PrintOut
End With

weiyingde · 发表于 2016-1-25 13:28

RangeStart属性
返回或设置要发布为 Web 演示文稿的一组幻灯片中的第一张幻灯片的编号。可读写。Integer 类型。
VBA示例
本示例将活动演示文稿的第三张幻灯片到第五张幻灯片发布为 HTML 格式，并将发布的幻灯片命名为“Mallard.htm”。
With ActivePresentation.PublishObjects(1)
.FileName = "C:\Test\Mallard.htm"
.SourceType = ppPublishSlideRange
.RangeStart = 3
.RangeEnd = 5
.Publish
End With
RangeType属性
应用于 PrintOptions对象的 RangeType属性。
返回或设置演示文稿的打印区域类型。可读写。PpPrintRangeType 类型。
PpPrintRangeType 可以是下列 PpPrintRangeType 类型常数之一。
ppPrintAll
ppPrintCurrent
ppPrintNamedSlideShow
ppPrintSelection
ppPrintSlideRange
expression.RangeType
expression 必选。该表达式返回上述对象之一。
应用于 SlideShowSettings对象的 RangeType属性。
返回或设置运行幻灯片放映的类型。可读写。PpSlideShowRangeType 类型。
PpSlideShowRangeType 可以是下列 PpSlideShowRangeType 类型常数之一。
ppShowAll
ppShowNamedSlideShow
ppShowSlideRange
xpression.RangeType
expression 必选。该表达式返回上述对象之一。
说明
若要打印在PrintRanges集合中定义的幻灯片区域，必须先将 RangeType属性设为 ppPrintSlideRange。将 RangeType 设为任何非 ppPrintSlideRange 的值会使在 PrintRanges集合中定义的区域失效。但是这并不影响 PrintRanges集合的内容。也就是，如果定义了一些打印区域，将 RangeType属性设为一个非 ppPrintSlideRange 的值，然后将 RangeType 重新设为 ppPrintSlideRange，则原来定义的打印区域将保持不变。
指定PrintOut方法的 To 和 From参数将设置此属性的值。
VBA示例
应用于 PrintOptions对象。
本示例打印当前演示文稿的当前幻灯片。
With ActivePresentation
.PrintOptions.RangeType = ppPrintCurrent
.PrintOut
End With
应用于 SlideShowSettings 对象。
本示例运行名为“Quick Show”的幻灯片放映。
With ActivePresentation.SlideShowSettings
.RangeType = ppShowNamedSlideShow
.SlideShowName = "Quick Show"
.Run
End With

weiyingde · 发表于 2016-1-25 13:29

ReadOnly属性
返回指定的演示文稿是否为只读。只读。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的演示文稿为只读。
VBA示例
如果当前演示文稿为只读，本示例将其保存为文件“Newfile.ppt”。
With Application.ActivePresentation
If .ReadOnly Then .SaveAs FileName:="newfile"
End With
Registered属性
返回指定的加载宏是否注册到 Windows 注册表中。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定的加载宏已注册到 Windows 注册表中。
VBA示例
本示例将名为“MyTools”的加载宏注册到 Windows 注册表中。
Application.Addins("MyTools").Registered = msoTrue
Relative属性
该参数为MsoTrue 时，设置相对于形状位置的移动位置。此属性只能与移动路径联合使用。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。该动作路径为绝对路径。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 该动作路径为相对路径。
expression.Relative
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状并对该形状添加一个动画移动路径，然后报告该移动路径的相对性。
Sub AddShapeSetAnimPath()
Dim effDiamond As Effect
Dim shpCube As Shape
Set shpCube = ActivePresentation.Slides(1).Shapes _
      .AddShape(Type:=msoShapeCube, Left:=100, _
      Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
      .AddEffect(Shape:=shpCube, effectId:=msoAnimEffectPathDiamond)
effDiamond.Timing.Duration = 3
MsgBox "Is motion path relative or absolute: " & _
      effDiamond.EffectParameters.Relative & vbCrLf & _
      "0 = Relative, -1 = Absolute"
End Sub

weiyingde · 发表于 2016-1-25 13:30

RelativeSize属性
返回或设置项目符号与段落中第一个文本字符的相对大小。可为 0.25 到 4 之间的浮点数。说明项目符号的大小可以是该文本字符的 25% 到 400%。可读写。Single 类型。
VBA示例
本示例为当前演示文稿第一张幻灯片的第二个形状设置项目符号格式。项目符号的大小是该段第一个文本字符的 125%。
With ActivePresentation.Slides(1).Shapes(2)
With .TextFrame.TextRange.ParagraphFormat.Bullet
      .Visible = True
      .RelativeSize = 1.25
      .Character = 169
      With .Font
         .Name = "Symbol"
         .Color.RGB = RGB(255, 0, 0)
      End With
End With
End With
RelyOnVML属性
在将完整或部分演示文稿发布或保存为 Web 页时，决定是否由绘图对象产生图像文件。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 默认值。在将完整或部分演示文稿发布或保存为 Web 页时，没有由绘图对象产生图像文件。
msoTriStateMixed
msoTriStateToggle
msoTrue 在将完整或部分演示文稿发布或保存为 Web 页时，由绘图对象产生图像文件。
说明
如果 Web 浏览器支持向量标记语言 (VML)，则可不必为绘图对象生成图像，这样能减小文件的大小。例如，Microsoft Internet Explorer 5 以及更高版本就支持这种标记语言，如果要使用此浏览器，则必须将 RelyOnVML属性设置为 msoTrue。对于不支持 VML 的浏览器，如果将此属性设置为 msoTrue，那么在浏览 Web 页时将不会看到图像。
例如，如果 Web 页所使用的图像文件是以前已生成的图像，或者如果用户保存演示文稿的位置与 Web 服务器上页面的最后存放位置不同，则不应该为绘图对象生成图像文件。
VBA示例
本示例指定当以 Web 页保存或发布活动演示文稿时要生成图像文件。
ActivePresentation.WebOptions.RelyOnVML = msoFalse

weiyingde · 发表于 2016-1-25 13:32

RemovePersonalInformation属性
属性值为 MsoTrue 时，Microsoft PowerPoint 将在保存演示文稿时删除批注、修订和“属性”对话框中的所有用户信息。可读写。MsoTriState 类型。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 批注、修订和个人信息保留在演示文稿中。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 保存演示文稿时删除批注、修订和个人信息。
expression.RemovePersonalInformation
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
本示例设置在用户下次保存当前演示文稿时删除所有个人信息。
Sub RemovePersonalInfo()
ActivePresentation.RemovePersonalInformation = msoTrue
End Sub
RepeatCount属性
设置或返回 Long 类型值，该值代表重复动画所需的次数。可读写。
expression.RepeatCount
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 ' Length of effect.
      .RepeatCount = 2 ' How many times to repeat.
End With
End Sub

weiyingde · 发表于 2016-1-25 13:34

Restart属性
设置或返回MsoAnimEffectRestart 类型常数，该常数代表动画效果启动一次后是否会重新启动。可读写。
MsoAnimEffectRestart 可以是下列 MsoAnimEffectRestart 类型常数之一。
msoAnimEffectRestartAlways
msoAnimEffectRestartNever 默认值。
msoAnimEffectRestartWhenOff
expression.Restart
expression  必选。该表达式返回“应用于”列表中的对象之一。
VBA示例
以下示例添加一个形状并对该形状添加一个动画，然后设置该动画重新启动的动作。
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds shape and sets animation
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 = 3
      .RepeatDuration = 5
      .RepeatCount = 3
      .Restart = msoAnimEffectRestartAlways
End With
End Sub
Reverse属性
设置或返回MsoTriState 类型常数，该常数代表图示的反向状态。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 该图示不反向。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 该图示反向。
expression.Reverse
expression  必选。该表达式返回“应用于”列表中的对象之一。
说明
如果目标图示的Type属性是组织结构图（msoDiagramTypeOrgChart 类型），此方法将产生错误。
VBA示例
以下示例创建一个棱锥图，并将该图示的顺序反转。
Sub ReversePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intNodes As Integer
'Adds a pyramid diagram and first child node
Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
      (Type:=msoDiagramPyramid, Left:=10, Top:=15, _
      Width:=400, Height:=475)
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Adds three additional nodes to diagram
For intNodes = 1 To 3
      dgnNode.AddNode
Next intNodes
'Automatically places nodes, and reverses node order
With dgnNode.Diagram
      .AutoLayout = msoTrue
      .Reverse = msoTrue
End With
End Sub

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

[分享] ppt学习资料

浏览过的版块