ワードの文字列にアニメをかける

元々ワードは印刷が前提なので図のような文字列にアニメをかける意味はないのかもしれない。確かにこの機能は2013には廃止されたが2003にはフォントの書式設定にツールがあり2007、2010にはこの書式のコピー継承が可能となっている。画像
ここではVBAでの作成方法のメモである
開発タブを表示する
②開発→コード→マクロから出現するダイアログに例えば「文字アニメ」名の名前を付け、作成ボタンを押してコード画面に以下のコードを張り付ける
画像

Sub 文字アニメ()
Dim sAnimation As String
If Len(Selection.Range) = 0 Then
MsgBox "先ず文字アニメをかける文字列を選択してください", vbCritical, "エラー"
Exit Sub
End If
sAnimation = InputBox("アニメの種類に対応した番号を入力してください: " & vbCr & _
" 1. 点滅反転" & vbCr & _
" 2. 点滅囲み線" & vbCr & _
" 3. 回転囲み線黒" & vbCr & _
" 4. 回転囲み線赤" & vbCr & _
" 5. 揺れ文字" & vbCr & _
" 6. 紙吹雪" & vbCr & _
" 0. 消去", "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
後は保存してワードに戻る(ALT+F11)。
アニメをかけたい文字列を選択し開発→コード→マクロから今作成した文字アニメを指定して「実行」ボタンを押し、選択フォームから好みのアニメ番号を入力する
画像

VBAが気に入らなければALT+F11でコードを変更する
画像
なおアニメ機能ごとにVBAを分けて夫々以下のように記述してもよい
Public Sub 回転囲み線黒()
Selection.Font.Animation = wdAnimationMarchingBlackAnts
End Sub

Public Sub 回転囲み線赤()
Selection.Font.Animation = wdAnimationMarchingRedAnts
End Sub

Public Sub 紙吹雪()
Selection.Font.Animation = wdAnimationSparkleText
End Sub

Public Sub 点滅囲み線()
Selection.Font.Animation = wdAnimationLasVegasLights
End Sub

Public Sub 点滅反転()
Selection.Font.Animation = wdAnimationBlinkingBackground
End Sub

Public Sub 揺れ文字()
Selection.Font.Animation = wdAnimationShimmer
End Sub

Public Sub フォントアニメーション削除()
Selection.Font.Animation = wdAnimationNone
End Sub

参考URL
http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=007127
http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=009238
http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=009239
http://www.eileenslounge.com/viewtopic.php?f=26&t=13259
http://www.pcreview.co.uk/threads/how-do-i-format-text-effects-to-sparkle-text.3962557/
http://www.pcreview.co.uk/threads/how-to-make-blinking-words-in-word.3659175/
http://word.tips.net/T000613_Animating_Your_Text.html
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1080494875


ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0