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

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

Синтаксис

expression. CropTop

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

Замечания

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

Пример

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

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

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

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