Ситуация, наверное, типичная…
Я юзаю два компа: один на работе (под ХРюшей), другой дома (Виста). На обоих компах Excel-2003.
Большую часть макросов в Personal.xls и доработок панелей управления (наделал много своих кнопочек для вызова макросов, своих менюшек со своими кнопочками, своих кнопочек в стандартных менюшках...) делаю на работе :-)
Хочется и дома иметь такой же настроенный "под себя" Excel, как и на работе.
Но к сожалению просто тупо подложить домашнему Ёкселю файл Excel11.xlb вместе с папочкой XLSTART нельзя, т.к. не совпадают пути к макросам, лежащим в Personal.xls
А сидеть и просто в режиме настройки перепрописывать макросы, прикреплённые к каждой кнопочке жутко лень.
The_Prist в топике "Перенос макросов на другой комп с изменением путей доступа к ним" ( ) предлагал делать это макросом, который пройдётся циклом по всем кнопочкам менюшек и исправит у них путь, прописанный в OnAction:
Sub Replace_Personal() ' перенос макросов и настройки видимых панелей на другой компьютер
Const NewPath$ = "'C:\Users\MyNewUserName\AppData\Roaming\Microsoft\Excel\XLSTART
'Const NewPath$ = "'C:\Documents and Settings\MyNewUserName\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS'!" ' если переносить на XP
Dim cmdBar As Object, iBtn As Object, sPath$
For Each cmdBar In Application.CommandBars
If cmdBar.Visible Then
For Each iBtn In cmdBar.Controls
On Error Resume Next
sPath = iBtn.OnAction
If Len(sPath) > 0 Then
If InStr(1, sPath, "'!", 1) > 0 Then iBtn.OnAction = NewPath & Mid(sPath, InStr(1, sPath, "!", 1) + 1)
End If
Next iBtn
End If
Next cmdBar
End Sub
Пробовал. Работает, но не полностью : переписывает пути только у тех кнопочек, которые видны на экране, а у тех кнопочек, которые не видны - нет.
Попробовал убрать If cmdBar.Visible Then … - почему-то не помогло :-(
Всё равно не правятся пути у кнопочек, спрятанных в недрах выпадающих менюшек...
У кого-нибудь есть идеи, как "подпилить"?
Я юзаю два компа: один на работе (под ХРюшей), другой дома (Виста). На обоих компах Excel-2003.
Большую часть макросов в Personal.xls и доработок панелей управления (наделал много своих кнопочек для вызова макросов, своих менюшек со своими кнопочками, своих кнопочек в стандартных менюшках...) делаю на работе :-)
Хочется и дома иметь такой же настроенный "под себя" Excel, как и на работе.
Но к сожалению просто тупо подложить домашнему Ёкселю файл Excel11.xlb вместе с папочкой XLSTART нельзя, т.к. не совпадают пути к макросам, лежащим в Personal.xls
А сидеть и просто в режиме настройки перепрописывать макросы, прикреплённые к каждой кнопочке жутко лень.
The_Prist в топике "Перенос макросов на другой комп с изменением путей доступа к ним" ( ) предлагал делать это макросом, который пройдётся циклом по всем кнопочкам менюшек и исправит у них путь, прописанный в OnAction:
Sub Replace_Personal() ' перенос макросов и настройки видимых панелей на другой компьютер
Const NewPath$ = "'C:\Users\MyNewUserName\AppData\Roaming\Microsoft\Excel\XLSTART
'Const NewPath$ = "'C:\Documents and Settings\MyNewUserName\Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS'!" ' если переносить на XP
Dim cmdBar As Object, iBtn As Object, sPath$
For Each cmdBar In Application.CommandBars
If cmdBar.Visible Then
For Each iBtn In cmdBar.Controls
On Error Resume Next
sPath = iBtn.OnAction
If Len(sPath) > 0 Then
If InStr(1, sPath, "'!", 1) > 0 Then iBtn.OnAction = NewPath & Mid(sPath, InStr(1, sPath, "!", 1) + 1)
End If
Next iBtn
End If
Next cmdBar
End Sub
Пробовал. Работает, но не полностью : переписывает пути только у тех кнопочек, которые видны на экране, а у тех кнопочек, которые не видны - нет.
Попробовал убрать If cmdBar.Visible Then … - почему-то не помогло :-(
Всё равно не правятся пути у кнопочек, спрятанных в недрах выпадающих менюшек...
У кого-нибудь есть идеи, как "подпилить"?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
