指定した図または OLE オブジェクトの下部からトリミングされる ポイント の数を設定または返します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。
構文
式。CropBottom
式PictureFormat オブジェクトを返す式。
注釈
トリミングは、図の元の大きさに基づいて計算されます。 たとえば、もともと 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 のサポートおよびフィードバックを参照してください。