Application.FilePageSetupLegendEx 方法 (Project)

创建打印任务数据视图的图例，其中的颜色可以是十六进制值。

语法

表达式。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 支持和反馈，获取有关如何接收支持和提供反馈的指南。