Application.FilePageSetupLegend 方法 (Project)
创建任务数据的打印视图中使用的图例。
语法
表达式。FilePageSetupLegend (Name、 TextWidth、 LegendOn、 Alignment、 Text、 LabelFontName、 LabelFontSize、 LabelFontBold、 LabelFontItalic、 LabelFontUnderline、 LabelFontColor)
expression：表示 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 可选 | String | 为其设置打印图例的视图或报表的名称。 |
| TextWidth | 可选 | Integer | 文本的宽度，以英寸或厘米为单位。 |
| LegendOn | 可选 | Long | 在其中显示图例的页。 可以是下列的 PjLegend 常量之一: pjNoLegend 、 pjAfterLastPage 或 pjOnEveryPage 。 |
| Alignment | 可选 | Long | 在图例中的文本的对齐方式。 可以是下列的 PjAlignment 常量之一: pjLeft 、 pjCenter 或 pjRight 。 默认值是 pjCenter 。 |
| Text | 可选 | String | 要在图例中显示的文本。 特殊 格式代码 可以包含在图例中。 |
| LabelFontName | 可选 | String | 字体的名称。 |
| LabelFontSize | 可选 | Integer | 字体的大小，以磅为单位。 |
| LabelFontBold | 可选 | Boolean | 如此 如果字体格式为加粗。否则为 假 。 |
| LabelFontItalic | 可选 | Boolean | 如此 如果指定字体为斜体。否则为 假 。 |
| LabelFontUnderline | 可选 | Boolean | 如此 如果字体带下划线;否则为 假 。 |
| LabelFontColor | 可选 | Long | 字体颜色。 可以是 PjColor 常量之一;请参阅 PjColor 常量 表。 |
格式代码
| 格式化代码 | 说明 |
|---|---|
| &B | 打开或关闭打印粗体功能。 |
| &I | 打开或关闭打印斜体功能。 |
| &U | 打开或关闭打印下划线功能。 |
| &“”fontname“” | 以指定字体打印格式代码后的字符。 例如，&""Arial""。 |
| &nn | 以指定字号打印格式代码后的字符。 用两位数的数字指定字号，以磅为单位。 例如，&08。 |
| &P“”path“” | 插入指定的图像。 例如，&P“” [我的文档] \Image.gif“”。 [My Documents] 代表 My Documents 文件夹的完整路径。 |
| &[日期] | 打印当前的系统日期。 |
| &[时间] | 打印当前的系统时间。 |
| &[文件] | 打印文件名。 |
| &[页面] | 打印页码。 |
| &[Pages] | 打印文档的总页数。 |
| &[Project Title] | 打印标题。 |
| &[公司] | 打印公司名。 |
| &[经理] | 打印经理姓名。 |
| &[Start Date] | 打印项目开始日期。 |
| &[Finish Date] | 打印项目完成日期。 |
| &[Current Date] | 打印项目当前日期。 |
| &[Status Date] | 打印项目状态日期。 |
| &[查看] | 打印视图名称。 |
| &[报告] | 打印报表名称。 |
| &[筛选器] | 打印筛选器名称。 |
| &[Saved Date] | 打印上次保存日期。 |
| &[主题] | 打印主题。 |
| &[Author] | 打印作者。 |
| &[Keyword] | 打印关键字。 |
| &[Field_Name] | 打印由 Field_Name 指定的域值。 如果宏将在多种语言下运行，则由 Field_Name 指定的域必须使用每种语言本地化后的名称。 例如，&[实际成本]。 |
PjColor 常量
| 不断 | 不断 |
|---|---|
| pjColorAutomatic | pjNavy |
| pjAqua | pjOlive |
| pjBlack | pjPurple |
| pjBlue | pjRed |
| pjFuchsia | pjSilver |
| pjGray | pjTeal |
| pjGreen | pjYellow |
| pjLime | pjWhite |
| pjMaroon |
返回值
布尔值
备注
使用未指定任何参数的 FilePageSetupLegend 方法将显示 页面设置对话框中选择 图例选项卡。
[!注释] FilePageSetupLegend 仅适用于任务数据的视图。
若要编辑一个图例， 其中 LabelFontColor 可以是十六进制 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。