Стрим при поддержки компании MCLaser
https://vk.com/mclaser Текст макросов 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 Поддержи проект Деревяшкина и получи эксклюзивную панель макросов и ранний доступ к видео и эксклюзивным материалам! на Бусти:
на Патреоне: / mrwoodman Бесплатная мини панель:
Видео про полную панель с генеретором коробок: • Woodman Panel 2.0 Генератор коробок и мног... Ищите нас так же в сети
https://vk.com/dukered (личный)
https://vk.com/laser_man (группа) / laserman_minsk
