I added two more buttons, it now only works if I click the buttons. I
want to be able to use the accelerator keys. Does someone have some
macro code events for a multiple button userform they could send me?
Here's what I have at the moment (and I have Unload now, but before I
was using the .Hide property, but thought that maybe the keypresses
weren't working because I was only hiding the dialog rather than
unloading).

Thx.

P.S. I posted this a few days ago, but never got a reply, and don't see
the original message on the board anywhere, so I re-posted it.

-Rich Belthoff

Private Sub TrackAllOn_Click()
With activedocument
.TrackRevisions = True
.PrintRevisions = True
.ShowRevisions = True
End With
Unload CtrlOO_Dlg
End Sub

Private Sub TrackAllOn_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

With activedocument
.TrackRevisions = True
.PrintRevisions = True
.ShowRevisions = True
End With
Unload CtrlOO_Dlg
End Sub

Private Sub TrackDisplayOff_Click()
With activedocument
.TrackRevisions = True
.PrintRevisions = False
.ShowRevisions = False
End With
Unload CtrlOO_Dlg
End Sub

Private Sub TrackDisplayOff_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
With activedocument
.TrackRevisions = True
.PrintRevisions = False
.ShowRevisions = False
End With
Unload CtrlOO_Dlg
End Sub

Private Sub TrackOptionsAllOff_Click()
With activedocument
.TrackRevisions = False
.PrintRevisions = False
.ShowRevisions = False
End With
Unload CtrlOO_Dlg
End Sub

Private Sub TrackOptionsAllOff_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
With activedocument
.TrackRevisions = False
.PrintRevisions = False
.ShowRevisions = False
End With
Unload CtrlOO_Dlg
End Sub

You should be able to assign an accelerator keys to most controls on a form
but they have to be unique.

Mark Baird

Look for Help under "Accelerator", which seems quite clear, or ask again and
I will post an example

Cliff Forrest

--

.

Thanks for you help.

-Rich.

Hi Richard,

There really isn't any way I know of to assign "shortcut" keys to a
UserForm, so that pressing a particular key combination will run a macro
(unless the focus is in a control that accepts and works with Keypress -
but you can't to that for an entire form).

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail
:-)

Private Sub TrackAllOn_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii = 97 Then       'ASCII 97 = "a"
        With activedocument
            .TrackRevisions = True
            .PrintRevisions = True
            .ShowRevisions = True
        End With
    End If
    If KeyAscii = 115 Then      'ASCII 115 = "s"
        With activedocument
            .TrackRevisions = True
            .PrintRevisions = False
            .ShowRevisions = False
        End With
    End If
    If KeyAscii = 102 Then      'ASCII 102 = "f"
        With activedocument
            .TrackRevisions = False
            .PrintRevisions = False
            .ShowRevisions = False
        End With
    End If
    Unload CtrlOO_Dlg
End Sub

Private Sub TrackAllOn_Click()
    With activedocument
        .TrackRevisions = True
        .PrintRevisions = True
        .ShowRevisions = True
    End With
    Unload CtrlOO_Dlg
End Sub

Private Sub TrackDisplayOff_Click()
    With activedocument
        .TrackRevisions = True
        .PrintRevisions = False
        .ShowRevisions = False
    End With
    Unload CtrlOO_Dlg
End Sub

Private Sub TrackOptionsAllOff_Click()
    With activedocument
        .TrackRevisions = False
        .PrintRevisions = False
        .ShowRevisions = False
    End With
    Unload CtrlOO_Dlg
End Sub

Note the first grouping of code. That actually executes depending upon
the key pressed with the UserForm displayed. Previously, I had three Sub
"KeyPress" groupings before, but only the first ran (i.e., the three
sets of options each had its own Sub "KeyPress", but only the first
ran). I then combined them, figured out the ASCII code for the key being
pressed, and created the IF statements. This works, but I keep thinking
that I'm going about this the wrong way. I thought accelerator keys
triggered the command button. I didn't realize they were only designed
to change focus. Well, anyway, I guess if my way works, I should stick
with it. However, if you have any more elegant ideas, please let me
know.

Thanks.

-Rich.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://www.mvps.org/word
http://go.compuserve.com/MSOfficeForum

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail :-)