指定した図または OLE オブジェクトの上部からトリミングされる ポイント の数を設定または返します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。
構文
式。CropTop
式PictureFormat オブジェクトを返す式。
注釈
トリミングは、図の元の大きさに基づいて計算されます。 たとえば、もともと 100 ポイント高い画像を挿入する場合は、高さが 200 ポイントになるように再スケーリングしてから、 CropTop プロパティを 50 に設定すると、画像の上部から 100 ポイント (50 ポイントではなく) がトリミングされます。
例
次の使用例は、myDocument の図形 3 の上端から 20 ポイントをトリミングします。 この使用例が動作するには、3 番目の図形が図または OLE オブジェクトである必要があります。
Set myDocument = Worksheets(1)
myDocument.Shapes(3).PictureFormat.CropTop = 20
この例では、図形が拡大縮小されているかどうかに関係なく、選択した図形の上部からトリミングする割合を指定できます。 この使用例が動作するには、選択した図形が図または OLE オブジェクトである必要があります。
percentToCrop = InputBox( _
"What percentage do you want to crop" & _
" off the top 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.CropTop = cropPoints
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。