PictureFormat.CropTop プロパティ (Excel)

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