Панели инструментов Excel и Word

← →
savyhinst © (2007-07-26 16:47) [0]

Как добавить свою панель инструментов в Excel. Естественно с кнопками.
Пробовал:
exc_app.Toolbars.Add("Caption of toolbar");
//где exc_app - TExcelApplication
что дальше - не знаю
Подскажите пожадуйста кто знает!
можно и как добавить свою панель инструментов в word, т.к. скорее всего это делается аналогично.

← →
Lacmus © (2007-07-28 19:28) [1]

uses ComObj; const msocontrolButton = 1; procedure TForm6.Button1Click(Sender: TObject); var WordApplication, CommandBar, CommandControl : Variant; begin WordApplication := CreateOleObject("Word.Application"); CommandBar := WordApplication.CommandBars.Add("My Toolbar"); CommandControl := CommandBar.Controls.Add(msocontrolButton); CommandControl.Caption := "My Button"; CommandControl.FaceID := 2; CommandControl.OnAction := "Макрос1"; CommandBar.Visible := True; WordApplication.Visible := True end; Добавить в макросы Sub Макрос1() MsgBox ("Hello, World") End Sub

← →
savyhinst © (2007-07-28 21:10) [2]

Спасибо огромное!
Всё отлично работает в Excel.
Вот только ещё какой вопрос остался: Как добавить свой макрос?
Пробовал: ExcelApplication.MacroOptions(macro,"Macro description");
Вот только добавит ли это макрос и что передавать в качестве macro?

← →
Lacmus © (2007-07-28 23:21) [3]

>Как добавить свой макрос?
http://forum.sources.ru/index.php?showtopic=142090

Спасибо. Исчерпывающче.

Панели инструментов Excel и Word Найти похожие ветки