ワードアートを作成する【Shapes.AddTextEffectメソッド】【ExcelVBA】

Shapes.AddTextEffectメソッド

VBAでワードアートを作成するときは Shapes.AddTextEffectメソッド を使います。
テキストのフォントやエフェクトを設定することができます。

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

ワードアートを作成するサンプルコード

Public Sub Sample()
'■ワードアートを作成する
  Worksheets("Sheet1").Shapes.AddTextEffect _
    PresetTextEffect:=msoTextEffect20 _
      , Text:="Sample" _
      , FontName:="Broadway" _
      , FontSize:=50 _
      , FontBold:=True _
      , FontItalic:=False _
      , Left:=10 _
      , Top:=10
                  
      ' テキスト効果20
      ' 文字フォント"Broadway"
      ' フォントサイズ50ポイント
      ' 太字にする
      ' 斜体にしない
      ' 左端の位置10ポイント
      ' 上端の位置10ポイント
                  
End Sub

関連記事

• 図形(オートシェイプ)を作成する【Shapes.AddShapeメソッド】
• テキストボックスを作成/文字を入力【Shapes.AddTextbox】【TextFrame.Characters】
• 直線(図形)を作成する【Shapes.AddLineメソッド】
• ピボットグラフを作成【Shapes.AddChart2】【Chart.SetSourceData】