HOME > 即効テクニック > Excel VBA > 図形操作関連のテクニック > ワードアートを作成する(AddTextEffectメソッド)

即効テクニック

図形操作関連のテクニック

ワードアートを作成する(AddTextEffectメソッド)

(Excel 2000)

新しいワードアートオブジェクトを作成します。


●詳細●

新しいワードアートオブジェクトを作成します。
引数PresetTextEffectで選択できる規定のスタイルは30種類です。


  構文  Object.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, 
                             FontBold, FontItalic, Left, Top)


  設定項目              内容
  Object                Shapesコレクションオブジェクト [省略不可]
  PresetTextEffect      既定のテキストのスタイルを指定 [省略不可]
  Text                  テキストを指定 [省略不可]
  FontName              使用するフォントを指定 [省略不可]
  FontSize              フォントサイズを指定 [省略不可]
  FontBold              MsoTrueでフォントを太字、MsoFalseで通常 [省略不可]
  FontItalic            MsoTrueでフォントを斜体、MsoFalseで通常 [省略不可]
  Left                  ワードアートの境界ボックスの左端位置を指定 [省略不可]
  Top                   ワードアートの境界ボックスの上端位置を指定 [省略不可]


次のサンプルは現在の選択位置に25番目のスタイルでワードアートで作成します。
ユーザーの指定した文字列をテキストとして指定します。


●サンプル●

Sub AddTextEffectSamp1()
    Dim myText As String

    myText = InputBox("文字列を入力してください")   '---文字列の入力
    If myText = "" Then Exit Sub   '---キャンセル時の処理
    ActiveSheet.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect25, _
        Text:=myText, FontName:="MS Pゴシック", FontSize:=36#, _
        FontBold:=msoFalse, FontItalic:=msoFalse, _
        Left:=Selection.Left, Top:=Selection.Top
        '---選択位置に指定した文字列でワードアートを作成

End Sub