ppt学习资料

weiyingde

Group方法

将指定区域中的形状形成一组。以单个 Shape对象返回分组后的形状。

expression.Group

expression 必选。该表达式返回一个 ShapeRange对象。

说明

由于一组形状作为单个形状处理，所以创建和分解形状组将改变 Shapes集合中的项目数，而且由于影响集合中的项目，还会改变部分项目的索引号。

VBA示例

本示例将两个形状添加到myDocument，组合两个新形状，为该组设置填充，旋转该组并将其发送到绘图层后。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes

    .AddShape(msoShapeCan, 50, 10, 100,200).Name = "shpOne"

    .AddShape(msoShapeCube, 150, 250, 100,200).Name = "shpTwo"

    With .Range(Array("shpOne","shpTwo")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .Rotation = 45

        .ZOrder msoSendToBack

    End With

EndWith

Help方法

显示帮助主题。

expression.Help(HelpFile, ContextID)

expression 必选。该表达式返回一个 Application对象。

HelpFile 可选。String 类型。要显示的帮助文件名称。可以是 .chm 或 .hlp 文件。如果没有指定此参数，将使用 Microsoft PowerPoint 帮助。

ContextID 可选。Long 类型。指定帮助主题的上下文 ID 号。如果不指定此参数，或者指定的上下文 ID 号没有相关的帮助主题，则显示“帮助主题”对话框。

VBA示例

本示例显示 MyHelpFile.chm 帮助文件的第 65527 号帮助主题。

Application.Help"MyHelpFile.chm", 65527

ImportFromFile方法

设置当单击指定形状或对其播放动画以及发生指定的幻灯片切换时发出的声音。

expression.ImportFromFile(FullName)

expression 必选。该表达式返回一个 SoundEffect对象。

FullName 必选。String 类型。指定的声音文件名称。

VBA示例

本示例指定当切换到当前演示文稿第二张幻灯片时，开始播放文件 Dudududu.wav 并持续到下一个声音文件开始播放。

WithActivePresentation.Slides(2).SlideShowTransition

    .SoundEffect.ImportFromFile"c:\sndsys\dudududu.wav"

    .LoopSoundUntilNext = True

EndWith

IncrementBrightness方法

用指定量改变图片的亮度。使用Brightness属性设置图片的绝对亮度。

expression.IncrementBrightness(Increment)

expression 必选。该表达式返回一个 PictureFormat对象。

Increment 必选。Single 类型。指定图片 Brightness属性值的改变量。正值使图象变亮，负值使图象变暗。

说明

调整图片亮度不能超出 Brightness属性的界限。例如，如果 Brightness属性初始设为 0.9 并将 Increment参数指定为 0.3，则结果亮度为 1.0（Brightness属性的上限）而不是 1.2。

VBA示例

本示例创建myDocument 上第一个形状的副本，再移动该副本并使之变暗。要执行本示例，第一个形状必须是图片或 OLE对象。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes(1).Duplicate

    .PictureFormat.IncrementBrightness -0.2

    .IncrementLeft 50

    .IncrementTop 50

EndWith

weiyingde

IncrementContrast方法

用指定量改变图片的对比度。使用Contrast属性设置图片的绝对对比度。

expression.IncrementContrast(Increment)

expression 必选。该表达式返回一个 PictureFormat对象。

Increment 必选。Single 类型。指定图片 Contrast属性值的改变量。正值加强对比度，负值减弱对比度。

说明

调整图片的对比度不能超出 Contrast属性的上下限。例如，如果 Contrast属性初始设为 0.9 并将 Increment参数指定为 0.3，则结果对比度为 1.0（Contrast属性的上限）而不是 1.2。

VBA示例

本示例对myDocument 上还没有设置为最大对比度的所有图片增加对比度。

SetmyDocument = ActivePresentation.Slides(1)

ForEach s In myDocument.Shapes

    If s.Type = msoPicture Then

        s.PictureFormat.IncrementContrast 0.1

    End If

Next

IncrementLeft方法

以指定磅数水平移动指定形状。

expression.IncrementLeft(Increment)

expression 必选。该表达式返回一个 Shape对象。

Increment 必选。Single 类型。指定形状水平移动的距离，以磅为单位。正值将形状右移，负值将形状左移。

VBA示例

本示例复制myDocument 上的第一个形状，并为复制设置填充方式，再向右移 70 磅、向上移 50 磅，然后顺时针旋转 30 度角。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

EndWith

IncrementOffsetX方法

以指定的磅数修改阴影的水平偏移量。使用OffsetX属性设置阴影的绝对水平偏移量。

expression.IncrementOffsetX(Increment)

expression 必选。该表达式返回一个 ShadowFormat对象。

Increment 必选。Single 类型。指定阴影水平偏移量的大小，以磅为单位。正值将阴影右移，负值将阴影左移。

VBA示例

本示例将myDocument 上第三个形状的阴影左移 3 磅。

SetmyDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Shadow.IncrementOffsetX-3

IncrementOffsetY方法

以指定的磅数修改阴影的垂直偏移量。使用OffsetY属性设置阴影的绝对垂直偏移量。

expression.IncrementOffsetY(Increment)

expression 必选。该表达式返回一个 ShadowFormat对象。

Increment 必选。Single 类型。指定阴影的垂直偏移量，以磅为单位。正值将阴影下移，负值将阴影上移。

VBA示例

本示例将myDocument 上第三个形状的阴影上移 3 磅。

SetmyDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Shadow.IncrementOffsetY-3

weiyingde

IncrementRotation方法

以指定度数改变指定形状绕z 轴的旋转量。使用Rotation属性设置形状的绝对旋转量。

expression.IncrementRotation(Increment)

expression 必选。该表达式返回一个 Shape对象。

Increment 必选。Single 类型。指定形状水平旋转的度数。正值将形状顺时针旋转，负值将形状逆时针旋转。

说明

若要绕 X 轴或 Y 轴旋转一个三维形状，请使用IncrementRotationX方法或IncrementRotationY方法。

VBA示例

本示例复制myDocument 上的第一个形状，并设置复制的填充，再向右移 70 磅、向上移 50 磅，然后顺时针旋转 30 度角。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

EndWith

IncrementRotationX方法

以指定的度数改变指定形状绕 X 轴的旋转量。使用RotationX属性设置形状绕X 轴的绝对旋转量。

expression.IncrementRotationX(Increment)

expression 必选。该表达式返回一个 ThreeDFormat对象。

Increment 必选。Single 类型。指定形状绕 X 轴旋转改变的度数。可为 - 90 到 90 之间的值。正值向上旋转，负值向下旋转。

说明

调整指定形状绕 x 轴的旋转不能超过 RotationX属性的上、下限（90 度到 -90度）。例如，如果RotationX属性最初设为 80 并指定Increment参数为 40，则旋转结果为 90（RotationX属性的上限），而不是 120。

若要改变形状绕 y 轴的旋转量，请使用IncrementRotationY方法。若要改变绕 z 轴的旋转量，请使用IncrementRotation方法。

VBA示例

本示例将myDocument 上第一个形状向上倾斜 10 度。此形状必须是挤制形状，以便看到代码的效果。

SetmyDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).ThreeD.IncrementRotationX10

