PowerPoint VBA教程:CropLeft属性

返回或设置从指定图片或 OLE对象的左边所裁剪下的磅数。可读写。Single 类型。

注意  裁剪以其相对于图片初始大小来计算。例如,如果插入一个原为 100 磅宽的图片,并将其宽度改变为 200 磅,然后将 CropLeft属性设为 50,则将从图片左边裁减掉 100 磅(而不是 50 磅)。

VBA示例

本示例在myDocument 中第三个形状的左侧裁剪了 20 磅。要使本示例执行,第三个形状必须是图片或 OLE对象。


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropLeft = 20

本示例从选定的形状左边裁减掉用户指定的比例,不管该形状是否被改变过比例。要使本示例执行,选定的形状必须是图片或 OLE对象。


percentToCrop = InputBox("What percentage do you " & _
    "want to crop off the left of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
    .ScaleWidth 1, True
    .Width = origWidth
    .Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropLeft = cropPoints

上页:PowerPoint VBA教程:CropBottom属性 下页:PowerPoint VBA教程:CropRight属性

PowerPoint VBA教程:CropLeft属性

PowerPoint VBA教程:CropRight属性 PowerPoint VBA教程:CropTop属性
PowerPoint VBA教程:CurrentShowPosition属性 PowerPoint VBA教程:CustomDocumentProperties属性
PowerPoint VBA教程:Cyan Property PowerPoint VBA教程:DashStyle属性
PowerPoint VBA教程:DateAndTime属性 PowerPoint VBA教程:DateTime属性
PowerPoint VBA教程:Decelerate属性 PowerPoint VBA教程:DefaultLanguageID属性
PowerPoint VBA教程:DefaultShape属性 PowerPoint VBA教程:DefaultSpacing属性
PowerPoint VBA教程:DefaultWebOptions属性 PowerPoint VBA教程:Depth属性
PowerPoint VBA教程:Design属性 PowerPoint VBA教程:Designs属性
PowerPoint VBA教程:Diagram属性 PowerPoint VBA教程:DiagramNode属性
PowerPoint VBA教程:Dim属性 PowerPoint VBA教程:DimColor属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号