Копирование кнопки макросом и присвоение новой кнопке своего имени

Posted by obzor under Basic, VBA, Софт

У меня есть лист1, на котором есть некоторое количество кнопок.
Среди них есть CommandButton2
как, находясь на листе2, макросом скопировать эту кнопку в конкретное место на листе1, например спозиционировать новую кнопку по ячейке С24 и задать новое имя кнопке (.Name, а не .Caption), чтобы я знал это имя и использовал в дальнейшем в работе.

Aleksandr H.

Sub CopyPasteButton()
    CopyButton "SRC", "Button 1", "TRGT", "B10"
End Sub

Private Sub CopyButton(from As String, btnName As String, toWorksheet As String, rng As String)
    Application.ScreenUpdating = False
    Sheets(from).Shapes(btnName).Copy
    Sheets(toWorksheet).Activate
    Sheets(toWorksheet).range(rng).Select
    Sheets(toWorksheet).Paste
    Selection.ShapeRange.Name = btnName
    Application.ScreenUpdating = True
End Sub

pashulka

Альтернативный вариант :

Private Sub Test()
    With Лист1.CommandButton2.Duplicate 'Лист1.OLEObjects("CommandButton2").Duplicate
         .Top = Лист1.[C24].Top
         .Left = Лист1.[C24].Left
         .Name = "CommandButton3"
    End With
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel