Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.10.06;
Скачать: CL | DM;

Вниз

Панели инструментов 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


 
savyhinst ©   (2007-07-29 13:08) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2013.10.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
15-1366917087
О-Сознание
2013-04-25 23:11
2013.10.06
VCL построена на "сигналах-слотах"?


15-1366662603
Юрий
2013-04-23 00:30
2013.10.06
С днем рождения ! 23 апреля 2013 вторник


15-1366925402
Юрий
2013-04-26 01:30
2013.10.06
С днем рождения ! 26 апреля 2013 пятница


15-1355480016
azlk52
2012-12-14 14:13
2013.10.06
Запрет приложение вконтакте


15-1366835403
Юрий
2013-04-25 00:30
2013.10.06
С днем рождения ! 25 апреля 2013 четверг