次の方法で共有

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 のサポートおよびフィードバックを参照してください。