Context sensitive help problem with option button

[YACHTIE]

I am still desperate for a solution to this, the following code does not seem to do it.

Private Sub OptionButton1_Change()
    If OptionButton1.Value = True Then
        Application.StatusBar = "Option 1 is selected"
    End If
End Sub

Private Sub OptionButton2_Change()
    If OptionButton2.Value = True Then
        Application.StatusBar = "Option 2 is selected"
    End If
End Sub

Am I missing anything obvious??

I am trying to have the status bar show some instructions to the user of the form when mouse clicks/hovers over the active x option button.
Thanks in advance

 

[cLFlaVA]

a) where did you paste this code?
b) what are the names of your option buttons?

*cLFlaVA
----------------------------
A pirate walks into a bar with a huge ship's steering wheel down his pants.
The bartender asks, "Are you aware that you have a steering wheel down your pants?"
The pirate replies, "Arrrrr! It's driving me nuts!

 

[fumei]

Am I missing anything obvious??

I am trying to have the status bar show some instructions to the user of the form when mouse clicks/hovers over the active x option button.

The event you have firing is OptionButton1_Change (and OptionButton2). If the mouse is hovering over the optionbutton, what is changing regarding the optionbutton? Nothing.

There is no mouseover method for activex controls. See "ActiveX controls" in Help.

Gerry

 

[YACHTIE]

I placed the code in "This document" and renamed the "OptionButton1" and 2 to my button IDs

 

[fumei]

And what happened?

Gerry

 

[YACHTIE]

Nothing as far as I could tell.
As i clicked back and forth on the option buttons, nothing on the status bar. Same as before adding the code.
No reaction whatsoever

 

[YACHTIE]

OK, discovered that when the form is protected (which it would be normally) the status does NOT show but when I UNPROTECT the form it works, Seems odd but that means I have to embed the Protect/Unprotect routine in there as well, (ActiveDocument.Unprotect)
That's a surprise to me....

 

[cLFlaVA]

You could also try putting:

[tt]Application.DisplayStatusBar = True[/tt]

In your Workbook_Open() event.

*cLFlaVA
----------------------------
A pirate walks into a bar with a huge ship's steering wheel down his pants.
The bartender asks, "Are you aware that you have a steering wheel down your pants?"
The pirate replies, "Arrrrr! It's driving me nuts!

 

[YACHTIE]

Scrap that Unprotect/Protect ActiveDocument to enable the status bar visible, 1) it prompts for Password and if I don't use a password it the status bar shows nothing probably because it moves too fast to be seen needs a pause or something and that complicates things where the user must be prompted or something like that.