创建打印任务数据视图的图例，其中的颜色可以是十六进制值。
语法
表达式。FilePageSetupLegendEx (Name、 TextWidth、 LegendOn、 Alignment、 Text、 LabelFontName、 LabelFontSize、 LabelFontBold、 LabelFontItalic、 LabelFontUnderline、 LabelFontColor)
表达 返回 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 | 字体的颜色。 可以是十六进制的 RGB 值，其中红色是最后一个字节。 例如，值 &H01FFFF 为黄色。 |
格式代码
| 格式化代码 | 说明 |
|---|---|
| &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 指定的域必须使用每种语言本地化后的名称。 例如，&[实际成本]。 |
返回值
Boolean
说明
使用未指定任何参数的 FilePageSetupLegendEx 方法将显示 页面设置对话框中选择 图例选项卡。
[!注释] FilePageSetupLegendEx 仅适用于任务数据的视图。
示例
下面的示例将设置打印图例。
Sub SetLegend()
Dim strLegend As String
strLegend = GetFontFormatCode("Arial")
strLegend = strLegend & "&BThis text will appear in the legend.&B"
Application.FilePageSetupLegendEx 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。