How do I format text effects to Sparkle Text
Effect - Sparkle Text@discussions.microsoft.com Text Effect - Sparkle Text
Stefan Blom
In Word 97-2003, click Format | Font, Text Effects tab. In Word 2007, you
need a macro to access these options (ask in a programming group such as
microsoft.public.word.vba.general).
--
Stefan Blom
Microsoft Word MVP
"Text Effect - Sparkle Text" <Text Effect - Sparkle
Te...@discussions.microsoft.com> wrote in message
news:C9FFA0B5-130B-412D...@microsoft.com...
>
Graham Mayor
Sub AnimateFont()
Dim sAnimation As String
If Len(Selection.Range) = 0 Then
MsgBox "Select text first!", vbCritical, "No Text Selected"
Exit Sub
End If
sAnimation = InputBox("Which animation? Enter the number: " & vbCr & _
" 1. Blinking Background" & vbCr & _
" 2. Las Vegas Lights" & vbCr & _
" 3. Marching Black Ants" & vbCr & _
" 4. Marching Red Ants" & vbCr & _
" 5. Shimmer" & vbCr & _
" 6. Sparkle Text" & vbCr & _
" 0. None", "Font animation")
Select Case sAnimation
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
Case 0: Selection.Font.Animation = wdAnimationNone
Case Else:
End Select
End Sub
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
"Stefan Blom" <Stefa...@discussions.microsoft.com> wrote in message
news:ONmG5PCp...@TK2MSFTNGP04.phx.gbl...
lredm...@student.hcs.k12.nc.us
wilsonj...@k105.org
>
wilsonj...@k105.org
>
yk
Thandar
> On Tuesday, February 2, 2010 at 10:35:01 AM UTC-5, Effect - Sparkle Te...@discussions.microsoft.com Text Effect - Sparkle Text wrote:
> >
>