Mouse Shortcuts

[Richard Lister]

Can anyone point me in the direction of a list of ALL the shortcuts
you can do using a mouse in Excel 2000?
tia,
Richard

[David McRitchie]

Hi Richard,
I thought those were secret tricks that a new person shows up with and
impresses everybody with.

Anyway if you go the F1 (HELP) and then under Index type in
mouse
you will get a list of 16 help pages to look at. If you do this from
the wizard you see the same 16 items. There is also a help item for
mousewheel..

Don't think you would want it reduced to single line summaries as
you get if you look at keyboard shortcuts in HELP, which
I have on a web page to make things easier to use web browser's FIND.
http://www.geocities.com/davemcritchie/excel/shortx2k.htm

HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Macros: http://www.geocities.com/davemcritchie/excel/excel.htm
Search Page: http://www.geocities.com/davemcritchie/excel/search.htm

"Richard Lister" <richard...@calderdale.gov.uk> wrote ...

[Jim Rech]

Given that most popup commandbars appear via a mouse right click you could
list all of them (popups) with this macro:

Sub ListPopups()
Dim CB As CommandBar
Dim Counter As Integer
For Each CB In CommandBars
If CB.Type = msoBarTypePopup Then
Counter = Counter + 1
Cells(Counter, 1).Value = CB.Name
End If
Next
End Sub

And then select any one that looked interesting and run this macro to see
what it looks like:

Sub RunPopup()
CommandBars(ActiveCell.Value).ShowPopup
End Sub

Of course you'd have to figure out in what context a given commandbar
applies to see it in normal use.

--
Jim Rech
Excel MVP

[David McRitchie]

Hi Jim, That was interesting, not what I would have thought
of mouse shortcuts, but interesting.

Slight changes/additions to see things faster, create a
SelectionChange event and added error descriptives
since "Chart" produced an error.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Use Alt or Esc to clear popup
RunPopup
End Sub

Sub RunPopup()
If IsEmpty(ActiveCell) then exit sub
On Error Resume Next
Err.Number = 0
CommandBars(ActiveCell.Value).ShowPopup
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description _
& Chr(10) & "Helpcontext: " & Err.HelpContext _
& Chr(10) & "Helpfile: " & Err.HelpFile _
& Chr(10) & "Source: " & Err.Source
End If
End Sub

"Jim Rech" <jar...@kpmg.com> wrote in message news:#FbWaQP9AHA.408@tkmsftngp05...

[Richard Lister]

David,
You are right, of course, that these little tricks are what makes you
impressive at work. My concern is just how many there are.
For instance, last week, by accident, I discovered if you select a
cell then double click on the top line of the cell you go home - too
the top, and double click on the bottom of the cell you go to the
bottom of the worksheet (last cell).
How useful is that? I want to be pointing my users in the direction of
a doc that lists such things - obviously only certain types of staff
are interested in speeding up their working day - Horses and water
comes to mind!
Thanks for the "help" suggestions but it's not what I really want.
cheers,
R