0
Возможно ли скопировать элемент управления ActiveX на другой рабочий лист вместе с макросом, связанным с ним?копирование элементов управления activex вместе с макросами
Благодаря
A
ответ
1
код скопировать кнопку формы
activesheet.buttons("Button 1").copy
sheets("Sheet1").range("A1").pastespecial
или вы можете создать новую, используя Buttons.Add
Dim ws As Worksheet
Dim rTarget As Range
Set ws = Sheets("Sheet1")
Set rTarget = ws.Range("A1")
With ws.Buttons.Add(Left:=rTarget.Left, Top:=rTarget.Top, Width:=rTarget.Width, Height:=rTarget.Height)
.Caption = "Some text"
.OnAction = "Some_macro"
End With
наконец, просто копировать диапазон не должен работать, если application.copyobjectswithcells установлен в значение False
+0
Большое вам спасибо..и работает :) – JKay
-1
Вы можете иметь CommandButton или выпадающий из другого доступа листа такой же макросъемки.
+1
Это не мой вопрос. Я хочу скопировать элемент управления и используйте его – JKay
только путем явного написания того же кода в новом модуле листа. гораздо проще использовать элементы управления формами, а – JosieP
может формировать элементы управления, скопированные вместе с назначенным макросом? – JKay
Элементы управления формы назначаются макросами в обычных модулях, поэтому вам не нужно копировать код, если только вы не указали листок в другой книге? – JosieP