Добавление кнопок в Excel средствами 1с8

Попытка Ексель = Новый COMОбъект("Excel.Application"); Исключение Сообщить(ОписаниеОшибки()); Возврат; конецПопытки; Ексель.DisplayAlerts=Ложь; Ексель.Visible = ложь; Книга = Ексель.Workbooks.Add(); Лист = Книга.WorkSheets(1); Лист.Select(); Ексель.Application.ActiveWindow.SplitRow = 4; Ексель.Application.ActiveWindow.FreezePanes = 1; кнопка1 = Книга.WorkSheets(1).Shapes.AddOLEObject("Forms.CommandButton.1", , , , , , , 3, 3, 80, 20); кнопка1.Name = "Свернуть"; кнопка1.TextFrame.Characters().Text = "Свернуть"; кнопка2 = Книга.WorkSheets(1).Shapes.AddOLEObject("Forms.CommandButton.1", , , , , , , 100, 3, 80, 20); кнопка1.Name = "ПоказатьВсе"; кнопка1.Name = "КнопкаСвернуть"; кнопка1.Caption = "Свернуть"; кнопка1 = Книга.WorkSheets(1).Buttons.Add(100, 3, 80, 20); кнопка1.Name = "КнопкаСвернуть"; кнопка1.Caption = "Свернуть"; кнопка1 = Книга.WorkSheets(1).Shapes.AddOLEObject("Forms.CommandButton.1",,,,,,,3, 3, 80, 25); кнопка1.Name = "КнопкаПоказатьВсе"; Книга.WorkSheets(1).oleobjects(1).Object.Caption = "Показать все"; ст = "Sub Main() |MsgBox(""Hello, World!"") ' Display message on computer screen. |End Sub"; Ексель.VBE.ActiveVBProject.VBComponents.Add (1); Ексель.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.InsertLines (1, ст); Ексель.Application.Save(); кнопка2 = Книга.WorkSheets(1).Shapes.AddOLEObject("Forms.CommandButton.1",,,,,,,100, 3, 80, 25); кнопка2.Name = "КнопкаСвернуть"; Книга.WorkSheets(1).oleobjects(2).Object.Caption = "Свернуть все" ; кнопка2 = Книга.WorkSheets(1).Buttons.Add(3, 3, 80, 20); кнопка2.Name = "КнопкаПоказатьВсе"; кнопка2.Caption = "Показать все";