Sub insert_wordart()
	ActiveSheet.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
	'ワードアートの１番目のエフェクトを挿入しま
	Text:="OFFICE質問箱ML", _
	'テキストをOFFICE質問箱MLにします
    	FontName:="ＭＳ Ｐゴシック", _
	'フォントタイプをMS Pゴシックにします
    	FontSize:=36, _
	'フォントサイズを36にします
	FontBold:=False, _
	'太字にしません
	FontItalic:=False, _
	'斜体にしません
	Left:=10, _
	'配置を左から10ポイントにします
    	Top:=10).Select
	'配置を上から10ポイントにします
End Sub