Переназначение макросов на автофигурах - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5