Command Bars

[nath]

Hi

I have written some code to create a custom command bar to
open a help file in a spreadsheet.

However, i can create the button, but i dont know how to
add the hyperlink to the button to get it to open the help
file, can ayone help?

Code is as follows:

Application.CommandBars.Add tb_name
Application.CommandBars(cb_name).Visible = True
Application.CommandBars(cb_name).Controls.Add
Type:=msoControlButton, ID:=2950, Before:=1

TIA

Nath

 

[Bob Phillips]

Confused by tb_name and cb_name but tjis should help

Application.CommandBars.Add tb_name
Application.CommandBars(cb_name).Visible = True
With Application.CommandBars(cb_name).Controls.Add( _
Type:=msoControlButton, ID:=2950, Before:=1)
.OnAction="myMacro"
End With


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Simon Lloyd]

If you are creating a button you can assign a macro for that button t
call the help file, so if the help file is some text that you hav
entered in to a spreadsheet you have the button select this sheet whe
clicked. Below is a line to add to your auto open which will assign th
macro, when the button is clicked it will run this macro (sample below
of course you will change the "ABCD" and "Macro1" to the names in you
workbook

applicaton.CommandBars("cb_name").Controls("ABCD").OnAction = "Macro1"

assuming macro1 is in the workbook where the above is run.

The line in your macro may read,

Sub Macro1()

Sheets("Help Sheet").Select

End Sub

Hope This Helps,

Simo