IncrementRotationY方法

以指定的度数改变指定形状绕 y 轴的旋转量。使用RotationY属性设置形状绕y 轴旋转的绝对旋转量。

expression.IncrementRotationY(Increment)

expression 必选。该表达式返回一个 ThreeDFormat对象。

Increment 必选。Single 类型。指定形状绕 y 轴旋转改变的度数。可为 - 90 到 90 之间的值。正值向左旋转，负值向右旋转。

说明

若要更改形状绕 x 轴的旋转量，请使用IncrementRotationX方法。若要更改形状绕 z 轴的旋转量，请使用IncrementRotation方法。

调整指定形状绕 y 轴的旋转不能超过 RotationY属性的上、下限（90 度到 -90度）。例如，如果RotationY属性最初设为 80 并指定Increment参数为 40，则旋转结果为 90（RotationY属性的上限），而不是 120。

VBA示例

本示例将myDocument 上第一个形状向右倾斜 10 度。此形状必须是挤制形状，以便看到代码的效果。

SetmyDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).ThreeD.IncrementRotationY-10

weiyingde

IncrementTop方法

以指定磅数垂直移动指定形状。

expression.IncrementTop(Increment)

expression 必选。该表达式返回一个 Shape对象。

Increment 必选。Single 类型。指定形状对象垂直移动的距离，以磅为单位。正值将形状下移，负值将形状上移。

