Переназначение макросов на автофигурах - VBA
Формулировка задачи:
Добрый вечер. Помогите разобраться.
У меня на листе есть три автофигуры с назначенными макросами (Макрос1, Макрос2, Макрос3).
Рядом таблица - в которую вписаны названия автофигур и макросы, которые назначены им.
Подскажите как макросом - переназначить макросы для автофигур?
(Например если в таблице - напротив автофигуры "Oval 3" - написать "Макрос 1" и нажать на оранжевую кнопку - то на автофигуру "Oval 3" - вместо "Макроса 3" будет назначен "Макрос 1".)
Решение задачи: «Переназначение макросов на автофигурах»
textual
Листинг программы
Sub pr() a = Range("B4").CurrentRegion.Value For i = 1 To UBound(a) ActiveSheet.Shapes(a(i, 1)).OnAction = a(i, 2) Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д