セルの値を連続でワードアートにして挿入【ExcelVBA】
simpleSheet.ShapesAddTextEffectメソッドを使用してワードアートを作成していく
引数PresetTextEffectの値に１~４９を設定しテキスト効果を設定
引数Textにワードアートにしたい文字列を指定し、FontNameにフォントの名前
FontSizeにフォントサイズ、FontBoldにTrue（太字にする）False（太字にしない）を設定し
FontItalicにTrue（斜体にする）False（斜体にしない）を設定し
挿入する場所をLeft（左端の場所）Top（上端の場所）で設定する形で実践
ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
実際に使用したサンプルコード
’B28セルから下に順番に2つ隣のセルにワードアートを挿入した場合
Dim x As Long
Range("B28").Select
For x = 1 To 49
ActiveSheet.Shapes.AddTextEffect x, ActiveCell, "HG丸ｺﾞｼｯｸM-PRO", 5, _
False, False, ActiveCell.Offset(0, 2).Left, ActiveCell.Offset(0, 2).Top
ActiveCell.Offset(1, 0).Select
Next x
’セルの値の応じてワードアートを作成した場合
Option Explicit
Public Sub Sample()
ActiveSheet.Shapes.AddTextEffect PresetTextEffect:=Range("B2").Value, Text:=Range("B1").Value, FontName:=Range("B3").Value, _
FontSize:=Range("B4").Value, FontBold:=Range("B5").Value, FontItalic:=Range("B6").Value, Left:=Range("B8").Left, Top:=Range("B8").Top
End Sub
