“有关在word的工具栏中添加自己的按钮问题？”(200分)

我最近看到DragonPC_???的一篇在word的工具栏中添加自己的按钮的帖子，程序如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Office_TLB, Word_TLB, OleServer;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
appWord: _Application ;

cBar : CommandBar ;
cBarCtl : CommandBarControl ;
cBarBtnCustom: CommandBarButton ;

implementation


{$R *.dfm}

function actionTest:integer;
begin
ShowMessage('DragonPC Word Build-in Toolbar Test Program') ;
result := 0 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
appWord := CoWordApplication.Create() ;

cBar := appWord.CommandBars.Add('DragonPC Toolbar', msoBarFloating, EmptyParam, EmptyParam) ;
cBar.Set_Visible(true);

cBarCtl := cBar.Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, EmptyParam) ;
// you can use msoControlComboBox or other to add some other visual control.
// Style = msoButtonCaption
cBarCtl.Set_Caption('Button');
cBarCtl.Set_TooltipText('DragonPC Word Build-in Custom Button Test.');
cBarCtl.Set_OnAction('=actionTest;') ;
cBarCtl.Set_Visible(true) ;
appWord.Visible := true ;
end;

end.

我是试了试，没问题，但是我有2个问题
1、如何给添加的按钮定位，和添加图标？
我查了VBA的帮助中CommandBarControl 有一个属性FaceId 是设置图标的，但是delphi
中找不到。
2、如何给按钮添加宏或者是事件？
高分求教。

各位大侠教教小弟吧！很急

各位大侠教教小弟吧！很急 [xx(]

我答过
加宏没问题，加delphi事件没试呢，据说有办法
我先找找

多人接受答案了。

呵呵，别人会以为作弊呀