Application.FilePageSetupLegend メソッド (Project)
タスク データのビューに対して印刷用の凡例を作成します。
構文
式。FilePageSetupLegend (Name, TextWidth, LegendOn, Alignment, Text, LabelFontName, LabelFontSize, LabelFontBold, LabelFontItalic, LabelFontUnderline, LabelFontColor)
expressionApplication オブジェクトを 表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 名前 | 省略可能 | String | 印刷用の凡例を設定するビューまたはレポートの名前を指定します。 |
| TextWidth | 省略可能 | 整数型 (Integer) | テキストの幅をインチまたはセンチメートルで指定します。 |
| LegendOn | 省略可能 | 長整数型 (Long) | 凡例を表示するページです。 PjLegend 定数は、次のいずれか: pjNoLegendpjAfterLastPage 、 pjOnEveryPage 。 |
| Alignment | 省略可能 | 長整数型 (Long) | 凡例のテキストの配置。 PjAlignment 定数は、次のいずれか: pjLeftpjCenter 、 pjRight です。 既定値は、 pjCenter です。 |
| Text | 省略可能 | String | 凡例に表示するテキストを指定します。 特殊な 書式コード は、凡例の一部として含めることができます。 |
| LabelFontName | 省略可能 | String | フォントの名前。 |
| LabelFontSize | 省略可能 | 整数型 (Integer) | フォントのサイズをポイント単位で指定します。 |
| LabelFontBold | 省略可能 | ブール型 (Boolean) | True の 場合、フォントは太字です。それ以外の場合、 false を指定 します。 |
| LabelFontItalic | 省略可能 | ブール型 (Boolean) | True の 場合、フォントが斜体にします。それ以外の場合、 false を指定 します。 |
| LabelFontUnderline | 省略可能 | ブール型 (Boolean) | True の 場合は、フォントに下線が引かれます。それ以外の場合、 false を指定 します。 |
| LabelFontColor | 省略可能 | 長整数型 (Long) | フォントの色。 PjColor 定数を 1 つ指定できます。PjColor 定数の表を参照してください。 |
書式コード
| 書式コード | 説明 |
|---|---|
| &B | 文字列を太字で印刷します。 |
| &I | 文字列を斜体で印刷します。 |
| &U | 下線設定のオン/オフを指定します。 |
| &""fontname"" | 印刷する文字のフォントを指定します。 たとえば、「&""Arial""」のように指定します。 |
| nn を &する | 印刷する文字のフォント サイズを 2 桁の数字で指定します。 nn には、ポイント数を表す 2 桁の数値を指定します。 たとえば、「&08」のように指定します。 |
| &P""path"" | 指定したイメージを挿入します。 たとえば、&P"" [マイ ドキュメント] \Image.gif")。 [My Documents] はユーザーの My Documents フォルダーの完全なパスを示します。 |
| &[日付] | システムの現在の日付を印刷します。 |
| &[時間] | システムの現在の時刻を印刷します。 |
| &[ファイル] | ファイル名を印刷します。 |
| &[ページ] | ページ番号を印刷します。 |
| &[Pages] | ドキュメントの総ページ数を印刷します。 |
| &[プロジェクトのタイトル] | タイトルを印刷します。 |
| &[会社] | 会社名を印刷します。 |
| &[Manager] | 管理者名を印刷します。 |
| &[開始日] | プロジェクトの開始日を印刷します。 |
| &[終了日] | プロジェクトの終了日を印刷します。 |
| &[プロジェクトの現在の日付] | プロジェクトの現在の日付を印刷します。 |
| &[プロジェクトの状況報告日] | プロジェクトの状況報告日を印刷します。 |
| &[表示] | ビュー名を印刷します。 |
| &[レポート] | レポート名を印刷します。 |
| &[フィルター] | フィルター名を印刷します。 |
| &[最終保存日] | 最終保存日を印刷します。 |
| &[件名] | サブタイトルを印刷します。 |
| &[作成者] | 作成者を印刷します。 |
| &[キーワード] | キーワードを印刷します。 |
| &[Field_Name] | [フィールド名] で指定されたフィールドの値を印刷します。 複数の言語環境でマクロを実行する場合、この [フィールド名] はマクロの実行環境の言語で指定する必要があります。 たとえば、日本語の場合は、「&[実績コスト]」のように指定します。 |
PjColor 定数
| 定数 | 定数 |
|---|---|
| pjColorAutomatic | pjNavy |
| pjAqua | pjOlive |
| pjBlack | pjPurple |
| pjBlue | pjRed |
| pjFuchsia | pjSilver |
| pjGray | pjTeal |
| pjGreen | pjYellow |
| pjLime | pjWhite |
| pjMaroon |
戻り値
Boolean
注釈
FilePageSetupLegend メソッドを使用して引数を指定せず、[ 凡例] タブで、[ ページ設定] ダイアログ ボックスが表示されます。
[!メモ] FilePageSetupLegend は、タスクのデータのビューでのみ機能します。
LabelFontColor を 16 進 RGB 値にできる凡例を編集するには、FilePageSetupLegendEx メソッドを使用します。
例
次の使用例は、印刷用に凡例の設定を行います。
Sub SetLegend()
Dim strLegend As String
strLegend = GetFontFormatCode("Arial")
strLegend = strLegend & "&BThis text will appear in the legend.&B"
Application.FilePageSetupLegend Text:=strLegend, _
Alignment:=pjCenter, LegendOn:=pjOnEveryPage
End Sub
Public Function GetFontFormatCode(strFontName As String) As String
GetFontFormatCode = "&" & Chr(34) & strFontName & Chr(34)
End Function
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。