ник: Дядя Федор
Можно перебрать коллекцию форм и присвоить типа
Public Sub tstShortMenu()
Dim frm As Form
For Each frm In Forms
Debug.Print frm.name
Debug.Print frm.ShortcutMenu
Debug.Print frm.ShortcutMenuBar
frm.ShortcutMenu=true
frm.ShortcutMenuBar = "MyMenu1"
Debug.Print frm.ShortcutMenuBar
Next
End Sub
|
Если надо не ковсем формам, то тут возможны варианты.
Например создать таблицу и записать туда имена форм, для которых нужно твое меню.
Ну дальше понятно.