Обрезка фотографии в Corel PHOTO-PAINT 2025 26.0 с помощью VBA

Степень завершённости урока: 90%   

Статистика урока:

Для начала откроем в Corel PHOTO-PAINT 2025 26.0 фотографию, которую будем обрезать с помощью VBA.

С помощью сочетания клавиш Alt+F11 откроем редактор сценариев. Наберём каркас процедуры и назовём её "Crop".

Sub Crop()
End Sub

Выберем в качестве объекта для обрезки открытую в Corel PHOTO-PAINT фотографию, используя свойство ActiveDocument.

Sub Crop()
    Set Document = ActiveDocument
End Sub

В заключение добавим метод Crop, который производит непосредственно обрезку фотографии. У этого метода обязательны четыре аргумента: Left, Top, Width, Height.

Sub Crop()
    Set Document = ActiveDocument
    Document.Crop 300, 300, 300, 300
End Sub

В этом уроке для наглядности в качестве аргументов я указал одинаковое количество пикселей - 300.

Что означает 100 пикселей в этих аргументах? Запустим сценарий, нажав F5, и вернёмся в интерфейс Corel PHOTO-PAINT.

С помощью меню "Файл"->"Свойство документа" посмотрит разрешение фотографии после запуска сценария - 301х301 пиксель. Соответственно при изменении аргументов до 500 разрешение будет 501х501 пиксель и т.д.

Для указания размеров достаточно двух цифр. Для чего тогда 4 аргумента?

Первый аргумент определяет количество пикселей, которое будет вырезано слева, второй аргумент - сверху, третий аргумент - снизу, четвёртый - справа.


   Предложить идею по улучшению урока

            

Страница обновлена 16 марта 2025 года.