Ask a new question

Special Effects for Text

I am needing the special effects for text found in Word 2003 but not in 2010 called "las vegas style"     Is there a way I can get this for 2010 version that I have and why wouldn't they have it in the 2010?   Please help.  Thank you
Answer
Answer
"Las Vegas Lights" is a really annoying text effect that's like "marching ants" except that it also changes color and blinks. I have no trouble understanding why it was removed from Word 2007 and 2010. <evil grin>

If you really must have it, select the text you want to apply it to. Then press Alt+F11 to open the macro editor, press Ctrl+G to open the Immediate window, paste this line into the Immediate window:

Selection.Font.Animation = wdAnimationLasVegasLights

and press Enter.

When you get sick of looking at it, select the text again and enter this line in the Immediate window:

Selection.Font.Animation = wdAnimationNone
_____________________________
https://jay-freedman.info

8 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

Answer
Answer

There are only seven of them.  If you were so inclined, you can easily create a simple userform for selecting and applying one of them:

Private Sub ListBox1_Click()
  Select Case ListBox1.ListIndex
    Case 0: Selection.Font.Animation = wdAnimationNone
    Case 1: Selection.Font.Animation = wdAnimationBlinkingBackground
    Case 2: Selection.Font.Animation = wdAnimationLasVegasLights
    Case 3: Selection.Font.Animation = wdAnimationMarchingBlackAnts
    Case 4: Selection.Font.Animation = wdAnimationMarchingRedAnts
    Case 5: Selection.Font.Animation = wdAnimationShimmer
    Case 6: Selection.Font.Animation = wdAnimationSparkleText
  End Select
  Unload Me
End Sub

 

Private Sub UserForm_Initialize()
 With ListBox1
   .AddItem "None"
   .AddItem "Blinking Background"
   .AddItem "Las Vegas Lights"
   .AddItem "Marching Black Ants"
   .AddItem "Marching Red Ants"
   .AddItem "Shimmmer"
   .AddItem "Sparkle Text"
  End With
End Sub

Greg Maxey
***
Death smiles at us all, but all a man can do is smile back.


For more help with Word visit:
http://gregmaxey.com/word_tips.html

1 person found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info

Last updated September 26, 2023 Views 8,593 Applies to: