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

Статья
04/07/2023

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

Синтаксис

expression. CropBottom

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

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

Одинарное

Замечания

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

Пример

Этот пример обрезает 20 точек от нижней части третьей фигуры в myDocument. Чтобы этот пример работал, фигура три должна быть либо рисунком, либо объектом OLE.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).PictureFormat.CropBottom = 20

В этом примере обрезается процент, указанный пользователем, с нижней части выбранной фигуры, независимо от того, была ли масштабирована фигура. Для работы примера выбранная фигура должна быть либо рисунком, либо объектом OLE.

percentToCrop = InputBox("What percentage do you " & _
    "want to crop off the bottom 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.CropBottom = cropPoints

См. также

Объект PictureFormat

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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