Свойство PictureFormat.CropTop (Издатель)

Статья
04/07/2023

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

Синтаксис

expression. CropTop

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

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

Variant

Примечания

Числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Отрицательные значения обрезают верхний край от центра кадра, а положительные значения — к нижнему краю кадра.

Допустимый диапазон значений обрезки зависит от положения и размера кадра. Для кадра без сротата наименьшим допустимым отрицательным значением является расстояние между верхним краем кадра и верхним краем области царапины. Максимально допустимое положительное значение — текущая высота кадра.

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

Используйте свойства CropLeft, CropRight и CropBottom для обрезки других краев рисунка или объекта OLE.

Пример

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

ActiveDocument.Pages(1).Shapes(3).PictureFormat _ 
 .CropTop = 20

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

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngHeight As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the top of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleHeight Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngPoints = sngHeight * sngPercent / 100 
 
shpCrop.PictureFormat.CropTop = sngPoints

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

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

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