View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Mohamed ABOU-ZAID Mohamed ABOU-ZAID is offline
external usenet poster
 
Posts: 1
Default Persistent Excel toolbar

I used the code below to add a toolbar to my excel 97

Set xlapp = CreateObject("Excel.Application")
xlapp.visible=true
Set xlbook = xlapp.Workbooks.add
'xlapp.volatile(false)
Set cbs = xlapp.CommandBars
Set cb = cbs.Add("Impression CAB", 1,,false)
cb.Visible = True
Set cbc = cb.Controls.Add(1)
cbc.OnAction = "'c:\ged\perso.xls'!ImprimeCAB"
cbc.Caption = "Imprimer CAB"
cbc.FaceId = 59
xlbook.saved=true
xlapp.Quit


the prolem is that the toolbar is not added permanentely to my excel
help plz.