Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12409 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10660】Excelの頁番号設定 干し柿 04/2/5(木) 16:27 質問
【10662】Re:Excelの頁番号設定 Asaki 04/2/5(木) 16:53 回答
【10665】Re:Excelの頁番号設定 干し柿 04/2/5(木) 17:06 お礼
【10660】Excelの頁番号設定
質問  干し柿  - 04/2/5(木) 16:27 -
引用なし
パスワード
   Excelの頁番号の設定の仕方についての質問です。
普通に設定するには、フッターの設定のところに

&[ページ番号]/&[総ページ数]

のように書けばそれでいいのですが、
Excelマクロ内で印刷総頁数を計算して出したいので、マクロ内に

Worksheets("ワークシート名").PageSetup.CenterFooter = intPageCnt & "/" & intSoPage

というふうに書いています。
しかし、フォントの大きさが自動的に11ポイントにされてしまい、
私としては８ポイントで出したいのですが、設定がうまくできません。
どなたか、ご存知ないでしょうか？
はたまた、マクロ内で使っている関数を、Excelのフッターにて使用することはできるのでしょうか？
【10662】Re:Excelの頁番号設定
回答  Asaki  - 04/2/5(木) 16:53 -
引用なし
パスワード
   こんにちは。

マクロの記録をすると、↓みたいなのが取れました。(加工してますが)
ActiveSheet.PageSetup.CenterFooter = "&""ＭＳ Ｐゴシック,太字""&8test"

フッタ中央に、MS Pゴシックのボールド体 8ptで"test" と表示します。
これを例に、フォント名と数字とかいじればよいのではと思います。
【10665】Re:Excelの頁番号設定
お礼  干し柿  - 04/2/5(木) 17:06 -
引用なし
パスワード
   ▼Asaki さん：
>マクロの記録をすると、↓みたいなのが取れました。(加工してますが)
>ActiveSheet.PageSetup.CenterFooter = "&""ＭＳ Ｐゴシック,太字""&8test"
>
>フッタ中央に、MS Pゴシックのボールド体 8ptで"test" と表示します。
>これを例に、フォント名と数字とかいじればよいのではと思います。

ありがとうございます。
早速いろいろ試してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12409 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free