Word VBAでワードアートを自在に操ろう！初心者向けガイド

皆さん、こんにちは。今日は、Microsoft WordのVBA（Visual Basic for Applications）を使って、ワードアートを自在に操作する方法をご紹介します。難しそうに聞こえるかもしれませんが、心配いりません。初心者の方でもわかりやすく解説していきますので、一緒に学んでいきましょう。

ワードアートとは？
VBAでワードアートを挿入する基本手順
ワードアートのプロパティを変更する
ワードアートを活用した実例
よくある質問や疑問
1. ワードアートを削除するにはどうすれば良いですか？
2. ワードアートの位置を調整するには？
今すぐ解決したい！どうしたらいい？
まとめ

ワードアートとは？

Wordのイメージ

まず、ワードアートについて簡単におさらいしましょう。ワードアートとは、文字に特殊な効果や装飾を加えることで、文書内で目立たせたり、デザイン性を高めたりする機能です。例えば、タイトルや見出しを装飾する際に使われます。

VBAでワードアートを挿入する基本手順

それでは、VBAを使ってワードアートを挿入する基本的な手順を見ていきましょう。

まず、Wordを開き、AltキーとF11キーを同時に押して、VBAエディターを起動します。
次に、挿入メニューから標準モジュールを選択し、新しいモジュールを追加します。
以下のコードを入力します。
vba Sub ワードアートを追加() Dim doc As Document Set doc = ActiveDocument doc.Shapes.AddTextEffect _ PresetTextEffect:=msoTextEffect1, _ Text:="こんにちは、世界！", _ FontName:="メイリオ", _ FontSize:=36, _ FontBold:=msoTrue, _ FontItalic:=msoFalse, _ Left:=100, _ Top:=100 End Sub

このコードでは、現在の文書に「こんにちは、世界！」というテキストのワードアートを追加しています。フォントは「メイリオ」、サイズは36ポイント、太字に設定しています。
コードを入力したら、F5キーを押して実行します。すると、文書内にワードアートが挿入されます。

ワードアートのプロパティを変更する

挿入したワードアートの見た目を変更するには、VBAでプロパティを設定します。例えば、フォントの色やスタイルを変更することが可能です。

vba

Sub ワードアートのスタイルを変更()

    Dim shp As Shape

    Set shp = ActiveDocument.Shapes(1)

    With shp.TextEffect

        .FontName = "Arial"

        .FontSize = 48

        .FontBold = msoFalse

        .FontItalic = msoTrue

    End With

    shp.Fill.ForeColor.RGB = RGB(255, 0, 0) ' テキストの色を赤に設定

End Sub

このコードでは、最初のワードアートのフォントを「Arial」、サイズを48ポイント、斜体にし、色を赤に設定しています。

ワードアートを活用した実例

実際にワードアートを使ってみると、その便利さが実感できます。例えば、プレゼンテーション資料のタイトルをワードアートで装飾すると、視覚的にインパクトのあるスライドを作成できます。また、イベントの案内状やポスターなどでも、ワードアートを使って強調したい部分を目立たせることができます。

よくある質問や疑問

ワードアートを削除するにはどうすれば良いですか？

ワードアートを削除するには、以下のコードを使用します。

vba

Sub ワードアートを削除()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        If shp.Type = msoTextEffect Then

            shp.Delete

        End If

    Next shp

End Sub

このコードは、文書内のすべてのワードアートを削除します。

ワードアートの位置を調整するには？

ワードアートの位置を変更するには、LeftおよびTopプロパティを設定します。例えば、以下のようにコードを記述します。

vba

Sub ワードアートの位置を変更()

    Dim shp As Shape

    Set shp = ActiveDocument.Shapes(1)

    shp.Left = 200

    shp.Top = 150

End Sub

このコードでは、最初のワードアートの位置を左から200ポイント、上から150ポイントの位置に設定しています。

今すぐ解決したい！どうしたらいい？

いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」

あなたはこんな経験はありませんか？

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決！

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

今回は、WordのVBAを使ってワードアートを操作する方法をご紹介しました。最初は難しく感じるかもしれませんが、基本的なコードを覚えることで、文書作成の幅が広がります。ぜひ、試してみてください。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。