Excel VBA ワードアートを作成する Shapes.AddTextEffectメソッド

• オブジェクト（必須）
  Worksheetオブジェクトを指定します。
• PresetTextEffect【ﾌﾟﾘｾｯﾄﾃｷｽﾄｴﾌｪｸﾄ】（必須）
  既定のワードアート スタイルをMsoPresetTextEffect 列挙型の定数で指定します。
  

  ---

• Text【ﾃｷｽﾄ】（必須）
  ワードアートの文字列を指定します。
• FontName【ﾌｫﾝﾄﾈｰﾑ】（必須）
  ワードアートのフォント名を指定します。
• FontSize【ﾌｫﾝﾄｻｲｽﾞ】（必須）
  フォント サイズをポイント単位で指定します。
• FontBold【ﾌｫﾝﾄﾎﾞｰﾙﾄﾞ】（必須）
  スタイルを太字にするかどうかを設定します。MsoTriState 列挙型の定数で指定します。

  MsoTriState 列挙型の定数

  定数	値	内容
  msoFalse	0	太字にしません。
  msoTrue	‐1	太字にします。

  ---

• FontItalic【ﾌｫﾝﾄｲﾀﾘｯｸ】（必須）
  スタイルを斜体にするかどうかを設定します。MsoTriState 列挙型の定数で指定します。

  MsoTriState 列挙型の定数

  定数	値	内容
  msoFalse	0	斜体にしません。
  msoTrue	‐1	斜体にします。

  ---

• Left【ﾚﾌﾄ】（必須）
  文書の左上隅を基準にしてワードアートの境界ボックスの左上隅の位置をポイント単位で指定します。
• Top【ﾄｯﾌﾟ】（必須）
  文書の上端を基準にしてワードアートの境界ボックスの左上隅の位置をポイント単位で指定します。

Sub ワードアート()
Dim i As Integer
Dim 文字列 As String
文字列 = InputBox("ワードアートの文字列を入力してください。")
For i = 1 To 50
ActiveSheet.Shapes.AddTextEffect _
    PresetTextEffect:=i - 1, Text:=文字列, _
    FontName:="游ゴシック", FontSize:=14, _
    FontBold:=msoFalse, FontItalic:=msoFalse, _
    Left:=Range("B" & i).Left, Top:=Range("B" & i).Top
 Next i
End Sub

3行目【Dim 文字列 As String】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数でユーザーから受け取るワードアートの文字列を格納する
変数「文字列」を文字列型(String)で宣言します。

4行目【文字列 = InputBox(“ワードアートの文字列を入力してください。”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を利用してユーザーから、ワードアートで使用する文字列を受け取り変数「文字列」に代入します。

5行目【For i = 1 To 50】
For Next【ﾌｫｱﾈｸｽﾄ】ステートメントを使用して繰り返し処理の始まりです。

6行目～10行目【ActiveSheet.Shapes.AddTextEffect _
PresetTextEffect:=i – 1, Text:=文字列, _
FontName:=”游ゴシック”, FontSize:=14, _
FontBold:=msoFalse, FontItalic:=msoFalse, _
Left:=Range(“B” & i).Left, Top:=Range(“B” & i).Top】
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのAddTextEffect【ｱﾄﾞﾃｷｽﾄｴﾌｪｸﾄ】メソッドでワードアートを作成します。ワードアートのスタイルを表す引数PresetTextEffect【ﾌﾟﾘｾｯﾄﾃｷｽﾄｴﾌｪｸﾄ】にはカウンター変数「i」から1減算した値を設定します。1減算する理由は設定値が0から始まるからです。ワードアートの文字列を表す引数Text【ﾃｷｽﾄ】には変数「文字列」を設定します。
ワードアート範囲の境界の左上隅の位置を表す引数Left【ﾚﾌﾄ】はRange【ﾚﾝｼﾞ】オブジェクトのLeftプロパティを使用してセルの位置をポイント単位に変換して設定します。ワードアート範囲の境界の上端の位置を表す引数Top【ﾄｯﾌﾟ】はRange【ﾚﾝｼﾞ】オブジェクトのTop【ﾄｯﾌﾟ】プロパティを使用してセルの位置をポイント単位に変換して設定します。