VBA示例

本示例复制myDocument 上的第一个形状，并设置复制的填充，再向右移 70 磅、向上移 50 磅，然后顺时针旋转 30 度角。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

EndWith

Insert方法

在任意多边形的指定结点后插入一条新段。

expression.Insert(Index, SegmentType, EditingType,X1, Y1, X2, Y2, X3, Y3)

expression 必选。该表达式返回一个 ShapeNodes对象。

Index 必选。Long 类型。新结点的插入位置前的结点。

SegmentType 必选。MsoSegmentType 类型。要添加的段的类型。

MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。

msoSegmentCurve

msoSegmentLine

EditingType  必选。MsoEditingType 类型。顶点的编辑属性。

MsoEditingType 可以是下列 MsoEditingType 类型常数之一（不能是 msoEditingSmooth 或 msoEditingSymmetric）。

msoEditingAuto

msoEditingCorner

X1  必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段的第一个控制点的水平距离（以磅为单位）。

Y1  必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段的终点的垂直距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，此参数指定从文档左上角到新段的第一个控制点的垂直距离（以磅为单位）。

X2  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段第二个控制点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。

Y2  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，此参数指定从文档左上角到新段第二个控制点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。

X3  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。

Y3  可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。

VBA示例

本示例在myDocument 中第三个形状的第四个结点后添加一个带有一段曲线的平滑结点。第三个形状必须是至少有四个结点的任意多边形。

SetmyDocument = ActivePresentation.Slides(1)

WithmyDocument.Shapes(3).Nodes

    .Insert Index:=4,SegmentType:=msoSegmentCurve, _

        EditingType:=msoEditingSmooth, X1:=210,Y1:=100

EndWith

weiyingde

InsertAfter方法

在指定文本区域的末尾附加一个字符串。返回一个代表附加文本的 TextRange对象。省略参数时，该方法返回一个在指定区域末尾的长度为零的字符串。

expression.InsertAfter(NewText)

expression 必选。该表达式返回一个 TextRange对象。

NewText 可选，String 类型。要插入的文本。默认值为空字符串。

VBA示例

本示例将字符串“: Test version”附加到活动演示文稿第一张幻灯片标题的末尾。

WithApplication.ActivePresentation.Slides(1).Shapes(1)

    .TextFrame.TextRange.InsertAfter ":Test version"

EndWith

本示例将剪贴板的内容添加到第一张幻灯片标题的末尾。

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame_

    .TextRange.InsertAfter.Paste

InsertBefore方法

在指定文本区域的开头附加一个字符串。返回一个代表附加文本的 TextRange对象。省略参数时，该方法返回一个在指定区域末尾的长度为零的字符串。

expression.InsertBefore(NewText)

expression 必选。该表达式返回一个 TextRange对象。

NewText 可选，String 类型。要添加的文本。默认值为空字符串。

VBA示例

本示例将字符串“Test version:”附加到活动演示文稿第一张幻灯片标题的开头。

WithApplication.ActivePresentation.Slides(1).Shapes(1)

    .TextFrame.TextRange.InsertBefore"Test version: "

EndWith

