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

  • Last updated on