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

Написал GoodvinVV в 10/02/2008 19:13:42

Цитата:

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?post_id=80846

Rambler's Top100