みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

excel マクロの質問です。

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

sheet1 A1 に HGP行書体 と入力し、test と名付けたオートシェイプ正方形/長方形、あるいはテキストボックスを作り、以下のコードを実行しましたが、
半角文字は HGP行書体 になるのですが、全角文字がテーマフォント(既定値のフォント?)のフォント MSPゴシック になってしまいます。
半角全角含めて 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

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

マルチメディアファイルは削除されたか見つかりません。

投稿日時 - 2009-04-28 10:38:28

QNo.4915209

すぐに回答ほしいです

質問者が選んだベストアンサー

こんな感じでしょうか?

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

投稿日時 - 2009-04-28 11:57:04

補足

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

投稿日時 - 2009-04-28 12:40:11

お礼

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

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

投稿日時 - 2009-04-28 12:35:03

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問