PresetTextEffectのビジュアル一覧

ワードアート オブジェクトを作成します。
テキストが押し出されて立体的になっていたりするヤツのことです。

どのようなものがあるか、
PresetTextEffectのビジュアル一覧を作成します。
ワードアートを作成するには、 AddTextEffectメソッドを使います。

PresetTextEffectは
このメソッドの文字の見栄えの効果を指定する引数です。

構文は次の通りです。

expression.AddTextEffect( _
    PresetTextEffect, _
    Text, _
    FontName, FontSize, _
    FontBold, FontItalic, _
    Left, Top)

適宜改行してあります。
下のコードもこのような改行になっています。

引数が何を指定しているかは
引数の名前を見れば大体わかると思います。
詳細はVBAヘルプで。

PresetTextEffect引数には、

msoTextEffect1
msoTextEffect2
…
msoTextEffect30

このような定数を使ってもいいのですが、
For文を使用するので
下のコードでは0から29の整数(変数i)で指定します。

コードはこちら

Sub macro110619a()
'PresetTextEffectのビジュアル一覧作成

    Sheets.Add
    Dim i As Integer
    Dim strTextEffect As String
   
    For i = 0 To 29
        strTextEffect = "msoTextEffect" & i + 1
        ActiveSheet.Shapes.AddTextEffect( _
            i, _
            strTextEffect, _
            "ＭＳ Ｐゴシック", 28#, _
            msoFalse, msoFalse, _
            100#, i * 60 _
            ).Select
    Next i
   
End Sub

実行するとシートにワードアートが作成されます。
下の画像は作成されたワードアートを
見やすく少し移動してからペイントにコピペして保存したものです。

まあ、
あまり使いどころがなさそうですね。