本示例将剪切板中的内容附加到活动演示文稿第一张幻灯片标题的开头。

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame_

    .TextRange.InsertBefore.Paste

InsertDateTime方法

在指定的文本区域插入日期和时间。返回一个代表所插入文本的 TextRange对象。

expression.InsertDateTime(DateTimeFormat,InsertAsField)

expression 必选。该表达式返回一个 TextRange对象。

DateTimeFormat  必选。PpDateTimeFormat 类型。日期和时间格式。

PpDateTimeFormat 可以是下列  PpDateTimeFormat 类型常数之一。

ppDateTimeddddMMMMddyyyy

ppDateTimedMMMMyyyy

ppDateTimedMMMyy

ppDateTimeFormatMixed

ppDateTimeHmm

ppDateTimehmmAMPM

ppDateTimeHmmss

ppDateTimehmmssAMPM

ppDateTimeMdyy

ppDateTimeMMddyyHmm

ppDateTimeMMddyyhmmAMPM

ppDateTimeMMMMdyyyy

ppDateTimeMMMMyy

ppDateTimeMMyy

InsertAsField  可选。MsoTriState 类型。决定是否每次打开演示文稿时都更新插入的日期和时间。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse 默认。

msoTriStateMixed

msoTriStateToggle

每次打开演示文稿时 msoTrue 都更新插入的日期和时间。

VBA示例

本示例将日期和时间插入在活动演示文稿第一张幻灯片第二个形状的第一段第一句之后。

Setsh = Application.ActivePresentation.Slides(1).Shapes(2)

SetsentOne = sh.TextFrame.TextRange.Paragraphs(1).Sentences(1)

sentOne.InsertAfter.InsertDateTimeppDateTimeMdyy

weiyingde

InsertFromFile方法

将来自某文件的幻灯片插入到演示文稿中的指定位置。返回一个代表所插入幻灯片数量的整数。

expression.InsertFromFile(FileName, Index,SlideStart, SlideEnd)

expression 必选。该表达式返回一个 Slides集合。

FileName 必选。String 类型。包含要插入的幻灯片的文件名称。

Index 必选。Long 类型。在插入新幻灯片的位置之后的 Slide对象在指定 Slides集合中的索引号。

SlideStart 可选。Long 类型。第一个 Slide对象在Slides集合中的索引号，该集合在由 FileName 指定的文件中。

SlideEnd 可选。Long 类型。最后一个 Slide对象在 Slides集合中的索引号，该集合在由 FileName 指定的文件中。

VBA示例

本示例在活动演示文稿的第二张灯片后插入文件 C:\Ppt\Sales.ppt 的第三张到第六张幻灯片。

ActivePresentation.Slides.InsertFromFile_

    "c:\ppt\sales.ppt", 2, 3, 6

InsertSlideNumber方法

将当前幻灯片的编号插入指定的文本区域。返回一个代表幻灯片编号的 TextRange对象。

expression.InsertSlideNumber

expression 必选。该表达式返回一个 TextRange对象。

说明

当前幻灯片的编号改变时，插入的幻灯片编号将自动更新。

VBA示例

本示例将当前幻灯片的编号插入到活动演示文稿第一张幻灯片第二个形状的第一段第一句之后。

Setsh = Application.ActivePresentation.Slides(1).Shapes(2)

SetsentOne = sh.TextFrame.TextRange.Paragraphs(1).Sentences(1)

sentOne.InsertAfter.InsertSlideNumber

InsertSymbol方法

返回TextRange对象，该对象代表一个插入到指定文本范围的符号。

expression.InsertSymbol(FontName,CharNumber, UniCode)

expression 必选。该表达式返回一个TextRange对象。

FontName 必选。String 类型。字体名称。

CharNumber 必选。Long 类型。Unicode 或ASCII 字符编码。

Unicode 可选。MsoTriState 类型。指定 CharNumber参数是代表 ASCII 字符还是 Unicode 字符。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue 不应用于此方法。

