ferias
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub Workbook_Open()
With MenuBars("Worksheet").Menus.Add(Caption:="Изменить размер...")
.MenuItems.Add Caption:="Уменьшить на 2-е еденици", OnAction:="PERSONAL.xls!Diminuir"
.MenuItems.Add Caption:="Увеличитьить на 2-е еденици", OnAction:="PERSONAL.xls!Aumentar"
.MenuItems.Add Caption:="Произвольно", OnAction:="PERSONAL.xls!Alterar_altura"
End With
End Sub |
Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 02:35 24-06-2010 | Исправлено: ferias, 03:08 24-06-2010 |
|
