макрос и вызов с помощью клавиатуры.(путь?)

[sonata]

Создала макрос и приделала к нему вызов с помощью клавиатуры.
Если переношу на другой ПК, то данные по вызову не сохраняются.
Вопрос? Где они храняться?Чтобы переносить макрос вместе с ними?

[RayShade]

Не совсем понятно, про что идет речь, но все горячие клавиши хранятся в коллекции keybindings.

[Vitaly1]

Очень странно, по логикет если выбираешь сохранение макроса внутри книги (а не общий макрос), то и горячие клавишы должны сохраняться вместе с книгой где макрос.

Можно в событии Worckboks_open ввести указания на запуск макроса по горячей клавише:
Application.onkey "Клавиши", "Имя макроса"
Кодирование:
Shift - +
CTRL - ^
Alt - %
{Текст клавиши}
CTRL + Alt + 1 = "^%{1}"

[sonata]

А все-таки, путь, где Excel все это хранить так никто и не подскажет?

[corgi]

можно чуть подробней о том что ты сделала а то так не совсем понятно

[sonata]

1. Создала надстройку, для того, чтобы ее потом использовать
во всех excel-файлах
2. Надстройку создавала как обычный макрос, где вызывается окошко запись макроса, и в нем есть "Сочетание клавиш", предназначенные для запуска этого макроса.
3. Так вот, хочется контролировать этот процесс, так как, например,
при переносе макроса на другой ПК, вызов его по клавишам не работает...

[corgi]

а ты его сохраняла не личной книге макросов
его ж надо было записывать в данную книгу

[sonata]

Нет, по-умолчанию, стоит "ЭтаКнига"

[corgi]

по умолчанию стоит или ты записала в "ЭтаКнига"
ps а на другом компе не может быть чтобы эта комбинация была забита другим макросом

[sonata]

Сделала, как Вы посоветовали, то все равно не вызывается....

Private Sub Workbook_Open()
Applciation.OnKey "%Z", "MyCopy"
End Sub

Sub MyCopy()
Dim data As New DataObject
Dim myRange1 As Range
Set myRange1 = Application.Selection
For Each cll In Selection
myvle = myvle & " " & cll.Value
Next cll
data.SetText myvle
data.PutInClipboard
End Sub

[Vitaly1]

Private Sub Workbook_Open()
Должен быть в модуле книги

Sub MyCopy()
должен быть в модуле макросов

Нужно клавишу брать в фигурные скобки:
Application.OnKey "%{z}", "MyCopy"
и ставить маленькую z