msoFalse 默认值。CharNumber参数代表一个 ASCII 字符编码。

msoTriStateMixed 不应用于此方法。

msoTriStateToggle 不应用于此方法。

msoTrue CharNumber参数代表一个 Unicode 字符。

VBA示例

本示例在当前演示文稿第一张幻灯片上的新文本框的第一段第一句后插入注册商标符号。

SubSymbol()

    Dim txtBox As Shape

    'Add text box

    Set txtBox =Application.ActivePresentation.Slides(1) _

       .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _

            Left:=100, Top:=100, Width:=100,Height:=100)

    'Add symbol to text box

    txtBox.TextFrame.TextRange.InsertSymbol _

        FontName:="Symbol",CharNumber:=226

EndSub

weiyingde

Item方法

应用于 ActionSettings对象的 Item方法。

从指定的ActionSettings集合中返回单个动作设置。

expression.Item(Index)

expression 必选。该表达式返回一个 ActionSettings集合。

Index 必选。PpMouseActivation 类型。MouseClick 或 MouseOver事件的动作设置

PpMouseActivation 可以是下列  PpMouseActivation 类型常数之一。

ppMouseClick 用户单击形状时的动作设置。

ppMouseOver 当鼠标指针定位在指定形状之上时的动作设置。

应用于 AddIns、CanvasShapes、Designs、DiagramNodeChildren、DiagramNodes、Fonts、GroupShapes、NamedSlideShows、Presentations、ShapeNodes、ShapeRange、Shapes、SlideRange 和Slides对象的 Item方法。

从指定集合中返回单个对象。

expression.Item(Index)

expression 必选。该表达式返回上述对象之一。

Index 必选。Variant 类型。集合中要返回的单个对象的名称或索引号。

应用于 AnimationBehaviors、AnimationPoints、CellRange、ColorSchemes、Columns、Comments、DocumentWindows、ExtraColors、Hyperlinks、ObjectVerbs、Panes、Placeholders、PrintRanges、PublishObjects、Rows、RulerLevels、Sequence、Sequences、SlideShowWindows、TabStops 和 TextStyleLevels对象的 Item方法。

从指定集合中返回一个对象。

expression.Item(Index)

expression 必选。该表达式返回一个 AnimationBehaviors集合。

Index 必选。Long 类型。集合中要返回的单个对象的索引号。

应用于 Borders对象的 Item方法。

返回指定边框的LineFormat对象。

expression.Item(BorderType)

expression 必选。该表达式返回一个Borders集合。

BorderType 必选。PpBorderType 类型。指定要返回的单元格或单元格范围的边框。

PpBorderType 可以是下列 PpBorderType 类型常数之一。

ppBorderBottom

ppBorderDiagonalDown

ppBorderDiagonalUp

ppBorderLeft

ppBorderRight

ppBorderTop

应用于 Tags对象的 Item方法。

从指定的Tags集合返回单个标记。

expression.Item(Name)

expression 必选。该表达式返回一个 Tags对象。

Name 必选。String 类型。集合中要返回的单个标记的名称。

应用于 TextStyles对象的 Item方法。

从指定的TextStyles集合中返回单个文本样式。

expression.Item(Type)

expression 必选。该表达式返回一个TextStyles集合。

Type 必选。PpTextStyleType 类型。文本样式类型。

PpTextStyleType 可以是下列 PpTextStyleType  类型常数之一。

ppBodyStyle

ppDefaultStyle

ppTitleStyle

说明

Item方法是集合的默认方法。例如，下面两行代码是等价的：

ActivePresentation.Slides.Item(1)

ActivePresentation.Slides(1)

关于返回集合中单个成员的详细信息，请参阅返回集合中的对象。

VBA示例

应用于 ActionSettings对象。

本示例为第一张幻灯片中第三个形状设置播放掌声，并使用AnimateAction属性指定在幻灯片放映中用鼠标单击该形状时，形状的颜色立即反转。

