Что такое макросы и как написать самый простой. Специально для канала @CorelRussia

Код макроса из видео:

Sub Macro3()
Dim vasia As Shape
Dim dyrka As Shape

ActiveDocument.Unit = cdrMillimeter

xx = ActiveWindow.ActiveView.OriginX
yy = ActiveWindow.ActiveView.OriginY

rect_size = 200
radius = 5
zazor = 3

Set vasia = ActiveLayer.CreateRectangle(xx - rect_size / 2, yy + rect_size / 2, xx + rect_size / 2, yy - rect_size / 2)

Set dyrka1 = ActiveLayer.CreateEllipse2(vasia.LeftX + zazor + radius, vasia.TopY - zazor - radius, radius, radius)
Set dyrka2 = ActiveLayer.CreateEllipse2(vasia.RightX - zazor - radius, vasia.TopY - zazor - radius, radius, radius)
Set dyrka3 = ActiveLayer.CreateEllipse2(vasia.LeftX + zazor + radius, vasia.BottomY + zazor + radius, radius, radius)
Set dyrka4 = ActiveLayer.CreateEllipse2(vasia.RightX - zazor - radius, vasia.BottomY + zazor + radius, radius, radius)
End Sub

@WinLaserStanki : [ Ссылка ]

Поддержи проект Деревяшкина и получи эксклюзивную панель макросов!
в Телеграме: [ Ссылка ]
на Бусти: [ Ссылка ]
на Патреоне: [ Ссылка ]
Видео про полную панель с генератором коробок: [ Ссылка ]
Бесплатная мини панель: [ Ссылка ]

Сообщество джедаев в телеграм: [ Ссылка ]
Новостной канал Вестник джедая: [ Ссылка ]
Канал Рафаэля Шарапова www.youtube.com/4EL0BEK

Полезные видео:
Стрим по горячим клавишам: [ Ссылка ]

Полезности от WinLaser:
Генераторы и конструкторы коробок:
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
Генераторы шестеренок и цепей:
[ Ссылка ] (платный)
[ Ссылка ]
[ Ссылка ]


Список групп с макетами
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]
[ Ссылка ]

Фанеру в Беларуси покупаю [ Ссылка ]

Донат на стриме: [ Ссылка ]
в ВК: [ Ссылка ]

Ищите нас так же в сети
[ Ссылка ] (личный)
[ Ссылка ] (группа)
[ Ссылка ]
[ Ссылка ]

свернуть