Excel) (Graphic.CropTop 屬性

會傳回或設定從指定的圖片或 OLE 物件頂端裁剪的 點 數。 讀寫 Single。

語法

運算式。CropTop

表達 會傳回 Graphic 物件的運算式。

註解

裁剪尺寸會依據圖片的原始大小來計算。 例如，如果您插入原先是 100 點高的圖片，請將其調整為 200 點高，然後將 CropTop 屬性設定為 50，100 點 (而不是 50 點，) 會從圖片的頂端裁去。

範例

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

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).PictureFormat.CropTop = 20

下列範例可讓您指定要裁剪選取之圖案頂端的百分比，而不論該圖案是否已縮放。 為使本範例能正常執行，選取的圖案必須是圖片或是 OLE 物件。

percentToCrop = InputBox( _ 
 "What percentage do you want to crop" & _ 
 " off the top of this picture?") 
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1) 
With shapeToCrop.Duplicate 
 .ScaleHeight 1, True 
 origHeight = .Height 
 .Delete 
End With 
cropPoints = origHeight * percentToCrop / 100 
shapeToCrop.PictureFormat.CropTop = cropPoints

支援和意見反應

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