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