即効テクニック |
新しいワードアートオブジェクトを作成します。 ●詳細● 新しいワードアートオブジェクトを作成します。 引数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