PowerPoint VBA教程:RotatedBounds方法

返回指定文本范围内文本边界框的顶点坐标。

expression.RotatedBounds(X1, Y1, X2, Y2, X3, Y3, X4, Y4)

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

X1,Y1  必选。Single 类型。返回指定文本范围内文本边界框第一个顶点的位置,以磅为单位。

X2,Y2  必选。Single 类型。返回指定文本范围内文本边界框第二个顶点的位置,以磅为单位。

X3,Y3  必选。Single 类型。返回指定文本范围内文本边界框第三个顶点的位置,以磅为单位。

X4,Y4  必选。Single 类型。返回指定文本范围内文本边界框第四个顶点的位置,以磅为单位。

VBA示例

本示例使用 RotatedBounds方法的参数返回值绘制任意多边形,此任意多边形的尺寸为当前活动演示文稿中第一张幻灯片上第一个形状的文本域内的第三个字的文本边界框的尺寸。


Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim myDocument As Slide
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).TextFrame.TextRange.Words(3).RotatedBounds _
    x1, y1, x2, y2, x3, y3, x4, y4
With myDocument.Shapes.BuildFreeform(msoEditingCorner, x1, y1)
    .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
    .AddNodes msoSegmentLine, msoEditingAuto, x3, y3
    .AddNodes msoSegmentLine, msoEditingAuto, x4, y4
    .AddNodes msoSegmentLine, msoEditingAuto, x1, y1
    .ConvertToShape.ZOrder msoSendToBack
End With

上页:PowerPoint VBA教程:ResetSlideTime方法 下页:PowerPoint VBA教程:RtlRun方法

PowerPoint VBA教程:RotatedBounds方法

PowerPoint VBA教程:RtlRun方法 PowerPoint VBA教程:Run方法
PowerPoint VBA教程:Runs方法 PowerPoint VBA教程:Save方法
PowerPoint VBA教程:SaveAs方法 PowerPoint VBA教程:SaveCopyAs方法
PowerPoint VBA教程:ScaleHeight方法 PowerPoint VBA教程:ScaleWidth方法
PowerPoint VBA教程:ScrollIntoView方法 PowerPoint VBA教程:Select方法
PowerPoint VBA教程:SelectAll方法 PowerPoint VBA教程:SendForReview方法
PowerPoint VBA教程:Sentences方法 PowerPoint VBA教程:SetCMYK Method
PowerPoint VBA教程:SetEditingType方法 PowerPoint VBA教程:SetExtrusionDirection方法
PowerPoint VBA教程:SetPasswordEncryptionOptions方法 PowerPoint VBA教程:SetPosition方法
PowerPoint VBA教程:SetSegmentType方法 PowerPoint VBA教程:SetShapesDefaultProperties方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号