Graphic.CropLeft プロパティ (Excel)

指定した図または OLE オブジェクトの左側からトリミングされる ポイント の数を設定または返します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。

構文

式。CropLeft

式Graphic オブジェクトを返す式。

注釈

トリミングは、図の元の大きさに基づいて計算されます。 たとえば、もともと 100 ポイント幅の画像を挿入する場合は、幅が 200 ポイントになるように再スケーリングしてから、 CropLeft プロパティを 50 に設定すると、画像の左側から 100 ポイント (50 ポイントではなく) がトリミングされます。

例

次の使用例は、myDocument の図形 3 の左側から 20 ポイントをトリミングします。 この使用例が動作するには、3 番目の図形が図または OLE オブジェクトである必要があります。

Set myDocument = Worksheets(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 
 origWidth = .Width 
 .Delete 
End With 
cropPoints = origWidth * percentToCrop / 100 
shapeToCrop.PictureFormat.CropLeft = cropPoints

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。