英語で読む

次の方法で共有


Graphic.CropBottom プロパティ (Excel)

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

構文

CropBottom

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

注釈

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

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

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

次の例を使用すると、図形が拡大縮小されているかどうかに関係なく、選択した図形の下部をトリミングする割合を指定できます。 この使用例が動作するには、選択した図形が図または OLE オブジェクトである必要があります。

percentToCrop = InputBox( _ 
 "What percentage do you want to crop off" & _ 
 " the bottom 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.CropBottom = cropPoints

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

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