Add item to sheet right-click menu?

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 here:
<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
news:%23LtogG8VFHA.2124@TK2MSFTNGP14.phx.gbl...
> 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 here:
> <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, Before:=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" <bartsmissaert@blueyonder.co.uk> wrote in message
news:%23bPVjM8VFHA.4056@TK2MSFTNGP15.phx.gbl...
> Thanks, where do I find how to add an item?
>
> RBS
>
> "Robert Bruce" <rob@analytical-dynamicsdotcodotukay> wrote in message
> news:%23LtogG8VFHA.2124@TK2MSFTNGP14.phx.gbl...
> > 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 here:
> >
<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
news:%230fHRT8VFHA.2984@tk2msftngp13.phx.gbl...
> Sub ChangeSheetMenu()
> With Application.CommandBars("Plyl")
> .Reset
> .Enabled = True
> With .Controls.Add(Type:=msoControlButton, Before:=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" <bartsmissaert@blueyonder.co.uk> wrote in message
> news:%23bPVjM8VFHA.4056@TK2MSFTNGP15.phx.gbl...
> > Thanks, where do I find how to add an item?
> >
> > RBS
> >
> > "Robert Bruce" <rob@analytical-dynamicsdotcodotukay> wrote in message
> > news:%23LtogG8VFHA.2124@TK2MSFTNGP14.phx.gbl...
> > > 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 here:
> > >
>
<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.