ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Command Bars (https://www.excelbanter.com/excel-programming/307732-command-bars.html)

nath

Command Bars
 
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, Befo=1

TIA

Nath


Bob Phillips[_6_]

Command Bars
 
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, Befo=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)

"nath" wrote in message
...
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, Befo=1

TIA

Nath




Simon Lloyd[_543_]

Command Bars
 
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

--
Message posted from http://www.ExcelForum.com



All times are GMT +1. The time now is 07:29 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com