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" wrote in message om...
"Bob Phillips" wrote in message ...
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" wrote in message
om...
"Bob Phillips" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in
message
om...
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