Graphic.CropRight 屬性 (Excel)

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

語法

運算式。CropRight

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

註解

裁剪尺寸會依據圖片的原始大小來計算。 例如，如果您插入原先寬度為 100 點的圖片，請將其調整為 200 點寬，然後將 CropRight 屬性設定為 50，100 點 (而非 50 點，) 會從圖片右側裁去。

範例

這個範例會從 myDocument 上第三個圖案的右邊裁去 20 點。 為使本範例正常執行，第三個圖案必須是圖片或 OLE 物件。

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

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

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

支援和意見反應

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