エクセルVBAでのワードアート操作をご教授ください
はじめまして。
EXCEL2007を使っているVBA初心者です。
現在セル入力した内容からPOPをまとめて印刷するワークシートを作成しています。
ワードアートのフォントをVBAで変更させたいのですが上手くいきません・・・
英数字でセル入力したときのみ、フォント変更されているようですが、全角文字をセルに入力したときワードアートに元々設定されているフォントで表示されてしまいます。
色々試したのですが、駄目でした(完璧に挫折です)
以下処理のイメージです。
セル A1に ”フォント変更したい” を入力。
セルA1のフォントを”HGP創英角ゴシックUB”に変更
マクロ実行 → ワードアートに 「フォント変更したい」 の文字を HGP創英角ゴシックUBのフォントで表示 させたいのですが・・・
Sheets(1).Shapes("WordArt1").Select
FT = Sheets("LIST").Cells(1,1).Font.Name 'フォントネ-ム取り出し
Selection.Characters.Font.Name = FT 'フォントネームをワードアートにセット
このような記述です。
ご教授いただけると大変助かります。どうかよろしくお願いいたします。
お礼
お礼が遅れまして、申し訳ございません。参考になりました。ありがとうございます。