WithActivePresentation.Slides.Item(1).Shapes _

       .Item(3).ActionSettings.Item(ppMouseClick)

    .SoundEffect.Name = "applause"

    .AnimateAction = True

EndWith

应用于 RulerLevels对象。

本示例在当前演示文稿幻灯片母版的正文中为第一级大纲设置首行缩进和悬挂缩进。

WithActivePresentation.SlideMaster.TextStyles.Item(ppBodyStyle)

    With .Ruler.Levels.Item(1) ' sets indentsfor level 1

        .FirstMargin = 9

        .LeftMargin = 54

    End With

EndWith

应用于 Shapes对象。

本示例将当前演示文稿第一张幻灯片中形状“Rectangle 1”的前景色设为红色。

ActivePresentation.Slides.Item(1).Shapes.Item("rectangle1").Fill _

   .ForeColor.RGB = RGB(128, 0, 0)

应用于 Tags对象。

本示例隐藏当前演示文稿中“region”标记不包含“east”值的所有幻灯片。

ForEach s In ActivePresentation.Slides

    If s.Tags.Item("region") <>"east" Then

        s.SlideShowTransition.Hidden = True

    End If

Next

LargeScroll方法

按页滚动指定文档窗口。

expression.LargeScroll(Down, Up, ToRight,ToLeft)

expression  必选。该表达式返回一个 DocumentWindow对象。

Down 可选。Long 类型。指定向下滚动的页数。

Up   可选。Long 类型。指定向上滚动的页数。

ToRight  可选。Long 类型。指定向右滚动的页数。

ToLeft  可选。Long 类型。指定向左翻卷的页数。

说明

如果未指定参数，该方法向下滚动一屏。如果同时指定 Down 和 Up参数，效果是二者的叠加。例如，如果 Down 为 2 而 Up 为 4，该方法向上滚动两屏。同理，如果 Right 和 Left 同时指定，它们将共同起作用。

任何参数均可为负数。

VBA示例

本示例将当前窗口向下滚动三页。

Application.ActiveWindow.LargeScrollDown:=3

weiyingde

Last方法

设置指定的幻灯片放映视图，显示演示文稿的最后一张幻灯片。

expression.Last

expression  必选。该表达式返回一个 SlideShowView对象。

说明

如果使用 Last方法在幻灯片放映过程中从一张幻灯片切换到另一张幻灯片，返回原幻灯片时，它的动画继续从被中断处开始放映。

VBA示例

本示例设置第一个幻灯片放映窗口来显示演示文稿的最后一张幻灯片。

SlideShowWindows(1).View.Last

Lines方法

返回一个代表指定文本行子集的 TextRange对象。有关计算或浏览文本区域的详细信息，请参阅TextRange对象。

expression.Lines(Start, Length)

expression  必选。该表达式返回一个 TextRange对象。

Start  可选。Long 类型。返回的文本区域的第一行。

Length  可选。Long 类型。要返回的文本行数。

说明

如果 Start 和 Length 都省略，返回的内容从第一行开始，以指定范围的最后一段结束。

如果指定 Start参数但省略 Length参数，返回的内容为一行文本。

如果指定 Length参数但省略 Start参数，返回的内容从指定文本区域的第一行开始。

如果 Start参数大于指定文本的行数，返回的内容从指定文本区域的最后一行开始。

如果 Length参数大于从指定起始行到文本末尾的行数，则返回的内容包含所有这些行。

VBA示例

本示例将当前演文示稿第一张幻灯片第二个形状的第二段前两行设为斜体。

Application.ActivePresentation.Slides(1).Shapes(2)_

    .TextFrame.TextRange.Paragraphs(2) _

    .Lines(1, 2).Font.Italic = True

Load方法

返回 Design对象，该对象代表一个已加载到指定演示文稿母版列表中的设计。

expression.Load(TemplateName, Index)

expression 必选。该表达式返回“应用于”列表中的对象之一。

