V-Форум / Corel VBA / Тема: Инсталяция макросов, "toolbars" кнопки для запуска макросов

Инсталяция макросов, "toolbars" кнопки для запуска макросов

 05/02/2008 21:04:19 #Link

GoodvinVV

Недавно узнал, что при инсталяции макросов в CorelDRAW (инсталятором) можно сразу прописывать в панель "toolbars" кнопки для запуска макросов!!!
Есть ли опыт в этом у кого?
Как это делается?
Где можно подлядеть код?
Кто знает принцип?

хоть ссылочку какую....

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 06/02/2008 19:27:37 #Link

GoodvinVV

Ну не верю, что никто не знает!
Есть предположение.....
думаю так:
кнопки, toolbars все это Workspace поэтому....
1. Создать свой Workspace со своими кнопками....(сохранить в инсталятор)
2. При инсталяции макроса (др. комп) файлики с настроеным Workspac(ом) заправить в нужную папку.
3. Осталось найти способ как активировать его или же он будет дефолтовым по умолчанию и подгрузится в замен установленному (надо проверить!)???????????????

коменты плиз

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 06/02/2008 19:40:10 #Link

monter

GoodvinVV вот по поводу воркспэйса - есть такой макрос securidesign обзывается, вот он и ставит свой воркспэйс при инсталяции, но есть одна проблема - он не добавляет свой тулбар в существующий воркспэйс, а заменяет его и потому если у тебя были уже созданы собственные панели или изменены стандартные, то это не есть гуд я когда этот макрос поставил сам сделал ему тулбар в своем воркспэйсе

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 06/02/2008 19:45:39 #Link

GoodvinVV

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

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 06/02/2008 23:14:05 #Link

GoodvinVV

Новое видение вопроса
определило цель

объединение toolbarov разных Workspac(ов) в один !!!

Как реализовать? вот вопрос.

пока ответа не нашел

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 07/02/2008 0:11:07 #Link

monter

GoodvinVV я знаю что при импорте воркспэйса можно выбрать типа импортнуть в настоящий и выбрать что именно импортнуть (вплоть до конкретного тулбара), но это все ручками

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 07/02/2008 10:17:41 #Link

Sancho

GoodvinVV Вы меня огорчаите.
Вся работа с воркспейсами делается в настройках, там есть кнопки Экспорт и Импорт. Можно и тулбары и шоткаты и меню и докеры экспортировать и импортировать в новую среду. И таким же макаром можно устанавливать кнопки макросов. Можно и через ВБА. есть даже макрос специальный, ищите поиском...

Re: Инсталяция макросов, "toolbars" кнопки для запуска макросов

 10/02/2008 19:13:42 #Link

GoodvinVV

Цитата:

Sanchos wrote:
GoodvinVV Вы меня огорчаите.
Можно и тулбары и шоткаты и меню и докеры экспортировать и импортировать в новую среду. И таким же макаром можно устанавливать кнопки макросов. Можно и через ВБА. есть даже макрос специальный, ищите поиском...



Пока еще
не понятно,
не понятно как это сделать

......на ошибках учимся!

Вот что нашел , но пока меня это не продвинуло....

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

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=7162&start=0

Rambler's Top100