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

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

Синтаксис

expression. CropBottom

Выражение Выражение, возвращающее объект PictureFormat .

Замечания

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

Пример

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

Set myDocument = Worksheets(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

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

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