Отправлено: 14.07.09 07:22. Заголовок: VBA проекты в ХР64

Столкнулся с таким осложнением: на ХР64 до установка Таипа в АИ стояли сторонние макросы, а после изменения ссылки VBA проекта они соответственно перестали работать, а если вернуть старую ссылку - то уже не работает Таип. Подскажите, как их объединить?

 Отправлено: 14.07.09 08:56. Заголовок: filat пишет: Подска..

filat пишет:

цитата:

Подскажите, как их объединить?

Запуск макросов из разных файлов к самому Таипу отношения не имеет. Пока не знаю, как запускать макросы из разных файлов. Если решите этот вопрос, то решите и свой. Спросите у Виктора Рулкенко, может он подскажет.

 Отправлено: 16.09.09 09:28. Заголовок: Появилась одна мысль..

Появилась одна мысль, правда она может немного сложновата в реализации... : я понимаю, что спрашивать Ваш пароль входа - это Абсурд! а если создать в папке Таип файл (напрример) User macros.txt , а в Таип добавить блок кода (или сделать отдельным приложением) который бы добавлял макросы из этого файла в зашифрованный VBA-файл и отслеживал изменения - в итоге и Ваша собственость защищена и пользователь работает с комфортом. :)

 Отправлено: 13.05.10 08:25. Заголовок: На сайте cad.ru я по..

На сайте cad.ru я поднимал вопрос о параллельной работе нескольких VBA-файлов и получил ответ:
Алексей Романов пишет:

цитата:

2. Если очень нужна кнопка, то головном проекте сооружаем макрос для нее, он загрузит нужный проект и запустит макрос в нем. Допустим в файле Inventor2010.ivb проект обозван Project2010, в нем есть модуль Module1, в котором есть макрос SampleMacro... Public Sub myMakro() On Error Resume Next Dim invVBAProject As InventorVBAProject For Each invVBAProject In ThisApplication.VBAProjects If invVBAProject.Name = "Project2010" Then Exit For Next If invVBAProject Is Nothing Then ThisApplication.VBAProjects.Open "E:\Инвентор addin\2010sample\Inventor2010.ivb" For Each invVBAProject In ThisApplication.VBAProjects If invVBAProject.Name = "Project2010" Then Exit For Next End If Dim invModule As InventorVBAComponent Set invModule = invVBAProject.InventorVBAComponents.Item("Module1") Dim invSub As InventorVBAMember Set invSub = invModule.InventorVBAMembers.Item("SampleMacro") invSub.Execute End Sub

brigval, пожалуйста, помогите по этой модели сделать макросы для кнопок Таип. Путь к файлу и название проекта понятны (C:\Program Files\ВерЗак\Таип 2.27\PAMKA.ivb и PAMKA), а какие еще изменения нужно внести? В частности как какие названия кнопок?