エクセルVBAでのワードアート操作をご教授ください

はじめまして。
EXCEL２００７を使っているVBA初心者です。
現在セル入力した内容からPOPをまとめて印刷するワークシートを作成しています。

ワードアートのフォントをVBAで変更させたいのですが上手くいきません・・・
英数字でセル入力したときのみ、フォント変更されているようですが、全角文字をセルに入力したときワードアートに元々設定されているフォントで表示されてしまいます。
色々試したのですが、駄目でした（完璧に挫折です）　

以下処理のイメージです。
セル　A１に　”フォント変更したい”　を入力。　
セルA1のフォントを”HGP創英角ゴシックUB”に変更
マクロ実行　→　ワードアートに　「フォント変更したい」　の文字を　HGP創英角ゴシックUBのフォントで表示　　させたいのですが・・・

Sheets(1).Shapes("WordArt1").Select
FT = Sheets("LIST").Cells(１,１).Font.Name 'フォントネ－ム取り出し
Selection.Characters.Font.Name = FT 'フォントネームをワードアートにセット

このような記述です。
ご教授いただけると大変助かります。どうかよろしくお願いいたします。

No.1 ベストアンサー 回答者： DreamyCat 回答日時： 2011/07/08 04:55

２０１０版マクロの記録をほんの少し修正しました

Dim FtNm As String
ActiveSheet.Shapes.Range(Array("Rectangle 2")).Select
' Sheets(1).Shapes("WordArt1").Select

'FtNm = "HGP教科書体" "HGP創英角ゴシックUB"
FtNm = ActiveCell.Text
' ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "ここに文字を入力", "+mn-lt", 54, _
msoTrue, msoFalse, 162.3877165354, 155.5470866142).Select

' Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoFalse
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = FtNm
.NameFarEast = FtNm
.Name = FtNm
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 8).Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With

セルに貼り付けるときは"HGP教科書体"ではなくHGP教科書体のようにしてください。
うまくいかなかったのはHGPやUBを手入力して半角全角が違っているか余分なスペースが入っているなどしているためだろうと思います。

この回答へのお礼

ご教授ありがとうございました。

説明不足で申し訳ありません。
一枚のシートにワードアートを１５個程度使用しております。ワードアートの操作性は悪く、セル入力した内容をそのままワードアートに反映させるマクロを組みました。A１セルを斜体にすると、ワードアートも斜体になるというように・・・文字色、背景色、斜体、太さ　ここまでは普通に動きました。フォントのみ変更が出来ないのでこまった次第です。

教えていただいたコーディングは残念ながらフォントの変更はできませんでした。（エラーにならずVBAは動いていましたが・・・）

しかしEXCEL２０１０ではワードアートのようなSHAPEでもマクロ記録が出来る！そしてフォントの変更もできる！！これが解っただけでも大収穫です。貴重なお時間をありがとうございました。
EXCEL２０１０で挑戦してみたいと思います

お礼日時：2011/07/08 21:23

No.2 回答者： imogasi 回答日時： 2011/07/08 10:06

ここに質問する前に、挿入ー図ーワードアートーフォント種類指定などの操作をして、マクロの記録を取り、

どういうコードになるかやってみましたか。初心者はマクロの記録を活用しないと。
Sub Macro4()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "東京都", "HG行書体", 36#, _
msoFalse, msoFalse, 402.75, 244.5).Select
End Sub
のようになった。
この"HG行書体"のところにセルにフォントの種類の文字列をまず変数に入れて、その変数を持ってきてセットすれば仕舞い。
FT = Sheets("LIST").Cells(１,１).Font.Name だと一旦セルの文字にフォント種類を設定してと、間接的になっているが
好みなら仕様が無いが、好みのものフォント種類を入力規則のリストで数種類をセットして、その中から１つを選ぶほうが判りやすいのでは。
フォントサイズも同じ。
ただワードアートが２箇所以上あって、フォント種類などを別のアートと変えたいときはこまるよね。
この程度（操作でも簡単）のことでVBAを使うのは、初心者の勉強のためならやむをえないが、意味が無いのでは。
（もっと別に基礎的なことで勉強することがあるように思うよ）

この回答へのお礼

ご教授頂きありがとうございます。
お察しの通り、ＥＸＣＥＬ２００７VBAには、ワードアートの様なSHAPEをマクロ記録することが出来ないんです（涙・・・そのような仕様だと聞いております）



説明不足で申し訳ありません。
一枚の用紙にワードアートを１５個程度使っております。ワードアートの操作性は悪く、エクセルのセルに入力した内容に従ってワードアートに文字を送り、印刷・・・というようなマクロを組みました。
セル内容の文字色や、斜体、太字・・・と　ワードアートに反映させ、ここまでは普通に動いたのですが、フォント変更のみどうにもならず困った次第です。

EXCEL２０１０ではSHAPE関連でもきちんとマクロ記録がされるんですね！大収穫です。
ありがとうございました。　教えていただいたコーデイングを参考にさせていただきます。

お礼日時：2011/07/08 21:11