Текущий архив: 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.45 MB
Время: 0.004 c
