Внедрение кода кнопки в открытый файл

[zaquson]

Здравствуйте.
Подскажите, пожалуйста, как осуществить: открывается файл с данными, запускается макрос из личной книги макросов, на лист в ячейку С1 добавляется кнопка с некоторой функцией, открытый файл сохраняется с кодом кнопки.

и ещё момент: с помощью Cells(1, Columns.Count).End(xlToLeft).Column можно определить номер последнего столбца, но использовать в Range его не получается, т.к. в Range используется буквенное обозначение столбца, как быть?

[DiemonStar]

http://www.planetaexcel.ru/forum/ind...FID=8&TID=3867

вот тут по кнопкам посмотрите.

как быть?

как-то так:

Range("A1:"& Cells(1, Columns.Count).End(xlToLeft).Address).EntireColumn

[zaquson]

По этой ссылке нет информации для решения данной задачи.
Смысл рассчитать, на сколько я представляю, ширину столбцов A и B - это и будет начало ячейки С1. Координаты определены. Вставляем кнопку. Внедряем код этой кнопки в открытый файл. Сохраняем файл с внедрённым кодом под каким-нибудь именем.


спасибо за "как-то так", как всегда всё оказалось просто...

[DiemonStar]

Сообщение от zaquson

По этой ссылке нет информации для решения данной задачи.
Смысл рассчитать, на сколько я представляю, ширину столбцов A и B - это и будет начало ячейки С1. Координаты определены.

Там все есть, только использовались немного другие объекты. Но принцип-то тот же

координаты - не проблема. Решается просто:

[A:B].Width

Вставляем кнопку. Внедряем код этой кнопки в открытый файл.

Тут есть нюанс:
- для Buttons потребуется привязать Вашу кнопку к макросу. Например:

Buttons("Имя кнопки").OnEvent = "Имя листа кода!Имя процедуры"

- для OLE-кнопки местоположение и имя процедуры должны быть прописаны жестко. Например, для кнопки "CommandButton1" на листе "Лист1", процедура должна называться CommandButton1_Click() и находиться на листе кода для "Лист1".

[zaquson]

нашёл типа
Application.VBE.ActiveVBProject.VBC omponents.Import ("c:\Module1.bas")
но, что-то не работает: "Method 'VBE' of object'_Application' failed"

[DiemonStar]

http://www.planetaexcel.ru/forum/ind...FID=8&TID=3867

вот тут по кнопкам посмотрите.

тут написана последовательность действий, которую нужно сделать, чтобы от этой ошибки избавиться.

[zaquson]

вроде получилось, конечно всё пришлось переделывать под себя...
спасибо за уделённое время!

[zaquson]

единственное только...
по нажатию кнопки должны скрываться или раскрываться подробности поля сводной таблицы, т.е. по идее должно быть:
if ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = False then ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = True else ActiveSheet.PivotTables("свд").Pivo tFields("Поле").ShowDetail = False
но ошибка: "Невозможно получить свойство PivotTables класса Worksheet"