Стрим: Пишем макрос для Corel Draw. Основы программирования на VBA

Текст макросов

Sub rotate_90PO()
ActiveSelectionRange.Rotate -90#
End Sub

Sub rotate_90PR()
ActiveSelectionRange.Rotate 90#
End Sub

Sub rotate_180()
ActiveSelectionRange.Rotate 180#
End Sub

Sub attach_left()
attach ("left")
End Sub
Sub attach_right()
attach ("right")
End Sub
Sub attach_top()
attach ("top")
End Sub
Sub attach_bottom()
attach ("bottom")
End Sub

Private Sub attach(side)
Set OS = ActiveSelection.Shapes
Set fir = OS.First
For Each s In OS
If Not s Is fir Then
Select Case side
Case "right": s.LeftX = fir.RightX
Case "left": s.RightX = fir.LeftX
Case "top": s.BottomY = fir.TopY
Case "bottom": s.TopY = fir.BottomY
End Select
End If
Next s
End Sub

Поддержи проект Деревяшкина и получи эксклюзивную панель макросов и ранний доступ к видео и эксклюзивным материалам!

Ищите нас так же в сети

[_vintik_shpuntik]

Ну наконец-то наткнулся на толковый урок по макросам для начинающих!👍👍👍

[mira]

Тема макросов очень интересна!!!! Давайте более подробно её рассматривать!!! Было бы здорово начать с очень простых действий постепенно усложнять!
Спасибо большое!!!

[mntygxi]

Спасибо! Я тоже действующий программист (Delphi) и пришел к лазерной резке 3 года назад. Хотел понять синтаксис VB вообще и особенности его для Corel (пока без конкретной задачи). По урокам такого мастера это будет проще, интереснее и эффективнее. Из личного опыта добавлю. Если не начать писать код, а только смотреть подобное образовательное видео, толку не будет никакого и через неделю другую все забудется. Поэтому наставление : "Творите!" как нельзя кстати в контексте изучения языка программирования.
Ждем продолжения!

[ExcelStore]

По моему опыту, VBA многими недооценен. Не только применительно к Corel Draw, но и в тех же приложениях MS Office. А ведь с его помощью можно быстро и удобно писать скрипты, существенно упрощающие рутинные операции.

[slukka]

Доброго Вам. А подскажите, как заполнить ComboBox названиями файлов, которые находятся в папке с макросом или подпапках. Заранее благодарю.

[anizym]

Помогите пажалуйсто. Не могу перенести переменную из одного макроса в другой. Ну или из макроса в панель. Н еподскажите как это сделать?

[lsssAAaAa]

Подскажите как мне сделать макрос по экспорту в JPG выбранных контуров? Нужно экспортировать около 100 контуров, руками лень :)

[MakDVa]

Здравствуйте. Полезное видео. Подскажите как сделать макрос который растягивает нарисованный мной узор на всю площадь любой выбранной фигуры?

[maikwood]

Не совсем понял зачем выставлять единицы измерения микроны, а потом переводить в миллиметры?
Проще же выставить сразу миллиметры.

[RomanovDR]

да, круто, конечно. Ноя точно в это не полезу. Из функций понравилось - выделить по цветам и гибкий рез с размещением пазов по кривой!

[vzpzbdq]

Непонятные цифры в макросе это дюймы