Code to create a right click short cut menu

Bob Phillips · 03-14-2005, 01:06 PM

Charles,

Here is a simple example you can build upon. I tend to add in the
Workbook_Open event and remove in the Workbook_BeforeClose.

Public Sub addMenu()
removeMenu 'just in case
With Application.CommandBars("Cell"*)
With .Controls.Add(Type:=msoControl*Button)
.BeginGroup = True
.Caption = "Routine1"
.OnAction = "Another"
End With
With .Controls.Add(Type:=msoControl*Button)
.Caption = "Routine2"
.OnAction = "YetMore"
End With
End With
End Sub

Public Sub removeMenu()
On Error Resume Next
With Application.CommandBars("Cell"*)
.Controls("Routine1").Delete
.Controls("Routine2").Delete
End With
On Error GoTo 0
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

"Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
news:f79a4997.0503140805.33082060@posting.google.com...
> Hi I am trying to manipulate multiple controls on a worksheet plus
> some drawing objects and in the days of XL95 John Walkenbach had a
> marvellous "Power Utility Pak" "Object Properties" tool for altering
> both the location of objects and whether they were Visible/Invisible.
>
> One of its great features was that it was accessible by selecting the
> object and then *right clicking* it. We are now trying to reproduce
> this right click ability but cannot find any code on this NG for doing
> it.
>
> Can any one, (including John) help?. Mr Walkenbach if you are there
> perhaps you could direct us to the page in "Power Programming with
> VBA" although its not immediately obvious that the code for this
> feature is in the book..
>
> (We are running XL 2000, /XP).
>
> Thanks a million
>
> Charles

Charles Jordan · 03-14-2005, 01:06 PM

Hi I am trying to manipulate multiple controls on a worksheet plus
some drawing objects and in the days of XL95 John Walkenbach had a
marvellous "Power Utility Pak" "Object Properties" tool for altering
both the location of objects and whether they were Visible/Invisible.

One of its great features was that it was accessible by selecting the
object and then *right clicking* it. We are now trying to reproduce
this right click ability but cannot find any code on this NG for doing
it.

Can any one, (including John) help?. Mr Walkenbach if you are there
perhaps you could direct us to the page in "Power Programming with
VBA" although its not immediately obvious that the code for this
feature is in the book..

(We are running XL 2000, /XP).

Thanks a million

Charles

Dave Peterson · 03-14-2005, 04:06 PM

For some reason, copying and pasting from Google adds extraneous dashes/hypens
to the code.

This line:
With Application.CommandBars("Cell"Â*)
should not have that trailing minus:
With Application.CommandBars("Cell")
(a couple of spots)

Bob Phillips wrote:
>
> Charles,
>
> Here is a simple example you can build upon. I tend to add in the
> Workbook_Open event and remove in the Workbook_BeforeClose.
>
> Public Sub addMenu()
> removeMenu 'just in case
> With Application.CommandBars("Cell"Â*)
> With .Controls.Add(Type:=msoControlÂ*Button)
> .BeginGroup = True
> .Caption = "Routine1"
> .OnAction = "Another"
> End With
> With .Controls.Add(Type:=msoControlÂ*Button)
> .Caption = "Routine2"
> .OnAction = "YetMore"
> End With
> End With
> End Sub
>
> Public Sub removeMenu()
> On Error Resume Next
> With Application.CommandBars("Cell"Â*)
> .Controls("Routine1").Delete
> .Controls("Routine2").Delete
> End With
> On Error GoTo 0
> End Sub
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
> "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> news:f79a4997.0503140805.33082060@posting.google.com...
> > Hi I am trying to manipulate multiple controls on a worksheet plus
> > some drawing objects and in the days of XL95 John Walkenbach had a
> > marvellous "Power Utility Pak" "Object Properties" tool for altering
> > both the location of objects and whether they were Visible/Invisible.
> >
> > One of its great features was that it was accessible by selecting the
> > object and then *right clicking* it. We are now trying to reproduce
> > this right click ability but cannot find any code on this NG for doing
> > it.
> >
> > Can any one, (including John) help?. Mr Walkenbach if you are there
> > perhaps you could direct us to the page in "Power Programming with
> > VBA" although its not immediately obvious that the code for this
> > feature is in the book..
> >
> > (We are running XL 2000, /XP).
> >
> > Thanks a million
> >
> > Charles

--

Dave Peterson

Ron de Bruin · 03-14-2005, 04:06 PM

Hi Dave

Strange we don't see it in this thread in OE
Only if I paste it in the VBA editor

Good that you see it in Netscape

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message news:4235E352.44915775@netscapeXSPAM.com...
> For some reason, copying and pasting from Google adds extraneous dashes/hypens
> to the code.
>
> This line:
> With Application.CommandBars("Cell"Â*)
> should not have that trailing minus:
> With Application.CommandBars("Cell")
> (a couple of spots)
>
>
> Bob Phillips wrote:
>>
>> Charles,
>>
>> Here is a simple example you can build upon. I tend to add in the
>> Workbook_Open event and remove in the Workbook_BeforeClose.
>>
>> Public Sub addMenu()
>> removeMenu 'just in case
>> With Application.CommandBars("Cell"Â*)
>> With .Controls.Add(Type:=msoControlÂ*Button)
>> .BeginGroup = True
>> .Caption = "Routine1"
>> .OnAction = "Another"
>> End With
>> With .Controls.Add(Type:=msoControlÂ*Button)
>> .Caption = "Routine2"
>> .OnAction = "YetMore"
>> End With
>> End With
>> End Sub
>>
>> Public Sub removeMenu()
>> On Error Resume Next
>> With Application.CommandBars("Cell"Â*)
>> .Controls("Routine1").Delete
>> .Controls("Routine2").Delete
>> End With
>> On Error GoTo 0
>> End Sub
>>
>> --
>>
>> HTH
>>
>> RP
>> (remove nothere from the email address if mailing direct)
>>
>> "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
>> news:f79a4997.0503140805.33082060@posting.google.com...
>> > Hi I am trying to manipulate multiple controls on a worksheet plus
>> > some drawing objects and in the days of XL95 John Walkenbach had a
>> > marvellous "Power Utility Pak" "Object Properties" tool for altering
>> > both the location of objects and whether they were Visible/Invisible.
>> >
>> > One of its great features was that it was accessible by selecting the
>> > object and then *right clicking* it. We are now trying to reproduce
>> > this right click ability but cannot find any code on this NG for doing
>> > it.
>> >
>> > Can any one, (including John) help?. Mr Walkenbach if you are there
>> > perhaps you could direct us to the page in "Power Programming with
>> > VBA" although its not immediately obvious that the code for this
>> > feature is in the book..
>> >
>> > (We are running XL 2000, /XP).
>> >
>> > Thanks a million
>> >
>> > Charles
>
> --
>
> Dave Peterson

Bob Phillips · 03-14-2005, 05:06 PM

Thanks, I will

Bob

