Страницы: 1
RSS
При создании кнопки привязать к ней макрос
 
Добрый день!)

Есть макрос, что создает кнопку. Так же есть макрос, что выводит сообщение.
Помогите мне сделать так, что когда кнопка создавалась, к ней был привязан макрос (программно сразу), что выводит сообщение.

Файл с макросами во вложении.  
 
Владислав Сафонов, Владислав Сафонов, а такой вариант не рассматриваете: кнопка УЖЕ создана, макрос вывода сообщения к ней УЖЕ привязан, но кнопка невидима. При запуске "основного" макроса становится видимой.
 
Если есть очень большое желание программно вставлять код, то поищите в "Хитростях" на Excel-Vba.
Если нет, то вариант (вставлять в стандартный модуль)
Код
Sub qq()
    Dim x As Object
    Set x = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 243, 87.75, 116.25, 36)
    With x.DrawingObject
        .Interior.ColorIndex = 3
        .Caption = "УРЯ!"
        .Font.Size = 20
        .Font.Bold = True
        .ShapeRange.TextFrame.HorizontalAlignment = xlHAlignCenter
        .ShapeRange.TextFrame.VerticalAlignment = xlVAlignCenter
        .OnAction = "test"
    End With
End Sub
Sub test()
    MsgBox "УРА"
End Sub
 
Юрий М, нет, к сожалению не подходит такой вариант...=(

RAN , огромное спасибо!) сработало как надо!!!
прям очень благодарен
Страницы: 1
Наверх