How do I add an item to the sheet right-click menu programmatically?
I am sure it can be done, but I can't find it now.

RBS

Roedd <<RB Smissaert wedi ysgrifennu:

How do I add an item to the sheet right-click menu programmatically?
I am sure it can be done, but I can't find it now.

RBS

Lots of useful menuitem stuff he
<http://www33.brinkster.com/rbad/defa...r&Page=menuite
m

or

http://tinyurl.com/8vpw8

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.

Thanks, where do I find how to add an item?

RBS

"Robert Bruce" <rob@analytical-dynamicsdotcodotukay wrote in message
...
Roedd <<RB Smissaert wedi ysgrifennu:

How do I add an item to the sheet right-click menu programmatically?
I am sure it can be done, but I can't find it now.

RBS

Lots of useful menuitem stuff he
<http://www33.brinkster.com/rbad/defa...r&Page=menuite
m

or

http://tinyurl.com/8vpw8

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.

Sub ChangeSheetMenu()
With Application.CommandBars("Plyl")
..Reset
..Enabled = True
With .Controls.Add(Type:=msoControlButton, Befo=1)
..Caption = "New Macro"
..Style = msoButtonIconAndCaption
..FaceId = 59
..OnAction = "MyFile.xls!MacroName"
End With
End With
End Sub

Sub ResetSheetMenu()
Application.CommandBars("Ply").Reset
End Sub


--
HTH,
Bernie
MS Excel MVP


"RB Smissaert" wrote in message
...
Thanks, where do I find how to add an item?

RBS

"Robert Bruce" <rob@analytical-dynamicsdotcodotukay wrote in message
...
Roedd <<RB Smissaert wedi ysgrifennu:

How do I add an item to the sheet right-click menu programmatically?
I am sure it can be done, but I can't find it now.

RBS

Lots of useful menuitem stuff he

<http://www33.brinkster.com/rbad/defa...r&Page=menuite
m

or

http://tinyurl.com/8vpw8

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.

Sorry, I typed "Ply" incorrectly as "Plyl" in the With line....

With Application.CommandBars("Ply")


--
HTH,
Bernie
MS Excel MVP


"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Sub ChangeSheetMenu()
With Application.CommandBars("Plyl")
.Reset
.Enabled = True
With .Controls.Add(Type:=msoControlButton, Befo=1)
.Caption = "New Macro"
.Style = msoButtonIconAndCaption
.FaceId = 59
.OnAction = "MyFile.xls!MacroName"
End With
End With
End Sub

Sub ResetSheetMenu()
Application.CommandBars("Ply").Reset
End Sub


--
HTH,
Bernie
MS Excel MVP


"RB Smissaert" wrote in message
...
Thanks, where do I find how to add an item?

RBS

"Robert Bruce" <rob@analytical-dynamicsdotcodotukay wrote in message
...
Roedd <<RB Smissaert wedi ysgrifennu:

How do I add an item to the sheet right-click menu programmatically?
I am sure it can be done, but I can't find it now.

RBS

Lots of useful menuitem stuff he


<http://www33.brinkster.com/rbad/defa...r&Page=menuite
m

or

http://tinyurl.com/8vpw8

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.

Roedd <<Bernie Deitrick wedi ysgrifennu:

Sorry, I typed "Ply" incorrectly as "Plyl" in the With line....

With Application.CommandBars("Ply")


I think the OP was after "Cell", in any case.

--
Rob

http://www.asta51.dsl.pipex.com/webcam/

This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.