| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

savyhinst ©   (2007-07-26 16:47:00) 

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

---

savyhinst   (2007-07-29 13:08:00) [1]

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

---

Lacmus   (2007-07-28 23:21:00) [2]

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

---

savyhinst   (2007-07-28 21:10:00) [3]

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

---

Lacmus   (2007-07-28 19:28:00) [4]



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


---

Наверх