"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> Hi Bob
>
> > That's the one Harlan was talking of the other day
> Yes
>
> I believe that Dave see the hyphen in the thread.
> But we don't see it in Outlook express
>
> > It is just one of the many annoying 'features' of the new Google.
> Yes
>
> I send a bug report
> Maybe you can do the same
> http://groups-beta.google.com/support/bin/request.py
>
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > Hi Ron,
> >
> > Oh that old chestnut. That's the one Harlan was talking of the other day
> > isn't it. I also get that if I paste a worksheet formula from Google,
but
> > they are not usually so obvious :-(
> >
> > It is just one of the many annoying 'features' of the new Google.
> >
> > Regards
> >
> > Bob
> >
> > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> >> You see this when you paste it in the VBA Bob
> >> With Application.CommandBars("Cell"-Â*)
> >>
> >> I send a bug report again to Google
> >>
> >>
> >> --
> >> Regards Ron de Bruin
> >> http://www.rondebruin.nl
> >>
> >>
> >>
> >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> >> > Dave,
> >> >
> >> > With respect, what are you talking about? I cannot see trailing
hyphens
> > in
> >> > your email, in my original post, or in Google.
> >> >
> >> > --
> >> >
> >> > HTH
> >> >
> >> > RP
> >> > (remove nothere from the email address if mailing direct)
> >> >
> >> >
> >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> >> > news:4235E352.44915775@netscapeXSPAM.com...
> >> >> For some reason, copying and pasting from Google adds extraneous
> >> > dashes/hypens
> >> >> to the code.
> >> >>
> >> >> This line:
> >> >> With Application.CommandBars("Cell"Â*)
> >> >> should not have that trailing minus:
> >> >> With Application.CommandBars("Cell")
> >> >> (a couple of spots)
> >> >>
> >> >>
> >> >> Bob Phillips wrote:
> >> >> >
> >> >> > Charles,
> >> >> >
> >> >> > Here is a simple example you can build upon. I tend to add in the
> >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> >> >> >
> >> >> > Public Sub addMenu()
> >> >> > removeMenu 'just in case
> >> >> > With Application.CommandBars("Cell"Â*)
> >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> >> >> > .BeginGroup = True
> >> >> > .Caption = "Routine1"
> >> >> > .OnAction = "Another"
> >> >> > End With
> >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> >> >> > .Caption = "Routine2"
> >> >> > .OnAction = "YetMore"
> >> >> > End With
> >> >> > End With
> >> >> > End Sub
> >> >> >
> >> >> > Public Sub removeMenu()
> >> >> > On Error Resume Next
> >> >> > With Application.CommandBars("Cell"Â*)
> >> >> > .Controls("Routine1").Delete
> >> >> > .Controls("Routine2").Delete
> >> >> > End With
> >> >> > On Error GoTo 0
> >> >> > End Sub
> >> >> >
> >> >> > --
> >> >> >
> >> >> > HTH
> >> >> >
> >> >> > RP
> >> >> > (remove nothere from the email address if mailing direct)
> >> >> >
> >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> >> >> > > Hi I am trying to manipulate multiple controls on a worksheet
plus
> >> >> > > some drawing objects and in the days of XL95 John Walkenbach had
a
> >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > altering
> >> >> > > both the location of objects and whether they were
> > Visible/Invisible.
> >> >> > >
> >> >> > > One of its great features was that it was accessible by
selecting
> > the
> >> >> > > object and then *right clicking* it. We are now trying to
reproduce
> >> >> > > this right click ability but cannot find any code on this NG for
> > doing
> >> >> > > it.
> >> >> > >
> >> >> > > Can any one, (including John) help?. Mr Walkenbach if you are
> > there
> >> >> > > perhaps you could direct us to the page in "Power Programming
with
> >> >> > > VBA" although its not immediately obvious that the code for this
> >> >> > > feature is in the book..
> >> >> > >
> >> >> > > (We are running XL 2000, /XP).
> >> >> > >
> >> >> > > Thanks a million
> >> >> > >
> >> >> > > Charles
> >> >>
> >> >> --
> >> >>
> >> >> Dave Peterson
> >> >
> >> >
> >>
> >>
> >
> >
>
>

Ron de Bruin · 03-14-2005, 05:06 PM

Hi Bob

> That's the one Harlan was talking of the other day
Yes

I believe that Dave see the hyphen in the thread.
But we don't see it in Outlook express

> It is just one of the many annoying 'features' of the new Google.
Yes

I send a bug report
Maybe you can do the same
http://groups-beta.google.com/support/bin/request.py

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> Hi Ron,
>
> Oh that old chestnut. That's the one Harlan was talking of the other day
> isn't it. I also get that if I paste a worksheet formula from Google, but
> they are not usually so obvious :-(
>
> It is just one of the many annoying 'features' of the new Google.
>
> Regards
>
> Bob
>
> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
>> You see this when you paste it in the VBA Bob
>> With Application.CommandBars("Cell"-Â*)
>>
>> I send a bug report again to Google
>>
>>
>> --
>> Regards Ron de Bruin
>> http://www.rondebruin.nl
>>
>>
>>
>> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
>> > Dave,
>> >
>> > With respect, what are you talking about? I cannot see trailing hyphens
> in
>> > your email, in my original post, or in Google.
>> >
>> > --
>> >
>> > HTH
>> >
>> > RP
>> > (remove nothere from the email address if mailing direct)
>> >
>> >
>> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
>> > news:4235E352.44915775@netscapeXSPAM.com...
>> >> For some reason, copying and pasting from Google adds extraneous
>> > dashes/hypens
>> >> to the code.
>> >>
>> >> This line:
>> >> With Application.CommandBars("Cell"Â*)
>> >> should not have that trailing minus:
>> >> With Application.CommandBars("Cell")
>> >> (a couple of spots)
>> >>
>> >>
>> >> Bob Phillips wrote:
>> >> >
>> >> > Charles,
>> >> >
>> >> > Here is a simple example you can build upon. I tend to add in the
>> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
>> >> >
>> >> > Public Sub addMenu()
>> >> > removeMenu 'just in case
>> >> > With Application.CommandBars("Cell"Â*)
>> >> > With .Controls.Add(Type:=msoControlÂ*Button)
>> >> > .BeginGroup = True
>> >> > .Caption = "Routine1"
>> >> > .OnAction = "Another"
>> >> > End With
>> >> > With .Controls.Add(Type:=msoControlÂ*Button)
>> >> > .Caption = "Routine2"
>> >> > .OnAction = "YetMore"
>> >> > End With
>> >> > End With
>> >> > End Sub
>> >> >
>> >> > Public Sub removeMenu()
>> >> > On Error Resume Next
>> >> > With Application.CommandBars("Cell"Â*)
>> >> > .Controls("Routine1").Delete
>> >> > .Controls("Routine2").Delete
>> >> > End With
>> >> > On Error GoTo 0
>> >> > End Sub
>> >> >
>> >> > --
>> >> >
>> >> > HTH
>> >> >
>> >> > RP
>> >> > (remove nothere from the email address if mailing direct)
>> >> >
>> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
>> >> > news:f79a4997.0503140805.33082060@posting.google.com...
>> >> > > Hi I am trying to manipulate multiple controls on a worksheet plus
>> >> > > some drawing objects and in the days of XL95 John Walkenbach had a
>> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> altering
>> >> > > both the location of objects and whether they were
> Visible/Invisible.
>> >> > >
>> >> > > One of its great features was that it was accessible by selecting
> the
>> >> > > object and then *right clicking* it. We are now trying to reproduce
>> >> > > this right click ability but cannot find any code on this NG for
> doing
>> >> > > it.
>> >> > >
>> >> > > Can any one, (including John) help?. Mr Walkenbach if you are
> there
>> >> > > perhaps you could direct us to the page in "Power Programming with
>> >> > > VBA" although its not immediately obvious that the code for this
>> >> > > feature is in the book..
>> >> > >
>> >> > > (We are running XL 2000, /XP).
>> >> > >
>> >> > > Thanks a million
>> >> > >
>> >> > > Charles
>> >>
>> >> --
>> >>
>> >> Dave Peterson
>> >
>> >
>>
>>
>
>

Bob Phillips · 03-14-2005, 05:06 PM

Hi Ron,

Oh that old chestnut. That's the one Harlan was talking of the other day
isn't it. I also get that if I paste a worksheet formula from Google, but
they are not usually so obvious :-(

It is just one of the many annoying 'features' of the new Google.

Regards

Bob

"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> You see this when you paste it in the VBA Bob
> With Application.CommandBars("Cell"-Â*)
>
> I send a bug report again to Google
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > Dave,
> >
> > With respect, what are you talking about? I cannot see trailing hyphens
in
> > your email, in my original post, or in Google.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > news:4235E352.44915775@netscapeXSPAM.com...
> >> For some reason, copying and pasting from Google adds extraneous
> > dashes/hypens
> >> to the code.
> >>
> >> This line:
> >> With Application.CommandBars("Cell"Â*)
> >> should not have that trailing minus:
> >> With Application.CommandBars("Cell")
> >> (a couple of spots)
> >>
> >>
> >> Bob Phillips wrote:
> >> >
> >> > Charles,
> >> >
> >> > Here is a simple example you can build upon. I tend to add in the
> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> >> >
> >> > Public Sub addMenu()
> >> > removeMenu 'just in case
> >> > With Application.CommandBars("Cell"Â*)
> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> >> > .BeginGroup = True
> >> > .Caption = "Routine1"
> >> > .OnAction = "Another"
> >> > End With
> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> >> > .Caption = "Routine2"
> >> > .OnAction = "YetMore"
> >> > End With
> >> > End With
> >> > End Sub
> >> >
> >> > Public Sub removeMenu()
> >> > On Error Resume Next
> >> > With Application.CommandBars("Cell"Â*)
> >> > .Controls("Routine1").Delete
> >> > .Controls("Routine2").Delete
> >> > End With
> >> > On Error GoTo 0
> >> > End Sub
> >> >
> >> > --
> >> >
> >> > HTH
> >> >
> >> > RP
> >> > (remove nothere from the email address if mailing direct)
> >> >
> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> >> > > Hi I am trying to manipulate multiple controls on a worksheet plus
> >> > > some drawing objects and in the days of XL95 John Walkenbach had a
> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
altering
> >> > > both the location of objects and whether they were
Visible/Invisible.
> >> > >
> >> > > One of its great features was that it was accessible by selecting
the
> >> > > object and then *right clicking* it. We are now trying to reproduce
> >> > > this right click ability but cannot find any code on this NG for
doing
> >> > > it.
> >> > >
> >> > > Can any one, (including John) help?. Mr Walkenbach if you are
there
> >> > > perhaps you could direct us to the page in "Power Programming with
> >> > > VBA" although its not immediately obvious that the code for this
> >> > > feature is in the book..
> >> > >
> >> > > (We are running XL 2000, /XP).
> >> > >
> >> > > Thanks a million
> >> > >
> >> > > Charles
> >>
> >> --
> >>
> >> Dave Peterson
> >
> >
>
>

Ron de Bruin · 03-14-2005, 05:06 PM

You see this when you paste it in the VBA Bob
With Application.CommandBars("Cell"-Â*)

I send a bug report again to Google

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> Dave,
>
> With respect, what are you talking about? I cannot see trailing hyphens in
> your email, in my original post, or in Google.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> news:4235E352.44915775@netscapeXSPAM.com...
>> For some reason, copying and pasting from Google adds extraneous
> dashes/hypens
>> to the code.
>>
>> This line:
>> With Application.CommandBars("Cell"Â*)
>> should not have that trailing minus:
>> With Application.CommandBars("Cell")
>> (a couple of spots)
>>
>>
>> Bob Phillips wrote:
>> >
>> > Charles,
>> >
>> > Here is a simple example you can build upon. I tend to add in the
>> > Workbook_Open event and remove in the Workbook_BeforeClose.
>> >
>> > Public Sub addMenu()
>> > removeMenu 'just in case
>> > With Application.CommandBars("Cell"Â*)
>> > With .Controls.Add(Type:=msoControlÂ*Button)
>> > .BeginGroup = True
>> > .Caption = "Routine1"
>> > .OnAction = "Another"
>> > End With
>> > With .Controls.Add(Type:=msoControlÂ*Button)
>> > .Caption = "Routine2"
>> > .OnAction = "YetMore"
>> > End With
>> > End With
>> > End Sub
>> >
>> > Public Sub removeMenu()
>> > On Error Resume Next
>> > With Application.CommandBars("Cell"Â*)
>> > .Controls("Routine1").Delete
>> > .Controls("Routine2").Delete
>> > End With
>> > On Error GoTo 0
>> > End Sub
>> >
>> > --
>> >
>> > HTH
>> >
>> > RP
>> > (remove nothere from the email address if mailing direct)
>> >
>> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
>> > news:f79a4997.0503140805.33082060@posting.google.com...
>> > > Hi I am trying to manipulate multiple controls on a worksheet plus
>> > > some drawing objects and in the days of XL95 John Walkenbach had a
>> > > marvellous "Power Utility Pak" "Object Properties" tool for altering
>> > > both the location of objects and whether they were Visible/Invisible.
>> > >
>> > > One of its great features was that it was accessible by selecting the
>> > > object and then *right clicking* it. We are now trying to reproduce
>> > > this right click ability but cannot find any code on this NG for doing
>> > > it.
>> > >
>> > > Can any one, (including John) help?. Mr Walkenbach if you are there
>> > > perhaps you could direct us to the page in "Power Programming with
>> > > VBA" although its not immediately obvious that the code for this
>> > > feature is in the book..
>> > >
>> > > (We are running XL 2000, /XP).
>> > >
>> > > Thanks a million
>> > >
>> > > Charles
>>
>> --
>>
>> Dave Peterson
>
>

Bob Phillips · 03-14-2005, 05:06 PM

Dave,

With respect, what are you talking about? I cannot see trailing hyphens in
your email, in my original post, or in Google.

--

HTH

RP
(remove nothere from the email address if mailing direct)

"Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
news:4235E352.44915775@netscapeXSPAM.com...
> For some reason, copying and pasting from Google adds extraneous
dashes/hypens
> to the code.
>
> This line:
> With Application.CommandBars("Cell"Â*)
> should not have that trailing minus:
> With Application.CommandBars("Cell")
> (a couple of spots)
>
>
> Bob Phillips wrote:
> >
> > Charles,
> >
> > Here is a simple example you can build upon. I tend to add in the
> > Workbook_Open event and remove in the Workbook_BeforeClose.
> >
> > Public Sub addMenu()
> > removeMenu 'just in case
> > With Application.CommandBars("Cell"Â*)
> > With .Controls.Add(Type:=msoControlÂ*Button)
> > .BeginGroup = True
> > .Caption = "Routine1"
> > .OnAction = "Another"
> > End With
> > With .Controls.Add(Type:=msoControlÂ*Button)
> > .Caption = "Routine2"
> > .OnAction = "YetMore"
> > End With
> > End With
> > End Sub
> >
> > Public Sub removeMenu()
> > On Error Resume Next
> > With Application.CommandBars("Cell"Â*)
> > .Controls("Routine1").Delete
> > .Controls("Routine2").Delete
> > End With
> > On Error GoTo 0
> > End Sub
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> > news:f79a4997.0503140805.33082060@posting.google.com...
> > > Hi I am trying to manipulate multiple controls on a worksheet plus
> > > some drawing objects and in the days of XL95 John Walkenbach had a
> > > marvellous "Power Utility Pak" "Object Properties" tool for altering
> > > both the location of objects and whether they were Visible/Invisible.
> > >
> > > One of its great features was that it was accessible by selecting the
> > > object and then *right clicking* it. We are now trying to reproduce
> > > this right click ability but cannot find any code on this NG for doing
> > > it.
> > >
> > > Can any one, (including John) help?. Mr Walkenbach if you are there
> > > perhaps you could direct us to the page in "Power Programming with
> > > VBA" although its not immediately obvious that the code for this
> > > feature is in the book..
> > >
> > > (We are running XL 2000, /XP).
> > >
> > > Thanks a million
> > >
> > > Charles
>
> --
>
> Dave Peterson

TK · 03-14-2005, 11:06 PM

Hi Bob / Ron

Coping this from this NG post

With Application.CommandBars("Cell"Ã‚Â*)
With .Controls.Add(Type:=msoControlÃ‚Â*Button)

Became this in VBA
With Application.CommandBars("Cell"Ã‚Â*-)
With .Controls.Add(Type:=msoControl-Ã‚Â*Button)

Copying the VBA and pasting it back in this post the original is back.
With Application.CommandBars("Cell"Ã‚Â*)
With .Controls.Add(Type:=msoControlÃ‚Â*Button)

However; the code works great and it completes a menu system
that Ron helped me earlier with. I was just ready to post a question
when I seen this post. I would hope Charles checked his post, it was
just what he ask for.

PS Bob
> I tend to add in the Workbook_Open event and remove in Work_BeforeClose.

I favor the activate/deactivate events over the open/beforeclose
events do to the fact that if a user opens another workbook it restores
there setup at that time

Thanks
TK

"Bob Phillips" wrote:

> Thanks, I will
>
> Bob
>
>
> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > Hi Bob
> >
> > > That's the one Harlan was talking of the other day
> > Yes
> >
> > I believe that Dave see the hyphen in the thread.
> > But we don't see it in Outlook express
> >
> > > It is just one of the many annoying 'features' of the new Google.
> > Yes
> >
> > I send a bug report
> > Maybe you can do the same
> > http://groups-beta.google.com/support/bin/request.py
> >
> >
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> >
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > Hi Ron,
> > >
> > > Oh that old chestnut. That's the one Harlan was talking of the other day
> > > isn't it. I also get that if I paste a worksheet formula from Google,
> but
> > > they are not usually so obvious :-(
> > >
> > > It is just one of the many annoying 'features' of the new Google.
> > >
> > > Regards
> > >
> > > Bob
> > >
> > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > >> You see this when you paste it in the VBA Bob
> > >> With Application.CommandBars("Cell"-Ã‚Â*)
> > >>
> > >> I send a bug report again to Google
> > >>
> > >>
> > >> --
> > >> Regards Ron de Bruin
> > >> http://www.rondebruin.nl
> > >>
> > >>
> > >>
> > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > >> > Dave,
> > >> >
> > >> > With respect, what are you talking about? I cannot see trailing
> hyphens
> > > in
> > >> > your email, in my original post, or in Google.
> > >> >
> > >> > --
> > >> >
> > >> > HTH
> > >> >
> > >> > RP
> > >> > (remove nothere from the email address if mailing direct)
> > >> >
> > >> >
> > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > >> >> For some reason, copying and pasting from Google adds extraneous
> > >> > dashes/hypens
> > >> >> to the code.
> > >> >>
> > >> >> This line:
> > >> >> With Application.CommandBars("Cell"Ã‚Â*)
> > >> >> should not have that trailing minus:
> > >> >> With Application.CommandBars("Cell")
> > >> >> (a couple of spots)
> > >> >>
> > >> >>
> > >> >> Bob Phillips wrote:
> > >> >> >
> > >> >> > Charles,
> > >> >> >
> > >> >> > Here is a simple example you can build upon. I tend to add in the
> > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> > >> >> >
> > >> >> > Public Sub addMenu()
> > >> >> > removeMenu 'just in case
> > >> >> > With Application.CommandBars("Cell"Ã‚Â*)
> > >> >> > With .Controls.Add(Type:=msoControlÃ‚Â*Button)
> > >> >> > .BeginGroup = True
> > >> >> > .Caption = "Routine1"
> > >> >> > .OnAction = "Another"
> > >> >> > End With
> > >> >> > With .Controls.Add(Type:=msoControlÃ‚Â*Button)
> > >> >> > .Caption = "Routine2"
> > >> >> > .OnAction = "YetMore"
> > >> >> > End With
> > >> >> > End With
> > >> >> > End Sub
> > >> >> >
> > >> >> > Public Sub removeMenu()
> > >> >> > On Error Resume Next
> > >> >> > With Application.CommandBars("Cell"Ã‚Â*)
> > >> >> > .Controls("Routine1").Delete
> > >> >> > .Controls("Routine2").Delete
> > >> >> > End With
> > >> >> > On Error GoTo 0
> > >> >> > End Sub
> > >> >> >
> > >> >> > --
> > >> >> >
> > >> >> > HTH
> > >> >> >
> > >> >> > RP
> > >> >> > (remove nothere from the email address if mailing direct)
> > >> >> >
> > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > >> >> > > Hi I am trying to manipulate multiple controls on a worksheet
> plus
> > >> >> > > some drawing objects and in the days of XL95 John Walkenbach had
> a
> > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > > altering
> > >> >> > > both the location of objects and whether they were
> > > Visible/Invisible.
> > >> >> > >
> > >> >> > > One of its great features was that it was accessible by
> selecting
> > > the
> > >> >> > > object and then *right clicking* it. We are now trying to
> reproduce
> > >> >> > > this right click ability but cannot find any code on this NG for
> > > doing
> > >> >> > > it.
> > >> >> > >
> > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you are
> > > there
> > >> >> > > perhaps you could direct us to the page in "Power Programming
> with
> > >> >> > > VBA" although its not immediately obvious that the code for this
> > >> >> > > feature is in the book..
> > >> >> > >
> > >> >> > > (We are running XL 2000, /XP).
> > >> >> > >
> > >> >> > > Thanks a million
> > >> >> > >
> > >> >> > > Charles
> > >> >>
> > >> >> --
> > >> >>
> > >> >> Dave Peterson
> > >> >
> > >> >
> > >>
> > >>
> > >
> > >
> >
> >
>
>
>

Charles Jordan · 03-15-2005, 02:06 AM

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
> Thanks, I will
>
> Bob

Bob - I think you have misunderstood me. Your right click menu works
fine when you right click a cell, but we want it to work when you
right click an *object*.

Let us assume we want to move the object to the right in increments of
0.75, as with John's Power Utility Pak. If you right click on it, the
bottom most short cut menu option needs to be your Routine1, (or our
"MoveIt"

Any ideas ?

Thanks

Charles

>
>
> "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > Hi Bob
> >
> > > That's the one Harlan was talking of the other day
> > Yes
> >
> > I believe that Dave see the hyphen in the thread.
> > But we don't see it in Outlook express
> >
> > > It is just one of the many annoying 'features' of the new Google.
> > Yes
> >
> > I send a bug report
> > Maybe you can do the same
> > http://groups-beta.google.com/support/bin/request.py
> >
> >
> >
> >
> > --
> > Regards Ron de Bruin
> > http://www.rondebruin.nl
> >
> >
> >
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > Hi Ron,
> > >
> > > Oh that old chestnut. That's the one Harlan was talking of the other day
> > > isn't it. I also get that if I paste a worksheet formula from Google,
> but
> > > they are not usually so obvious :-(
> > >
> > > It is just one of the many annoying 'features' of the new Google.
> > >
> > > Regards
> > >
> > > Bob
> > >
> > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > >> You see this when you paste it in the VBA Bob
> > >> With Application.CommandBars("Cell"-Â*)
> > >>
> > >> I send a bug report again to Google
> > >>
> > >>
> > >> --
> > >> Regards Ron de Bruin
> > >> http://www.rondebruin.nl
> > >>
> > >>
> > >>
> > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > >> > Dave,
> > >> >
> > >> > With respect, what are you talking about? I cannot see trailing
> hyphens
> > > in
> > >> > your email, in my original post, or in Google.
> > >> >
> > >> > --
> > >> >
> > >> > HTH
> > >> >
> > >> > RP
> > >> > (remove nothere from the email address if mailing direct)
> > >> >
> > >> >
> > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > >> >> For some reason, copying and pasting from Google adds extraneous
> > >> > dashes/hypens
> > >> >> to the code.
> > >> >>
> > >> >> This line:
> > >> >> With Application.CommandBars("Cell"Â*)
> > >> >> should not have that trailing minus:
> > >> >> With Application.CommandBars("Cell")
> > >> >> (a couple of spots)
> > >> >>
> > >> >>
> > >> >> Bob Phillips wrote:
> > >> >> >
> > >> >> > Charles,
> > >> >> >
> > >> >> > Here is a simple example you can build upon. I tend to add in the
> > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> > >> >> >
> > >> >> > Public Sub addMenu()
> > >> >> > removeMenu 'just in case
> > >> >> > With Application.CommandBars("Cell"Â*)
> > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > >> >> > .BeginGroup = True
> > >> >> > .Caption = "Routine1"
> > >> >> > .OnAction = "Another"
> > >> >> > End With
> > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > >> >> > .Caption = "Routine2"
> > >> >> > .OnAction = "YetMore"
> > >> >> > End With
> > >> >> > End With
> > >> >> > End Sub
> > >> >> >
> > >> >> > Public Sub removeMenu()
> > >> >> > On Error Resume Next
> > >> >> > With Application.CommandBars("Cell"Â*)
> > >> >> > .Controls("Routine1").Delete
> > >> >> > .Controls("Routine2").Delete
> > >> >> > End With
> > >> >> > On Error GoTo 0
> > >> >> > End Sub
> > >> >> >
> > >> >> > --
> > >> >> >
> > >> >> > HTH
> > >> >> >
> > >> >> > RP
> > >> >> > (remove nothere from the email address if mailing direct)
> > >> >> >
> > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > >> >> > > Hi I am trying to manipulate multiple controls on a worksheet
> plus
> > >> >> > > some drawing objects and in the days of XL95 John Walkenbach had
> a
> > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > > altering
> > >> >> > > both the location of objects and whether they were
> > > Visible/Invisible.
> > >> >> > >
> > >> >> > > One of its great features was that it was accessible by
> selecting
> > > the
> > >> >> > > object and then *right clicking* it. We are now trying to
> reproduce
> > >> >> > > this right click ability but cannot find any code on this NG for
> > > doing
> > >> >> > > it.
> > >> >> > >
> > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you are
> > > there
> > >> >> > > perhaps you could direct us to the page in "Power Programming
> with
> > >> >> > > VBA" although its not immediately obvious that the code for this
> > >> >> > > feature is in the book..
> > >> >> > >
> > >> >> > > (We are running XL 2000, /XP).
> > >> >> > >
> > >> >> > > Thanks a million
> > >> >> > >
> > >> >> > > Charles
> > >> >>
> > >> >> --
> > >> >>
> > >> >> Dave Peterson
> > >> >
> > >> >
> > >>
> > >>
> > >
> > >
> >
> >

Bob Phillips · 03-15-2005, 06:06 AM

"TK" <TK@discussions.microsoft.com> wrote in message
news:A0EAD81D-1AF2-4006-B0E7-1130787AC70E@microsoft.com...
> However; the code works great and it completes a menu system
> that Ron helped me earlier with. I was just ready to post a question
> when I seen this post. I would hope Charles checked his post, it was
> just what he ask for.

Two in a one. Even better :-)

> PS Bob
> > I tend to add in the Workbook_Open event and remove in
Work_BeforeClose.
>
> I favor the activate/deactivate events over the open/beforeclose
> events do to the fact that if a user opens another workbook it restores
> there setup at that time

Do you mean that opening a new workbook will lose that menu? If so, it
shouldn't do, only when the host workbook is closed. IF these things are one
workbook specific, I add it to that workbook, if they are generic, I add it
to Personal.xls (such as a menu that I add for my add-ins, and another for
an easier worksheet hide/unhide).

Bob Phillips · 03-15-2005, 06:06 AM

Hi Charles,

The versatility of the object model :-)

The code remains basically the same, just a different commandbar. In this
case, I think it is the Shapes commandbar, not Cell.
Just amend the code and try it.

--

HTH

RP
(remove nothere from the email address if mailing direct)

"Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
news:f79a4997.0503142146.76355711@posting.google.com...
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
> > Thanks, I will
> >
> > Bob
>
> Bob - I think you have misunderstood me. Your right click menu works
> fine when you right click a cell, but we want it to work when you
> right click an *object*.
>
> Let us assume we want to move the object to the right in increments of
> 0.75, as with John's Power Utility Pak. If you right click on it, the
> bottom most short cut menu option needs to be your Routine1, (or our
> "MoveIt"
>
> Any ideas ?
>
> Thanks
>
> Charles
>
>
>
>
>
>
> >
> >
> > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > > Hi Bob
> > >
> > > > That's the one Harlan was talking of the other day
> > > Yes
> > >
> > > I believe that Dave see the hyphen in the thread.
> > > But we don't see it in Outlook express
> > >
> > > > It is just one of the many annoying 'features' of the new Google.
> > > Yes
> > >
> > > I send a bug report
> > > Maybe you can do the same
> > > http://groups-beta.google.com/support/bin/request.py
> > >
> > >
> > >
> > >
> > > --
> > > Regards Ron de Bruin
> > > http://www.rondebruin.nl
> > >
> > >
> > >
> > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > > Hi Ron,
> > > >
> > > > Oh that old chestnut. That's the one Harlan was talking of the other
day
> > > > isn't it. I also get that if I paste a worksheet formula from
Google,
> > but
> > > > they are not usually so obvious :-(
> > > >
> > > > It is just one of the many annoying 'features' of the new Google.
> > > >
> > > > Regards
> > > >
> > > > Bob
> > > >
> > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > > >> You see this when you paste it in the VBA Bob
> > > >> With Application.CommandBars("Cell"-Â*)
> > > >>
> > > >> I send a bug report again to Google
> > > >>
> > > >>
> > > >> --
> > > >> Regards Ron de Bruin
> > > >> http://www.rondebruin.nl
> > > >>
> > > >>
> > > >>
> > > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > > >> > Dave,
> > > >> >
> > > >> > With respect, what are you talking about? I cannot see trailing
> > hyphens
> > > > in
> > > >> > your email, in my original post, or in Google.
> > > >> >
> > > >> > --
> > > >> >
> > > >> > HTH
> > > >> >
> > > >> > RP
> > > >> > (remove nothere from the email address if mailing direct)
> > > >> >
> > > >> >
> > > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > > >> >> For some reason, copying and pasting from Google adds extraneous
> > > >> > dashes/hypens
> > > >> >> to the code.
> > > >> >>
> > > >> >> This line:
> > > >> >> With Application.CommandBars("Cell"Â*)
> > > >> >> should not have that trailing minus:
> > > >> >> With Application.CommandBars("Cell")
> > > >> >> (a couple of spots)
> > > >> >>
> > > >> >>
> > > >> >> Bob Phillips wrote:
> > > >> >> >
> > > >> >> > Charles,
> > > >> >> >
> > > >> >> > Here is a simple example you can build upon. I tend to add in
the
> > > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> > > >> >> >
> > > >> >> > Public Sub addMenu()
> > > >> >> > removeMenu 'just in case
> > > >> >> > With Application.CommandBars("Cell"Â*)
> > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > >> >> > .BeginGroup = True
> > > >> >> > .Caption = "Routine1"
> > > >> >> > .OnAction = "Another"
> > > >> >> > End With
> > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > >> >> > .Caption = "Routine2"
> > > >> >> > .OnAction = "YetMore"
> > > >> >> > End With
> > > >> >> > End With
> > > >> >> > End Sub
> > > >> >> >
> > > >> >> > Public Sub removeMenu()
> > > >> >> > On Error Resume Next
> > > >> >> > With Application.CommandBars("Cell"Â*)
> > > >> >> > .Controls("Routine1").Delete
> > > >> >> > .Controls("Routine2").Delete
> > > >> >> > End With
> > > >> >> > On Error GoTo 0
> > > >> >> > End Sub
> > > >> >> >
> > > >> >> > --
> > > >> >> >
> > > >> >> > HTH
> > > >> >> >
> > > >> >> > RP
> > > >> >> > (remove nothere from the email address if mailing direct)
> > > >> >> >
> > > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in
message
> > > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > > >> >> > > Hi I am trying to manipulate multiple controls on a
worksheet
> > plus
> > > >> >> > > some drawing objects and in the days of XL95 John Walkenbach
had
> > a
> > > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > > > altering
> > > >> >> > > both the location of objects and whether they were
> > > > Visible/Invisible.
> > > >> >> > >
> > > >> >> > > One of its great features was that it was accessible by
> > selecting
> > > > the
> > > >> >> > > object and then *right clicking* it. We are now trying to
> > reproduce
> > > >> >> > > this right click ability but cannot find any code on this NG
for
> > > > doing
> > > >> >> > > it.
> > > >> >> > >
> > > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you
are
> > > > there
> > > >> >> > > perhaps you could direct us to the page in "Power
Programming
> > with
> > > >> >> > > VBA" although its not immediately obvious that the code for
this
> > > >> >> > > feature is in the book..
> > > >> >> > >
> > > >> >> > > (We are running XL 2000, /XP).
> > > >> >> > >
> > > >> >> > > Thanks a million
> > > >> >> > >
> > > >> >> > > Charles
> > > >> >>
> > > >> >> --
> > > >> >>
> > > >> >> Dave Peterson
> > > >> >
> > > >> >
> > > >>
> > > >>
> > > >
> > > >
> > >
> > >

Charles Jordan · 03-16-2005, 10:06 AM

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:<#jhVRFUKFHA.4028@tk2msftngp13.phx.gbl>...
> Hi Charles,
>
> The versatility of the object model :-)
>
> The code remains basically the same, just a different commandbar. In this
> case, I think it is the Shapes commandbar, not Cell.
> Just amend the code and try it.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)

Bob -thanks very much . Will try it tonight ..............

Regards

Charles

>
>
> "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> news:f79a4997.0503142146.76355711@posting.google.com...
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
> > > Thanks, I will
> > >
> > > Bob
> >
> > Bob - I think you have misunderstood me. Your right click menu works
> > fine when you right click a cell, but we want it to work when you
> > right click an *object*.
> >
> > Let us assume we want to move the object to the right in increments of
> > 0.75, as with John's Power Utility Pak. If you right click on it, the
> > bottom most short cut menu option needs to be your Routine1, (or our
> > "MoveIt"
> >
> > Any ideas ?
> >
> > Thanks
> >
> > Charles
> >
> >
> >
> >
> >
> >
> > >
> > >
> > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > > > Hi Bob
> > > >
> > > > > That's the one Harlan was talking of the other day
> > > > Yes
> > > >
> > > > I believe that Dave see the hyphen in the thread.
> > > > But we don't see it in Outlook express
> > > >
> > > > > It is just one of the many annoying 'features' of the new Google.
> > > > Yes
> > > >
> > > > I send a bug report
> > > > Maybe you can do the same
> > > > http://groups-beta.google.com/support/bin/request.py
> > > >
> > > >
> > > >
> > > >
> > > > --
> > > > Regards Ron de Bruin
> > > > http://www.rondebruin.nl
> > > >
> > > >
> > > >
> > > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > > > Hi Ron,
> > > > >
> > > > > Oh that old chestnut. That's the one Harlan was talking of the other
> day
> > > > > isn't it. I also get that if I paste a worksheet formula from
> Google,
> > > but
> > > > > they are not usually so obvious :-(
> > > > >
> > > > > It is just one of the many annoying 'features' of the new Google.
> > > > >
> > > > > Regards
> > > > >
> > > > > Bob
> > > > >
> > > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > > > >> You see this when you paste it in the VBA Bob
> > > > >> With Application.CommandBars("Cell"-Â*)
> > > > >>
> > > > >> I send a bug report again to Google
> > > > >>
> > > > >>
> > > > >> --
> > > > >> Regards Ron de Bruin
> > > > >> http://www.rondebruin.nl
> > > > >>
> > > > >>
> > > > >>
> > > > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > > > >> > Dave,
> > > > >> >
> > > > >> > With respect, what are you talking about? I cannot see trailing
> > > hyphens
> > > > > in
> > > > >> > your email, in my original post, or in Google.
> > > > >> >
> > > > >> > --
> > > > >> >
> > > > >> > HTH
> > > > >> >
> > > > >> > RP
> > > > >> > (remove nothere from the email address if mailing direct)
> > > > >> >
> > > > >> >
> > > > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > > > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > > > >> >> For some reason, copying and pasting from Google adds extraneous
> > > > >> > dashes/hypens
> > > > >> >> to the code.
> > > > >> >>
> > > > >> >> This line:
> > > > >> >> With Application.CommandBars("Cell"Â*)
> > > > >> >> should not have that trailing minus:
> > > > >> >> With Application.CommandBars("Cell")
> > > > >> >> (a couple of spots)
> > > > >> >>
> > > > >> >>
> > > > >> >> Bob Phillips wrote:
> > > > >> >> >
> > > > >> >> > Charles,
> > > > >> >> >
> > > > >> >> > Here is a simple example you can build upon. I tend to add in
> the
> > > > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> > > > >> >> >
> > > > >> >> > Public Sub addMenu()
> > > > >> >> > removeMenu 'just in case
> > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > >> >> > .BeginGroup = True
> > > > >> >> > .Caption = "Routine1"
> > > > >> >> > .OnAction = "Another"
> > > > >> >> > End With
> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > >> >> > .Caption = "Routine2"
> > > > >> >> > .OnAction = "YetMore"
> > > > >> >> > End With
> > > > >> >> > End With
> > > > >> >> > End Sub
> > > > >> >> >
> > > > >> >> > Public Sub removeMenu()
> > > > >> >> > On Error Resume Next
> > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > >> >> > .Controls("Routine1").Delete
> > > > >> >> > .Controls("Routine2").Delete
> > > > >> >> > End With
> > > > >> >> > On Error GoTo 0
> > > > >> >> > End Sub
> > > > >> >> >
> > > > >> >> > --
> > > > >> >> >
> > > > >> >> > HTH
> > > > >> >> >
> > > > >> >> > RP
> > > > >> >> > (remove nothere from the email address if mailing direct)
> > > > >> >> >
> > > > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in
> message
> > > > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > > > >> >> > > Hi I am trying to manipulate multiple controls on a
> worksheet
> > > plus
> > > > >> >> > > some drawing objects and in the days of XL95 John Walkenbach
> had
> > > a
> > > > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > > > > altering
> > > > >> >> > > both the location of objects and whether they were
> > > > > Visible/Invisible.
> > > > >> >> > >
> > > > >> >> > > One of its great features was that it was accessible by
> > > selecting
> > > > > the
> > > > >> >> > > object and then *right clicking* it. We are now trying to
> > > reproduce
> > > > >> >> > > this right click ability but cannot find any code on this NG
> for
> > > > > doing
> > > > >> >> > > it.
> > > > >> >> > >
> > > > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you
> are
> > > > > there
> > > > >> >> > > perhaps you could direct us to the page in "Power
> Programming
> > > with
> > > > >> >> > > VBA" although its not immediately obvious that the code for
> this
> > > > >> >> > > feature is in the book..
> > > > >> >> > >
> > > > >> >> > > (We are running XL 2000, /XP).
> > > > >> >> > >
> > > > >> >> > > Thanks a million
> > > > >> >> > >
> > > > >> >> > > Charles
> > > > >> >>
> > > > >> >> --
> > > > >> >>
> > > > >> >> Dave Peterson
> > > > >> >
> > > > >> >
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > > >

Bob Phillips · 03-16-2005, 10:06 AM

Let us know how it goes.

--

HTH

RP
(remove nothere from the email address if mailing direct)

"Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
news:f79a4997.0503160530.40dc6769@posting.google.com...
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:<#jhVRFUKFHA.4028@tk2msftngp13.phx.gbl>...
> > Hi Charles,
> >
> > The versatility of the object model :-)
> >
> > The code remains basically the same, just a different commandbar. In
this
> > case, I think it is the Shapes commandbar, not Cell.
> > Just amend the code and try it.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
>
> Bob -thanks very much . Will try it tonight ..............
>
> Regards
>
>
> Charles
>
>
>
>
>
>
>
> >
> >
> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> > news:f79a4997.0503142146.76355711@posting.google.com...
> > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
> > > > Thanks, I will
> > > >
> > > > Bob
> > >
> > > Bob - I think you have misunderstood me. Your right click menu works
> > > fine when you right click a cell, but we want it to work when you
> > > right click an *object*.
> > >
> > > Let us assume we want to move the object to the right in increments of
> > > 0.75, as with John's Power Utility Pak. If you right click on it, the
> > > bottom most short cut menu option needs to be your Routine1, (or our
> > > "MoveIt"
> > >
> > > Any ideas ?
> > >
> > > Thanks
> > >
> > > Charles
> > >
> > >
> > >
> > >
> > >
> > >
> > > >
> > > >
> > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > > news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > > > > Hi Bob
> > > > >
> > > > > > That's the one Harlan was talking of the other day
> > > > > Yes
> > > > >
> > > > > I believe that Dave see the hyphen in the thread.
> > > > > But we don't see it in Outlook express
> > > > >
> > > > > > It is just one of the many annoying 'features' of the new
Google.
> > > > > Yes
> > > > >
> > > > > I send a bug report
> > > > > Maybe you can do the same
> > > > > http://groups-beta.google.com/support/bin/request.py
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > --
> > > > > Regards Ron de Bruin
> > > > > http://www.rondebruin.nl
> > > > >
> > > > >
> > > > >
> > > > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in
message
> > > > news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > > > > Hi Ron,
> > > > > >
> > > > > > Oh that old chestnut. That's the one Harlan was talking of the
other
> > day
> > > > > > isn't it. I also get that if I paste a worksheet formula from
> > Google,
> > > > but
> > > > > > they are not usually so obvious :-(
> > > > > >
> > > > > > It is just one of the many annoying 'features' of the new
Google.
> > > > > >
> > > > > > Regards
> > > > > >
> > > > > > Bob
> > > > > >
> > > > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > > > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > > > > >> You see this when you paste it in the VBA Bob
> > > > > >> With Application.CommandBars("Cell"-Â*)
> > > > > >>
> > > > > >> I send a bug report again to Google
> > > > > >>
> > > > > >>
> > > > > >> --
> > > > > >> Regards Ron de Bruin
> > > > > >> http://www.rondebruin.nl
> > > > > >>
> > > > > >>
> > > > > >>
> > > > > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in
message
> > > > > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > > > > >> > Dave,
> > > > > >> >
> > > > > >> > With respect, what are you talking about? I cannot see
trailing
> > > > hyphens
> > > > > > in
> > > > > >> > your email, in my original post, or in Google.
> > > > > >> >
> > > > > >> > --
> > > > > >> >
> > > > > >> > HTH
> > > > > >> >
> > > > > >> > RP
> > > > > >> > (remove nothere from the email address if mailing direct)
> > > > > >> >
> > > > > >> >
> > > > > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > > > > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > > > > >> >> For some reason, copying and pasting from Google adds
extraneous
> > > > > >> > dashes/hypens
> > > > > >> >> to the code.
> > > > > >> >>
> > > > > >> >> This line:
> > > > > >> >> With Application.CommandBars("Cell"Â*)
> > > > > >> >> should not have that trailing minus:
> > > > > >> >> With Application.CommandBars("Cell")
> > > > > >> >> (a couple of spots)
> > > > > >> >>
> > > > > >> >>
> > > > > >> >> Bob Phillips wrote:
> > > > > >> >> >
> > > > > >> >> > Charles,
> > > > > >> >> >
> > > > > >> >> > Here is a simple example you can build upon. I tend to add
in
> > the
> > > > > >> >> > Workbook_Open event and remove in the
Workbook_BeforeClose.
> > > > > >> >> >
> > > > > >> >> > Public Sub addMenu()
> > > > > >> >> > removeMenu 'just in case
> > > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > > >> >> > .BeginGroup = True
> > > > > >> >> > .Caption = "Routine1"
> > > > > >> >> > .OnAction = "Another"
> > > > > >> >> > End With
> > > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > > >> >> > .Caption = "Routine2"
> > > > > >> >> > .OnAction = "YetMore"
> > > > > >> >> > End With
> > > > > >> >> > End With
> > > > > >> >> > End Sub
> > > > > >> >> >
> > > > > >> >> > Public Sub removeMenu()
> > > > > >> >> > On Error Resume Next
> > > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > > >> >> > .Controls("Routine1").Delete
> > > > > >> >> > .Controls("Routine2").Delete
> > > > > >> >> > End With
> > > > > >> >> > On Error GoTo 0
> > > > > >> >> > End Sub
> > > > > >> >> >
> > > > > >> >> > --
> > > > > >> >> >
> > > > > >> >> > HTH
> > > > > >> >> >
> > > > > >> >> > RP
> > > > > >> >> > (remove nothere from the email address if mailing direct)
> > > > > >> >> >
> > > > > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in
> > message
> > > > > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > > > > >> >> > > Hi I am trying to manipulate multiple controls on a
> > worksheet
> > > > plus
> > > > > >> >> > > some drawing objects and in the days of XL95 John
Walkenbach
> > had
> > > > a
> > > > > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool
for
> > > > > > altering
> > > > > >> >> > > both the location of objects and whether they were
> > > > > > Visible/Invisible.
> > > > > >> >> > >
> > > > > >> >> > > One of its great features was that it was accessible by
> > > > selecting
> > > > > > the
> > > > > >> >> > > object and then *right clicking* it. We are now trying
to
> > > > reproduce
> > > > > >> >> > > this right click ability but cannot find any code on
this NG
> > for
> > > > > > doing
> > > > > >> >> > > it.
> > > > > >> >> > >
> > > > > >> >> > > Can any one, (including John) help?. Mr Walkenbach if
you
> > are
> > > > > > there
> > > > > >> >> > > perhaps you could direct us to the page in "Power
> > Programming
> > > > with
> > > > > >> >> > > VBA" although its not immediately obvious that the code
for
> > this
> > > > > >> >> > > feature is in the book..
> > > > > >> >> > >
> > > > > >> >> > > (We are running XL 2000, /XP).
> > > > > >> >> > >
> > > > > >> >> > > Thanks a million
> > > > > >> >> > >
> > > > > >> >> > > Charles
> > > > > >> >>
> > > > > >> >> --
> > > > > >> >>
> > > > > >> >> Dave Peterson
> > > > > >> >
> > > > > >> >
> > > > > >>
> > > > > >>
> > > > > >
> > > > > >
> > > > >
> > > > >

Charles Jordan · 03-16-2005, 11:06 AM

"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:<#jhVRFUKFHA.4028@tk2msftngp13.phx.gbl>...
> Hi Charles,
>
> The versatility of the object model :-)
>
> The code remains basically the same, just a different commandbar. In this
> case, I think it is the Shapes commandbar, not Cell.
> Just amend the code and try it.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
> news:f79a4997.0503142146.76355711@posting.google.com...
> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
> > > Thanks, I will
> > >
> > > Bob
> >
> > Bob - I think you have misunderstood me. Your right click menu works
> > fine when you right click a cell, but we want it to work when you
> > right click an *object*.
> >
> > Let us assume we want to move the object to the right in increments of
> > 0.75, as with John's Power Utility Pak. If you right click on it, the
> > bottom most short cut menu option needs to be your Routine1, (or our
> > "MoveIt"
> >
> > Any ideas ?
> >
> > Thanks
> >
> > Charles
> >
> >
> >
> >
> >
> >
> > >
> > >
> > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
> > > > Hi Bob
> > > >
> > > > > That's the one Harlan was talking of the other day
> > > > Yes
> > > >
> > > > I believe that Dave see the hyphen in the thread.
> > > > But we don't see it in Outlook express
> > > >
> > > > > It is just one of the many annoying 'features' of the new Google.
> > > > Yes
> > > >
> > > > I send a bug report
> > > > Maybe you can do the same
> > > > http://groups-beta.google.com/support/bin/request.py
> > > >
> > > >
> > > >
> > > >
> > > > --
> > > > Regards Ron de Bruin
> > > > http://www.rondebruin.nl
> > > >
> > > >
> > > >
> > > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
> > > > > Hi Ron,
> > > > >
> > > > > Oh that old chestnut. That's the one Harlan was talking of the other
> day
> > > > > isn't it. I also get that if I paste a worksheet formula from
> Google,
> > > but
> > > > > they are not usually so obvious :-(
> > > > >
> > > > > It is just one of the many annoying 'features' of the new Google.
> > > > >
> > > > > Regards
> > > > >
> > > > > Bob
> > > > >
> > > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
> > > > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
> > > > >> You see this when you paste it in the VBA Bob
> > > > >> With Application.CommandBars("Cell"-Â*)
> > > > >>
> > > > >> I send a bug report again to Google
> > > > >>
> > > > >>
> > > > >> --
> > > > >> Regards Ron de Bruin
> > > > >> http://www.rondebruin.nl
> > > > >>
> > > > >>
> > > > >>
> > > > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
> > > > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
> > > > >> > Dave,
> > > > >> >
> > > > >> > With respect, what are you talking about? I cannot see trailing
> > > hyphens
> > > > > in
> > > > >> > your email, in my original post, or in Google.
> > > > >> >
> > > > >> > --
> > > > >> >
> > > > >> > HTH
> > > > >> >
> > > > >> > RP
> > > > >> > (remove nothere from the email address if mailing direct)
> > > > >> >
> > > > >> >
> > > > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
> > > > >> > news:4235E352.44915775@netscapeXSPAM.com...
> > > > >> >> For some reason, copying and pasting from Google adds extraneous
> > > > >> > dashes/hypens
> > > > >> >> to the code.
> > > > >> >>
> > > > >> >> This line:
> > > > >> >> With Application.CommandBars("Cell"Â*)
> > > > >> >> should not have that trailing minus:
> > > > >> >> With Application.CommandBars("Cell")
> > > > >> >> (a couple of spots)
> > > > >> >>
> > > > >> >>
> > > > >> >> Bob Phillips wrote:
> > > > >> >> >
> > > > >> >> > Charles,
> > > > >> >> >
> > > > >> >> > Here is a simple example you can build upon. I tend to add in
> the
> > > > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
> > > > >> >> >
> > > > >> >> > Public Sub addMenu()
> > > > >> >> > removeMenu 'just in case
> > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > >> >> > .BeginGroup = True
> > > > >> >> > .Caption = "Routine1"
> > > > >> >> > .OnAction = "Another"
> > > > >> >> > End With
> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
> > > > >> >> > .Caption = "Routine2"
> > > > >> >> > .OnAction = "YetMore"
> > > > >> >> > End With
> > > > >> >> > End With
> > > > >> >> > End Sub
> > > > >> >> >
> > > > >> >> > Public Sub removeMenu()
> > > > >> >> > On Error Resume Next
> > > > >> >> > With Application.CommandBars("Cell"Â*)
> > > > >> >> > .Controls("Routine1").Delete
> > > > >> >> > .Controls("Routine2").Delete
> > > > >> >> > End With
> > > > >> >> > On Error GoTo 0
> > > > >> >> > End Sub
> > > > >> >> >
> > > > >> >> > --
> > > > >> >> >
> > > > >> >> > HTH
> > > > >> >> >
> > > > >> >> > RP
> > > > >> >> > (remove nothere from the email address if mailing direct)
> > > > >> >> >
> > > > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in
> message
> > > > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
> > > > >> >> > > Hi I am trying to manipulate multiple controls on a
> worksheet
> > > plus
> > > > >> >> > > some drawing objects and in the days of XL95 John Walkenbach
> had
> > > a
> > > > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
> > > > > altering
> > > > >> >> > > both the location of objects and whether they were
> > > > > Visible/Invisible.
> > > > >> >> > >
> > > > >> >> > > One of its great features was that it was accessible by
> > > selecting
> > > > > the
> > > > >> >> > > object and then *right clicking* it. We are now trying to
> > > reproduce
> > > > >> >> > > this right click ability but cannot find any code on this NG
> for
> > > > > doing
> > > > >> >> > > it.
> > > > >> >> > >
> > > > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you
> are
> > > > > there
> > > > >> >> > > perhaps you could direct us to the page in "Power
> Programming
> > > with
> > > > >> >> > > VBA" although its not immediately obvious that the code for
> this
> > > > >> >> > > feature is in the book..
> > > > >> >> > >
> > > > >> >> > > (We are running XL 2000, /XP).
> > > > >> >> > >
> > > > >> >> > > Thanks a million
> > > > >> >> > >
> > > > >> >> > > Charles
> > > > >> >>
> > > > >> >> --
> > > > >> >>
> > > > >> >> Dave Peterson
> > > > >> >
> > > > >> >
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > > >

Bob - as a folow-on to this, your right click code works fine! - but I
really think somebody should persuade John Walkenbach to bring back
"Object Properties" to his PUP, unless I'm missing something. John -
where are you ? Charles

Ron de Bruin · 03-16-2005, 11:06 AM

If you want John then go to
http://www.j-walk.com/ss/pup/pup6/techsupport.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Charles Jordan" <charles.jordan@btopenworld.com> wrote in message news:f79a4997.0503160623.176f0fab@posting.google.com...
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message news:<#jhVRFUKFHA.4028@tk2msftngp13.phx.gbl>...
>> Hi Charles,
>>
>> The versatility of the object model :-)
>>
>> The code remains basically the same, just a different commandbar. In this
>> case, I think it is the Shapes commandbar, not Cell.
>> Just amend the code and try it.
>>
>> --
>>
>> HTH
>>
>> RP
>> (remove nothere from the email address if mailing direct)
>>
>>
>> "Charles Jordan" <charles.jordan@btopenworld.com> wrote in message
>> news:f79a4997.0503142146.76355711@posting.google.com...
>> > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
>> news:<#dxCEkNKFHA.3332@TK2MSFTNGP15.phx.gbl>...
>> > > Thanks, I will
>> > >
>> > > Bob
>> >
>> > Bob - I think you have misunderstood me. Your right click menu works
>> > fine when you right click a cell, but we want it to work when you
>> > right click an *object*.
>> >
>> > Let us assume we want to move the object to the right in increments of
>> > 0.75, as with John's Power Utility Pak. If you right click on it, the
>> > bottom most short cut menu option needs to be your Routine1, (or our
>> > "MoveIt"
>> >
>> > Any ideas ?
>> >
>> > Thanks
>> >
>> > Charles
>> >
>> >
>> >
>> >
>> >
>> >
>> > >
>> > >
>> > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
>> > > news:uScgZfNKFHA.732@TK2MSFTNGP12.phx.gbl...
>> > > > Hi Bob
>> > > >
>> > > > > That's the one Harlan was talking of the other day
>> > > > Yes
>> > > >
>> > > > I believe that Dave see the hyphen in the thread.
>> > > > But we don't see it in Outlook express
>> > > >
>> > > > > It is just one of the many annoying 'features' of the new Google.
>> > > > Yes
>> > > >
>> > > > I send a bug report
>> > > > Maybe you can do the same
>> > > > http://groups-beta.google.com/support/bin/request.py
>> > > >
>> > > >
>> > > >
>> > > >
>> > > > --
>> > > > Regards Ron de Bruin
>> > > > http://www.rondebruin.nl
>> > > >
>> > > >
>> > > >
>> > > > "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
>> > > news:Oh3LLcNKFHA.484@TK2MSFTNGP15.phx.gbl...
>> > > > > Hi Ron,
>> > > > >
>> > > > > Oh that old chestnut. That's the one Harlan was talking of the other
>> day
>> > > > > isn't it. I also get that if I paste a worksheet formula from
>> Google,
>> > > but
>> > > > > they are not usually so obvious :-(
>> > > > >
>> > > > > It is just one of the many annoying 'features' of the new Google.
>> > > > >
>> > > > > Regards
>> > > > >
>> > > > > Bob
>> > > > >
>> > > > > "Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
>> > > > > news:OIt5FVNKFHA.4092@tk2msftngp13.phx.gbl...
>> > > > >> You see this when you paste it in the VBA Bob
>> > > > >> With Application.CommandBars("Cell"-Â*)
>> > > > >>
>> > > > >> I send a bug report again to Google
>> > > > >>
>> > > > >>
>> > > > >> --
>> > > > >> Regards Ron de Bruin
>> > > > >> http://www.rondebruin.nl
>> > > > >>
>> > > > >>
>> > > > >>
>> > > > >> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
>> > > > > news:uzl6KLNKFHA.3484@TK2MSFTNGP12.phx.gbl...
>> > > > >> > Dave,
>> > > > >> >
>> > > > >> > With respect, what are you talking about? I cannot see trailing
>> > > hyphens
>> > > > > in
>> > > > >> > your email, in my original post, or in Google.
>> > > > >> >
>> > > > >> > --
>> > > > >> >
>> > > > >> > HTH
>> > > > >> >
>> > > > >> > RP
>> > > > >> > (remove nothere from the email address if mailing direct)
>> > > > >> >
>> > > > >> >
>> > > > >> > "Dave Peterson" <ec35720@netscapeXSPAM.com> wrote in message
>> > > > >> > news:4235E352.44915775@netscapeXSPAM.com...
>> > > > >> >> For some reason, copying and pasting from Google adds extraneous
>> > > > >> > dashes/hypens
>> > > > >> >> to the code.
>> > > > >> >>
>> > > > >> >> This line:
>> > > > >> >> With Application.CommandBars("Cell"Â*)
>> > > > >> >> should not have that trailing minus:
>> > > > >> >> With Application.CommandBars("Cell")
>> > > > >> >> (a couple of spots)
>> > > > >> >>
>> > > > >> >>
>> > > > >> >> Bob Phillips wrote:
>> > > > >> >> >
>> > > > >> >> > Charles,
>> > > > >> >> >
>> > > > >> >> > Here is a simple example you can build upon. I tend to add in
>> the
>> > > > >> >> > Workbook_Open event and remove in the Workbook_BeforeClose.
>> > > > >> >> >
>> > > > >> >> > Public Sub addMenu()
>> > > > >> >> > removeMenu 'just in case
>> > > > >> >> > With Application.CommandBars("Cell"Â*)
>> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
>> > > > >> >> > .BeginGroup = True
>> > > > >> >> > .Caption = "Routine1"
>> > > > >> >> > .OnAction = "Another"
>> > > > >> >> > End With
>> > > > >> >> > With .Controls.Add(Type:=msoControlÂ*Button)
>> > > > >> >> > .Caption = "Routine2"
>> > > > >> >> > .OnAction = "YetMore"
>> > > > >> >> > End With
>> > > > >> >> > End With
>> > > > >> >> > End Sub
>> > > > >> >> >
>> > > > >> >> > Public Sub removeMenu()
>> > > > >> >> > On Error Resume Next
>> > > > >> >> > With Application.CommandBars("Cell"Â*)
>> > > > >> >> > .Controls("Routine1").Delete
>> > > > >> >> > .Controls("Routine2").Delete
>> > > > >> >> > End With
>> > > > >> >> > On Error GoTo 0
>> > > > >> >> > End Sub
>> > > > >> >> >
>> > > > >> >> > --
>> > > > >> >> >
>> > > > >> >> > HTH
>> > > > >> >> >
>> > > > >> >> > RP
>> > > > >> >> > (remove nothere from the email address if mailing direct)
>> > > > >> >> >
>> > > > >> >> > "Charles Jordan" <charles.jordan@btopenworld.com> wrote in
>> message
>> > > > >> >> > news:f79a4997.0503140805.33082060@posting.google.com...
>> > > > >> >> > > Hi I am trying to manipulate multiple controls on a
>> worksheet
>> > > plus
>> > > > >> >> > > some drawing objects and in the days of XL95 John Walkenbach
>> had
>> > > a
>> > > > >> >> > > marvellous "Power Utility Pak" "Object Properties" tool for
>> > > > > altering
>> > > > >> >> > > both the location of objects and whether they were
>> > > > > Visible/Invisible.
>> > > > >> >> > >
>> > > > >> >> > > One of its great features was that it was accessible by
>> > > selecting
>> > > > > the
>> > > > >> >> > > object and then *right clicking* it. We are now trying to
>> > > reproduce
>> > > > >> >> > > this right click ability but cannot find any code on this NG
>> for
>> > > > > doing
>> > > > >> >> > > it.
>> > > > >> >> > >
>> > > > >> >> > > Can any one, (including John) help?. Mr Walkenbach if you
>> are
>> > > > > there
>> > > > >> >> > > perhaps you could direct us to the page in "Power
>> Programming
>> > > with
>> > > > >> >> > > VBA" although its not immediately obvious that the code for
>> this
>> > > > >> >> > > feature is in the book..
>> > > > >> >> > >
>> > > > >> >> > > (We are running XL 2000, /XP).
>> > > > >> >> > >
>> > > > >> >> > > Thanks a million
>> > > > >> >> > >
>> > > > >> >> > > Charles
>> > > > >> >>
>> > > > >> >> --
>> > > > >> >>
>> > > > >> >> Dave Peterson
>> > > > >> >
>> > > > >> >
>> > > > >>
>> > > > >>
>> > > > >
>> > > > >
>> > > >
>> > > >
>
> Bob - as a folow-on to this, your right click code works fine! - but I
> really think somebody should persuade John Walkenbach to bring back
> "Object Properties" to his PUP, unless I'm missing something. John -
> where are you ? Charles

Code to create a right click short cut menu

LinkBack

Thread Tools

Rate This Thread

Display

Re: Code to create a right click short cut menu