TemplateName  必选。String 类型。设计模板的路径。

Index 可选。Long 类型。设计模板在设计模板集合中的索引号。默认值为 -1，表示将设计模板添加到演示文稿中模板列表的末尾。

VBA示例

本示例将一个设计模板添加到当前演示文稿设计模板集合的开头。本示例假设“artsy.pot”模板位于指定路径。

SubLoadDesign()

    ActivePresentation.Designs.LoadTemplateName:="C:\Program Files\" & _

        "Microsoft Office\Templates\PresentationDesigns\Balance.pot", Index:=1

EndSub

LtrRun方法

将文本区域内的文本方向设置为从左向右阅读。

expression.LtrRun

expression  必选。该表达式返回一个 TextRange对象。

说明

本方法使得可以在同一个演示文稿中使用从左向右和从右向左两种语言的文字。

VBA示例

下例查找包含文本的第一张幻灯片中的所有形状，并将文本更改为从左向右进行阅读。

ActiveWindow.ViewType= ppViewSlide

ForEach sh In ActivePresentation.Slides(1).Shapes

    If sh.HasTextFrame Then

         sh.TextFrame.TextRange.LtrRun

    End If

Next

weiyingde

Merge方法
应用于 Cell对象的 Merge方法。
合并表格中的单元格。其结果为表格中的一个单元格。
expression.Merge(MergeTo)
expression   必选。一个返回 Cell对象的表达式。
MergeTo  必选。Cell对象。被合并的 Cell对象。使用语法 .Cell(row, column)。
应用于 Presentation对象的 Merge方法。
将第一个演示文稿合并到另一演示文稿中。
expression.Merge(Path)
expression   必选。该表达式返回上述对象之一。
Path  必选。String 型。与本演示文稿一起合并的文件的完整路径。
说明
如果文件名打不开或演示文稿有基线，本方法会返回一个错误。
VBA示例
本示例合并指定表格中第一行的前两个单元格。
With ActivePresentation.Slides(2).Shapes(5).Table
    .Cell(1, 1).Merge MergeTo:=.Cell(1, 2)
End With
MoveAfter方法
将一个动画效果移动到另一个动画效果之后。
expression.MoveAfter(Effect)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Effect 必选。Effect对象。expression 中的效果将被移动到其后的效果。
VBA示例
以下示例将一个效果移动到另一个效果之后。
Sub MoveEffect()
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim shpFirst As Shape
    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effOne = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
    Set effTwo = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlast)
    effOne.MoveAfter Effect:=effTwo
End Sub

weiyingde

MoveBefore方法
将一个动画效果移动到另一个动画效果之前。
expression.MoveBefore(Effect)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Effect 必选。Effect对象。expression 中的效果将被移动到其前的效果。
VBA示例
以下示例将一个效果移动到另一个效果之前。
Sub MoveEffect()
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim shpFirst As Shape
    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effOne = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
    Set effTwo = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlast)
    effTwo.MoveBefore Effect:=effOne
End Sub
MoveNode方法
在图示内移动节点及其任何子节点。
expression.MoveNode(TargetNode, Pos)
expression  必选。该表达式返回“应用于”列表中的对象之一。
TargetNode  必选。DiagramNode对象。要移动的源图示节点。
Pos  必选。MsoRelativeNodePosition 类型。相对于 TargetNode 指定添加节点的位置。
MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 类型常数之一。
msoAfterLastSibling
msoAfterNode
msoBeforeFirstSibling
msoBeforeNode
VBA示例
以下示例将新建图示的第二个图示节点移动到第四个节点之后。
Sub MoveDiagramNode()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add pyramid diagram to the current document
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    'Add four child nodes to the pyramid diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
    'Move the second node to after where the
    'fourth node is currently located.
    dgnNode.Diagram.Nodes(2).MoveNode _
        TargetNode:=dgnNode.Diagram.Nodes(4), _
        Pos:=msoAfterLastSibling
End Sub