Доброго времени суток...

У меня есть проблемма, я изучаю VBA и сталкнулся с необходимостью использовать формы. В общем я не знаю как привязать к форме какие либо функции, например:
мне надо, что бы в определенной строчке (Lable) при вызове формы отображалось сочетание клавиш для определенного макроса. Я уже перерыл всю книгу VBA 2002 и в принципе ничего подобного не нашел, там только примеры использования форм, но не привязка какого либо макроса к самой форме. В хелпе тоже особо существенного не смог найти, единственное, что я нашел это initialize. На сколько я понимаю это зарузка каких - либо параметров в форму при её загрузке. В общем я в полной растерянности, так как не знаю как с этим работать.

Единственное, что я смог это сделать что бы при нажатии кнопки вылетал мэсадж бокс, с требуемой информацией, а надо что бы эта информация была в нужном мне Lable.

Помогите разобраться, или хотя бы направте мои мысли в нужную сторону.

Заранее благодарен.

Спасибо за ответ, но проблемма немного в другом.... Есть форма..

Sub Form1_initialize()

допустим есть лэйбл1

CustomizationContext = ActiveDocument
For Each myKey1 In _
KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
Command:="a_Obshiy_zagalovok")
myStr1 = myStr1 & myKey1.KeyString & vbCr
Next myKey1
Label1.Caption = myStr1

Но при запуске формы лэйбл1 остается пустым... Мое подозрение в том, что я не правильно понимаю структуру формы и метод её програмирования.

Где у меня ошибка? (По мимо ДНК 8)) )

up 8(

Помогите.... ничего не выходит.... Как побороть форму?

Тут трабла есть 8( форма вызывается form.show или form.load, но ... но ... но... как я понимаю то загрузка информации в форму происходит при private sub form_initialize() , но если посмотреть хелп, то там сказано, что при form.load -initialize не пашет.... работает только с form.show.... в общем мне друг сказал, что с этими формами вообще гемор..... Вот в каком то VB (еще в школе преподавали) вообще было клева, рисуешь форму, и скриптиш отдельный элемент будь то кнопка, фрейм, лэйбл, как пропрет, а в VBA хренушки, называется сначала угадай как 8(( Грусно как-то 8(
Неужели не кто с формами не разобрался?

Не пашет 8((((
Блин я че-то торможу по страшному.....
Короче создаем форму.. Кликаем - View Code там пишем
Sub Form1_initialize()
CustomizationContext = ActiveDocument
For Each myKey1 In _
KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
Command:="a_Obshiy_zagalovok")
myStr1 = myStr1 & myKey1.KeyString & vbCr
Next myKey1
Label1.Caption = myStr1
End Sub

потом запускаем на прямую, либо делаем отдельный модуль вызывающий эту форму:

Sub testing()
Dim UserForm1 As UserForm
Form1.Show (vbModeless)
End Sub

Я делаю так вот..... Форма вывалевается, но пустая, только с тем что я на ней по нарисовал....

Вопрос так это делается или не так?

Можешь расписать как это в VB? Я пологаю что структура должна быть схожая...

Хм... не работает всеравно.... Я боюсь дело в том что не совсем ясна структура формы в VBA.

Во первых есть тело формы, которая по идее несет основной код. Так же есть всякие более мелкие элементы которые живут непосредственно на форме, такие как фрэймы, кнопки, лэйблы и.т.д. Они скриптятся либо отдельно, либо непосредственно в самой форме.

В книжке VBA 2002 есть пример, но он показывает как скриптить не посредственно саму форму, например чтоб вываливающиеся таблички содержали какую-то инфу, кнопки пахали и тд итп.....

В книге вот такая структура:

Private Sub UserForm_Initialize()
...
...
...
Private Sub Frame_Click(в книге только клики рассматриваются)()
...
...
...
End Sub

Private Sub Lable_Click()
...
...
...
End Sub

Private Sub Button_Click()
...
...
...
End Sub


End Sub

Вот такие пироги....

Будете смеяться.... у меня тоже это сработало гы гы... Тока вот в чем весь сыр бор, форма стряпана давно и на неё я клею макрос.... гы гы... Есть вариант в том что лэйбл слишком маленький и текст туда не влезает, хотя такое врядли возможно, скорее всего просто была бы часть тектса...

Алексей, огромное вам спасибо, теперь я знаю куда двигаться! Вы меня очень выручили....

Бум сидеть и разбираться, да к стати, в связи с тем, что этот вопрос частично решон, появляется следующий 8))) Как можно через форму поменять разкладку горячих клавиш для макросов?

То есть, нужно через форму считать клавиши, и влепить их сочетание как горячие клавиши для макроса 8)