Свойство PictureFormat.CropTop (PowerPoint)

Статья
04/07/2023

Возвращает или задает количество точек, обрезанных сверху указанного рисунка или объекта OLE. Для чтения и записи.

Синтаксис

expression. CropTop

Выражение Переменная, представляющая объект PictureFormat .

Возвращаемое значение

Одинарное

Замечания

Обрезка вычисляется относительно исходного размера рисунка. Например, если вы вставляете рисунок, который изначально имеет высоту 100 точек, измените масштаб его так, чтобы оно было выше 200 точек, а затем задайте для свойства CropTop значение 50, 100 точек (а не 50) будут обрезаны с верхней части рисунка.

Пример

Этот пример обрезает 20 точек от верхней части третьей фигуры в myDocument. Чтобы этот пример работал, фигура три должна быть либо рисунком, либо объектом 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 и обратная связь.

Поделиться через