Просматривают:
1 Анонимно
Инсталяция макросов, "toolbars" кнопки для запуска макросов |
||
|
||
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Недавно узнал, что при инсталяции макросов в CorelDRAW (инсталятором) можно сразу прописывать в панель "toolbars" кнопки для запуска макросов!!!
Есть ли опыт в этом у кого? Как это делается? Где можно подлядеть код? Кто знает принцип? хоть ссылочку какую....
Опубликовано: 2008/2/5 21:04
Edited by GoodvinVV on 05/02/2008 21:50:11
Edited by GoodvinVV on 06/02/2008 19:34:41 |
|
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Ну не верю, что никто не знает!
Есть предположение..... думаю так: кнопки, toolbars все это Workspace поэтому.... 1. Создать свой Workspace со своими кнопками....(сохранить в инсталятор) 2. При инсталяции макроса (др. комп) файлики с настроеным Workspac(ом) заправить в нужную папку. 3. Осталось найти способ как активировать его или же он будет дефолтовым по умолчанию и подгрузится в замен установленному (надо проверить!)??????????????? коменты плиз
Опубликовано: 2008/2/6 19:27
|
|
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Титан
Присоединился:
2005/11/18 20:12 Откуда Ukraine
Сообщений: 1656
|
GoodvinVV вот по поводу воркспэйса - есть такой макрос securidesign обзывается, вот он и ставит свой воркспэйс при инсталяции, но есть одна проблема - он не добавляет свой тулбар в существующий воркспэйс, а заменяет его и потому если у тебя были уже созданы собственные панели или изменены стандартные, то это не есть гуд я когда этот макрос поставил сам сделал ему тулбар в своем воркспэйсе
Опубликовано: 2008/2/6 19:40
|
|
_________________
едэм дас зайнэ и ниипёт |
||
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Вы правы все usersовские настройки естественно слетят что в определенном смысле не корректно в отношении пользователей
В связи с этим нужен способ не просто заменить а добавить.....
Опубликовано: 2008/2/6 19:45
|
|
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Новое видение вопроса
определило цель объединение toolbarov разных Workspac(ов) в один !!! Как реализовать? вот вопрос. пока ответа не нашел
Опубликовано: 2008/2/6 23:14
|
|
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Титан
Присоединился:
2005/11/18 20:12 Откуда Ukraine
Сообщений: 1656
|
GoodvinVV я знаю что при импорте воркспэйса можно выбрать типа импортнуть в настоящий и выбрать что именно импортнуть (вплоть до конкретного тулбара), но это все ручками
Опубликовано: 2008/2/7 0:11
|
|
_________________
едэм дас зайнэ и ниипёт |
||
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Пользователь 1 уровня
Присоединился:
2006/10/30 14:36 Откуда Барнаул
Сообщений: 252
|
GoodvinVV Вы меня огорчаите.
Вся работа с воркспейсами делается в настройках, там есть кнопки Экспорт и Импорт. Можно и тулбары и шоткаты и меню и докеры экспортировать и импортировать в новую среду. И таким же макаром можно устанавливать кнопки макросов. Можно и через ВБА. есть даже макрос специальный, ищите поиском...
Опубликовано: 2008/2/7 10:17
|
|
|
|
Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Цитата:
Пока еще не понятно, не понятно как это сделать ......на ошибках учимся! Вот что нашел , но пока меня это не продвинуло.... Sub RRRR() ''Выдает информацию о Workspaces Dim Ws As Workspace For Each Ws In Workspaces s = s & Ws.Name & " - Active: " & Ws.Active & vbCr Next Ws MsgBox "Workspaces: " & vbCr & s End Sub _________________________________________________________ Sub FFFF() ''Устанавливает Workspac № 1 Workspaces.Item(1).Activate End Sub _____________________________________________________________ Sub WorkspaceActive() 'Какой Workspacе активный (имя) MsgBox ActiveWorkspace.Name End Sub _____________________________ 'или так Sub WorkspaceName() 'Какой Workspacе активный (имя) MsgBox "Current Workspace: " & ActiveWorkspace.Name End Sub ____________________________________________________________________ Sub WorkspacesCount() 'Какой Workspacе активный (номер) MsgBox "There are " & Workspaces.Count & " workspaces in the collection." End Sub __________________________________________________________________________ Sub HHH() 'дает инфу "Текущий документ содержит следующие рабочие пространства" Dim intCounter As Integer Dim Ws As Workspace Dim s As String For intCounter = 1 To Workspaces.Count Set Ws = Workspaces(intCounter) s = s & Ws.Name & vbCr Next intCounter MsgBox "The current document contains the following workspaces: " & vbCr & s Set Ws = Nothing End Sub ______________________________________________________________________________ Sub WorkspaceDescription() MsgBox "Description: " & ActiveWorkspace.Description End Sub _________________________________________________________________________________ 'пример отображает доступные рабочие пространства в окне сообщений 'и добавляет звездочку рядом с названием активного рабочего пространства. Sub WorkspaceCollection() Dim s As String Dim wks As Workspace s = "Available Workspaces: " For Each wks In Workspaces s = s & vbCr & wks.Name If wks.Active Then s = s & " *" Next wks MsgBox s End Sub
Опубликовано: 2008/2/10 19:13
|
|