excel マクロ 図形のフォント設定がわかりません。

質問

excel マクロの質問です。

図形にフォント名とフォントの見た目を表示させたいと思い試行錯誤してみましたが上手くいきません。

sheet1 A1 に HGP行書体 と入力し、test と名付けたオートシェイプ正方形/長方形、あるいはテキストボックスを作り、以下のコードを実行しましたが、
半角文字は HGP行書体 になるのですが、全角文字がテーマフォント（既定値のフォント？）のフォント ＭＳＰゴシック になってしまいます。
半角全角含めて HGP行書体 になって欲しいのですが、上手くいきません。
そのフォントが全角に対応していないのなら、他のフォントに代替するのもわかりますが、そうではないので理由がわかりません。

どこがいけないのか思いつかず、困りました。
（テーマフォントは2007からだと思いますが、2003でも通るコードにしたいです。）

Sub testfont
With Activesheet.Shapes("test").TextFrame.Characters
.Text = Sheets(1).Range("A1").Value
.Font.Name = Sheets(2).Range("A1").Value
End With
End Sub

どうか御教授お願いいたします！！

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

hige_082 · ベストアンサー

こんな感じでしょうか？

Sub testfont()
With ActiveSheet.Shapes("test").TextFrame
.Characters.Text = Sheets(1).Range("A1").Value
.Characters(Start:=1, Length:=Len(Sheets(1).Range("A1").Value)).Font.Name = Sheets(2).Range("A1").Value
End With
End Sub

お礼

早速の御回答ありがとうございます！
TextFrame.Characters メソッドにそういうものがあったのですね！
参考になります！

すみません、できませんでした。
シートは全てSheets(1)で良いのですよね？
フォント名が英字の場合に関しては反映されるのですが、例えば Arial 等ですが、
例えば、HG創英角ゴシックUB の場合、HG UB のみが HG創英角ゴシックUB になり日本語の部分 HG創英角ゴシック は既定のフォントになってしまいます。excel2007なのですが、それが問題なのでしょうか？

補足

Sheets(1)
すみません！自分がSheets(2)にしてました！