Results 1 to 8 of 8

Thread: Animate text

  1. #1
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Random question, I know excel is not designed for this, but how can I animate text in excel, flashing different colours?

    I came accross the attached earlier, but it bombs at:

    With ActiveWorkbook.Styles("Flash")

    Edited to add attachment forgotten earlier:

    [attachment=84433:Flashing_Text.xls]
    Attached Files Attached Files

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts
    Making text or objects flash is not a good idea.
    It becomes irritating quickly.
    It could be very dangerous to users prone to epileptic fits.

  3. #3
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Hans, I appreciate your input, and take on board the epilepsy concern. I would still like to see this working for personal use though.

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts
    Select cell G6 in the workbook that you attached.
    Select Format | Style...
    Enter Flash in the style name box.
    Click Add, then click OK.
    Save, close and reopen the workbook.

  5. #5
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts
    You need to create a style named Flash

    Select the cell that you want to flash on and off.
    Choose Style from the Format menu.
    In the dialog box
    In the Style Name box, enter the new style name (Flash)
    [You don't have to modify it, the code sets the color change)
    Click on OK.

    Steve

  6. #6
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Thanks both. much appreciated, I agree that it becomes irritating VERY quickly!

    I have added the following:

    Code:
    Private Sub Workbook_Open()
    
    Dim Msg As String
    
    	Msg = vbCrLf & "WARNING"
    	Msg = Msg & vbCrLf & vbCrLf & "This file contains flashing images and could be very dangerous _
    						  to users prone to epileptic fits."
    	Msg = Msg & vbCrLf & vbCrLf & "Are you sure you wish to continue?"
    	Msg = Msg & vbCrLf & vbCrLf
    	
    	If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
    		Exit Sub
    	Else
    		Call StartFlashing
    	End If
    	
    End Sub
    Application.OnTime EarliestTime:=Now() + TimeSerial(0, 0, 1), Procedure:="FlashText", Schedule:=True

    The one second flash is a little slow, I tried 0.50 and the flash sends the file into 'not responding'. Any idea's?

  7. #7
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts
    Simply do NOT include flashing in a workbook intended for use by others. Period.

  8. #8

Posting Permissions

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