PictureFormat.CropTop 屬性 (Word)

會傳回或設定裁剪關閉所指定的圖片或 OLE 物件的頂端的點數。 可讀寫 單一 。

語法

運算式。CropTop

表達 代表 'PictureFormat' 物件的變數。

註解

裁剪尺寸會計算相對於圖片的原始大小。 例如，如果您插入原先為 100 點高的圖片、 其放大為 200 點高，並再將 CropTop 屬性設為 50，100 點 (而不是 50 點) 將裁剪圖片的頂端關閉。

範例

本範例會將使用中文件上第三個圖案的頂部裁去 20 點。 為使本範例正常執行，第三個圖案必須是圖片或 OLE 物件。

ActiveDocument.Shapes(3).PictureFormat.CropTop = 20

本範例根據使用者指定的百分比裁掉選取圖案的頂端，而不論該圖案是否經過縮放。 為使本範例能正常執行，選取的圖案必須是圖片或是 OLE 物件。

Dim dblPercent As Double 
Dim shapeCrop As Shape 
Dim sngHeight As Single 
Dim sngCrop As Single 
 
dblPercent = Val(InputBox("What percentage do you want " _ 
 & "to crop off the top of this picture?")) 
 
Set shapeCrop = _ 
 Selection.ShapeRange(1) 
 
With shapeCrop.Duplicate 
 .ScaleHeight 1, True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngCrop = sngHeight * dblPercent / 100 
 
shapeCrop.PictureFormat.CropTop = sngCrop

另請參閱

PictureFormat 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。