PictureFormat.CropTop プロパティ (Publisher)

バリアント 図または OLE オブジェクトの上端のトリミング量を示すを設定または返します。 値の取得と設定が可能です。

構文

式。CropTop

式PictureFormat オブジェクトを表す変数。

戻り値

バリアント型

注釈

数値は ポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。

負の値を指定すると、フレームの中心から上端がトリミングされ、正の値がフレームの下端に向かってトリミングされます。

トリミング値の有効範囲は、枠の位置とサイズによって決まります。 回転しないフレームの場合、許容される負の最小値は、フレームの上端とスクラッチ領域の上端との間の距離です。 使用できる正の最大値は、現在の枠の高さになります。

トリミングは、図の元のサイズに対して計算されます。 などが 100 ポイントの高い画像を挿入する、200 ポイントに変更して、 CropTop プロパティを 50 に設定し、100 ポイント (50 ではなく) は、図の上端からトリミングされます。

図または OLE オブジェクトの他の端をトリミングするには、 CropLeft 、 CropRight 、および CropBottom プロパティを使用します。

例

次の使用例は、作業中の文書の 3 番目の図形の上端から 20 ポイントをトリミングします。 この使用例が正しく動作するには、3 番目の図形が図または OLE オブジェクトである必要があります。

ActiveDocument.Pages(1).Shapes(3).PictureFormat _ 
 .CropTop = 20

次の使用例は、その図形の大きさが変更されたかどうかにかかわらず、選択した図形の上端からユーザーが指定したパーセンテージでトリミングします。 この使用例が動作するには、選択された図形が図または OLE オブジェクトである必要があります。

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngHeight As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the top of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleHeight Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngPoints = sngHeight * sngPercent / 100 
 
shpCrop.PictureFormat.CropTop = sngPoints 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。