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

Стрим при поддержки компании MCLaser https://vk.com/mclaser https://mclaser.ru

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

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


Донат на стриме: https://www.donationalerts.com/r/mrwo...
в ВК: https://vk.com/app5727453_-91564008

Поддержи проект Деревяшкина и получи эксклюзивную панель макросов и ранний доступ к видео и эксклюзивным материалам!
на Бусти: https://boosty.to/wrwoodman/
на Патреоне:   / mrwoodman  

Бесплатная мини панель: https://yadi.sk/d/7HsUXagaEvaYpQ
Видео про полную панель с генеретором коробок:    • Woodman Panel 2.0 Генератор коробок и...  


Ищите нас так же в сети
https://vk.com/dukered (личный)
https://vk.com/laser_man (группа)
  / laserman_minsk  
https://etsy.com/shop/mrWoodmanBY