| Вопрос: Перенос кнопки с макросом в VBA Excel | Добавлено: 13.03.07 06:36 |
Автор вопроса:  Cover Story
|
|
Всем доброго времени суток! Вопрос следующего плана!
Мне необходимо переносить или копировать кнопку с макросом и еще некоторые макросы на вновь вставленный лист (вставленный лист кберется из отдельного файла созданного 1С) как это сделать? Версия Excel 2000 русская. Ткните пожалуйста где можно почитать или помогите советом!!! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 13.03.07 19:21 |
|
MSDN
Visual Basic Extensibility Reference VBE Object 'извини, влом писать пример Dim codm As Variant Set codm =...VBComponents.Add(1).CodeModule With codm .InsertLines 1, "Option Explicit" .InsertLines 2, "sub Macros1()" .InsertLines 3, "On Error Resume Next" .InsertLines 5, "end sub" End With |
||
|
Номер ответа: 2 Автор ответа: Cover Story Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 14.03.07 16:00 |
|
Если кому интересно сделал:
Sub Кнопка2_Щелкнуть() Worksheets("sheet1"  .Buttons.Add(474, 11.25, 106.5, 35.25).Select
Worksheets("sheet1" .Buttons.Text = "Создать" & Chr(10) & "Акт Списания"
With Worksheets("sheet1" .Buttons.Characters(Start:=1, Length:=20).Font
.Name = "Arial Cyr" .FontStyle = "обычный" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Worksheets("sheet1" .Select
Worksheets("sheet1" .Buttons.OnAction = "Кнопка3_Щелкнуть"
Worksheets("sheet1" .Range("A1".Select
End Sub так можно продолжить обсуждение! Еще интересует как листу присвоить событие на изменение SelectionChange |
||
|
Номер ответа: 3 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #3 | Добавлено: 14.03.07 16:36 |
Кнопка Щелкнуть - это плохая кнопка, там есть еще одна панель с нормальными кнопками  в Настройках
|
||
Страница: 1 |