Excelのヘッダー表示を変数で指定する場合

こんにちは。

Excel2000を使用しています。
マクロで、印刷時のヘッダーに変数を指定したいのですが、フォントやサイズも指定しようとするとうまく出来ません。

[現在の記述]

With ActiveSheet.PageSetup
.RightHeader = 変数Ａ
.RightHeader = "&""明朝,標準"
End With

この場合、後に記述したRightHeaderが有効になるため、結果として、ヘッダーには文字列が何も無い状態になります。逆にすれば、変数Ａの内容は表示されるものの、フォントはデフォルトのものになってしまいます。

単に文字列を表示させたいなら
.RightHeader = "&""明朝,標準""&11文字列"
でOKだと思うのですが、これが変数となると、どうやって記述すればいいのか判らないのです。

どなたかご存知でしたら教えてください。

No.1 ベストアンサー 回答者： noname#11856 回答日時： 2003/06/05 16:51

やったことないんですが・・・

.RightHeader = "&""明朝,標準""&11" & 変数Ａ

でよいのではないかと。。。

No.4 回答者： imogasi 回答日時： 2003/06/05 22:36

PageSetUpのマクロの記録の一部を下記に改変して実行したところ、RightHeader部に大きく「大阪市」（意味なし）

と表示（プレビューで）されました。
２６はフォントサイズ、MS以下がフォント指定部です。
hensu = "大阪市"
.RightHeader = "&""ＭＳ Ｐ明朝,標準""&26" & hensu

No.3 回答者： ja7awu 回答日時： 2003/06/05 18:13

こんな感じでいいと思いますよ。

With ActiveSheet.PageSetup
　　.RightHeader = "&""ＭＳ Ｐ明朝,標準""" & 変数A
End With

No.2 回答者： Taketoshi 回答日時： 2003/06/05 17:00

こんにちわ。

With ActiveSheet.PageSetup
.RightHeader="&" & Chr(34) & "ＭＳ 明朝" & Chr(34) & "文字の書体をかえちゃった"
End With

で、「文字の書体をかえちゃった」の文字列をMS明朝で表示できますよ。
「文字の書体をかえちゃった」の部分に変数の文字列を代入すれば、大丈夫です。

フォント名指定には、ダブルクォーテーション(文字コード34)が必要です。