Results 1 to 4 of 4
  1. #1
    2 Star Lounger
    Join Date
    Feb 2002
    Location
    Harrisburg, Pennsylvania, USA
    Posts
    168
    Thanks
    1
    Thanked 0 Times in 0 Posts

    WORDS FLASH ON AND OFF (OFFICE 2000)

    To all in the know,

    I am trying to create a message warning so to speak.
    What I would like to do is have the words "incorrect answer --- try again" FLASH on and off. These words will be in a merged cell group and the verbiage is displayed only if the user chooses the WRONG answer !! is this possible ???

    Thanks in advance for the help

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: WORDS FLASH ON AND OFF (OFFICE 2000)

    In general, it is not a good idea to create flashing text.
    It might be dangerous to users who are susceptible to epileptic fits.
    It becomes irritating very soon.
    Instead, you could use conditional formatting (or VBA code) to make the text red, or to give the cell(s) a background color that stands out from the surrounding cells.

  3. #3
    2 Star Lounger
    Join Date
    Feb 2002
    Location
    Harrisburg, Pennsylvania, USA
    Posts
    168
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: WORDS FLASH ON AND OFF (OFFICE 2000)

    Hans,

    Thanks --- that is what I have now ! I appreciate the info.

  4. #4
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: WORDS FLASH ON AND OFF (OFFICE 2000)

    Bearing in mind what Han's has already mentioned, I found the following code some time ago, I have never used it so I do not know what it is like

    To create the special style, follow these steps:

    Select the cell that you want to flash on and off.
    Choose Style from the Format menu. Excel displays the Style dialog box.
    In the Style Name box, enter a new style name, such as Flashing.
    Using the controls in the dialog box, modify any attributes for the style, as you desire.
    Click on OK.
    You can now apply the style to any other cells you desire in your workbook. Now create the macros (there are two of them), as follows:

    Dim NextTime As Date

    Sub StartFlash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveWorkbook.Styles("Flashing").Font
    If .ColorIndex = xlAutomatic Then .ColorIndex = 3
    .ColorIndex = 5 - .ColorIndex
    End With
    Application.OnTime NextTime, "StartFlash"
    End Sub

    Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
    ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
    End Sub
    To start the items flashing, simply run StartFlash. The cells formatted with the Flashing style will alternate between red and white text approximately once a second. When you want to turn the flashing off, simply run the StopFlash macro.

    There is one important thing to note about this macro: the variable NextTime is declared outside of the actual procedure in which it is used. This is done so that NextTime maintains its value from one invocation of StartFlash to the next.

    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •