次の方法で共有

PictureFormat.CropTop プロパティ (PowerPoint)

  • [アーティクル]

指定した図または OLE オブジェクトの上端からトリミングするポイント数を設定します。 値の取得と設定が可能です。

構文

式。CropTop

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

戻り値

1 行

注釈

トリミングは、図の元の大きさに基づいて計算されます。 たとえば、元の図の高さが 100 ポイントの場合、その高さを 200 ポイントに変更し、CropTop プロパティに 50 を設定すると、図の上端から 100 ポイント (50 ではなく) トリミングされます。

例

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

Set myDocument = ActivePresentation.Slides(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

関連項目

PictureFormat オブジェクト

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

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