Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
29<br />
.Add Type:=msoControlEdit<br />
.Add Type:=msoControlButton , Id:=4<br />
.Add Type:=msoControlButton , Id:=21<br />
.Add Type:=msoControlDropdown<br />
.Add Type:=msoControlComboBox<br />
End With<br />
новаяПанель.Controls (1).OnAction = "мойМакрос"<br />
новаяПанель.Visible = True<br />
номерПанел<strong>и</strong> = CommandBars.Count<br />
MsgBox "Перед вам<strong>и</strong> панель " & новаяПанель.Name _<br />
& " номер " & номерПанел<strong>и</strong><br />
ош<strong>и</strong>бка:<br />
CommandBars ("Игры").Delete<br />
End Sub<br />
Sub НовыйЭлемент ()<br />
On Error GoTo ош<strong>и</strong>бка<br />
Dim панель As CommandBar<br />
Dim элемент As CommandBarComboBox<br />
Set панель = CommandBars (3)<br />
Set элемент = панель.Controls.Add (Type:=msoControlDropdown)<br />
With элемент<br />
.AddItem "Кофе", 1<br />
.AddItem "Чай", 2<br />
.AddItem "Сок", 3<br />
.DropDownWidth = 75<br />
.DropDownLines = 3<br />
.ListIndex = 3<br />
End With<br />
панель.Visible = True<br />
ош<strong>и</strong>бка:<br />
элемент.Delete<br />
End Sub<br />
Sub Панел<strong>и</strong>Инструментов ()<br />
For Each панель In CommandBars<br />
If панель.Index > 2 And панель.Index < 19 Then панель.Visible = False<br />
Next панель<br />
MsgBox "Все панел<strong>и</strong> <strong>и</strong>нструментов скрыты." & Chr (13) & _<br />
"Сейчас он<strong>и</strong> будут последовательно возвращаться"<br />
For Each панель In CommandBars<br />
If панель.Index > 2 And панель.Index < 19 Then<br />
панель.Visible = True<br />
MsgBox "Это панель " & панель.Name<br />
End If<br />
Next панель<br />
If MsgBox ("Убрать л<strong>и</strong>шн<strong>и</strong>е ", vbYesNo) = vbYes Then<br />
For счетч<strong>и</strong>к = 18 To 5 Step -1<br />
CommandBars (счетч<strong>и</strong>к).Visible = False<br />
Next счетч<strong>и</strong>к