PageBreak属性

适用于

Range 对象

描述

返回或者设置分页符的位置。可为下列 XlPageBreak 常数之一：

xlPageBreakAutomatic，xlPageBreakManual 或 xlPageBreakNone。Long

类型，可读写。

说明

本属性既可返回自动分页符的位置，也可返回手动分页符的位置，但本属性仅可设置手动分页符的位置（仅可设为 xlPageBreakManual 或xlPageBreakNone）。

要清除工作表的所有手动分页符，可将 Cells.PageBreak 设为xlPageBreakNone。

示例

本示例在 Sheet1 的第 24 行后设置一个手动分页符。

Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakManual

本示例在 Sheet1 的 J 列左侧设置一个手动分页符。

Worksheets("Sheet1").Columns("J").PageBreak = xlPageBreakManual

本示例删除前两个示例所设置的分页符。

Worksheets("Sheet1").Rows(25).PageBreak=xlPageBreakNone

Worksheets("Sheet1").Columns("J").PageBreak = xlNone

PageFieldOrder属性

适用于

PivotTable 对象

描述

返回或设置页字段添加到数据透视表中时的顺序。可为下列 XlOrder 常量之一： xlDownThenOver 或 xlOverThenDown。默认常量为xlDownThenOver。Long 类型，可读写。

另见

PageFieldWrapCount 属性

示例

本示例使数据透视表先在一行中显示三个页字段之后再显示下一行 。

With Worksheets(1).PivotTables("Pivot1")

.PageFieldOrder = xlOverThenDown

.PageFieldWrapCount = 3

End With

PageFields属性

适用于

PivotLayout 对象，PivotTable 对象

描述

返回一个对象，该对象既可代表单个数据透视表字段（一个 PivotField 对象，句法 1），也可代表包含正作为页字段显示的所有数据透视表字段的集合（一个 PivotFields 对象，句法 2）。只读。

句法 1

expression.PageFields(Index)

句法 2

expression.PageFields

expression

必选。该表达式返回一个 PivotTable 对象。

Index

Variant 类型，可选。要返回的数据透视表字段的名称或号码（可为指定多个字段的数组）。

说明

一个层次只能包含一个页字段。

对基于数据透视表高速缓存的数据透视表报表而言，返回的数据透视表字段的集合反映了当前高速缓存中的内容。

另见

ColumnFields 属性， DataFields 属性， HiddenFields 属性， PivotFields 方法 ，RowFields 属性，VisibleFields 属性

示例

本示例往一张新工作表中添加页字段的名称列表。

Set nwSheet = Worksheets.Add

nwSheet.Activate

Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable

rw = 0

For Each pvtField In pvtTable.PageFields

    rw = rw + 1   

 nwSheet.Cells(rw, 1).Value = pvtField.Name

Next pvtField

PageFieldStyle属性

适用于

PivotTable 对象

描述

返回或设置用于边界页字段区域中的样式。默认值为 null 字符串（默认时无样式）。String 类型，可读写。

说明

此样式用作背景区域的默认样式，并且在用户指定格式前起作用。当对某字段进行数据透视时，从页字段区域移到其它位置的单元格保留此样式。

示例

本示例将数据透视表的页字段区域设为 PurpleAndGold 样式。

Worksheets(1).PivotTables("Pivot1").PageFieldStyle = "PurpleAndGold"

PageFieldWrapCount属性

适用于

PivotTable 对象

描述

返回或设置数据透视表中每一行或每一列中的页字段个数。Long 类型，可读写。

另见

PageFieldOrder 属性

示例

本示例使数据透视表先在一行中显示三个页字段之后再显示下一行 。

With Worksheets(1).PivotTables("Pivot1")

.PageFieldOrder = xlOverThenDown

.PageFieldWrapCount = 3

End With

PageRange属性

适用于

PivotTable 对象

描述

返回一个 Range 对象，该对象代表包含数据透视表页子区域的区域。只读。

另见

ColumnRange 属性， DataBodyRange 属性， DataLabelRange 属性

RowRange 属性

示例

本示例选定数据透视表的所有页标题。

Worksheets("Sheet1").Activate

Range("A3").Select

ActiveCell.PivotTable.PageRange.Select

PageRangeCells属性

适用于

PivotTable 对象

描述

返回一个 Range 对象，该对象代表指定数据透视表中的单元格，这些单元格仅包含页字段和数据项下拉列表。

示例

本示例选定数据透视表中仅包含页字段和数据项下拉列表的单元格。

Worksheets(1).PivotTables(1).PageRangeCells.Select

PageSetup对象

描述

代表页面设置说明。PageSetup 对象的属性包含所有页面设置的属性（左页边距、底端页边距、纸张大小等）。

使用PageSetup 对象可用 PageSetup 属性返回 PageSetup 对象。下例将打印方向设置为横向，并打印工作表。

With Worksheets("sheet1")

.PageSetup.Orientation = xlLandscape

.PrintOut

End With

With 语句使同时设置若干属性变得简洁而迅速。下例设置第一张工作表的所有页边距。

With Worksheets(1).PageSetup

.LeftMargin = Application.InchesToPoints(0.5)

.RightMargin = Application.InchesToPoints(0.75)

.TopMargin = Application.InchesToPoints(1.5)

.BottomMargin = Application.InchesToPoints(1)

.HeaderMargin = Application.InchesToPoints(0.5)

.FooterMargin = Application.InchesToPoints(0.5)

End With

属性

Application 属性，BlackAndWhite 属性，BottomMargin 属性，CenterFooter 属性，CenterHeader 属性，CenterHorizontally 属性，CenterVertically 属性，ChartSize 属性，Creator 属性，Draft 属性，FirstPageNumber 属性，FitToPagesTall 属性，FitToPagesWide 属性，FooterMargin 属性，HeaderMargin 属性，LeftFooter 属性，LeftHeader 属性，LeftMargin 属性，Order 属性，Orientation 属性，PaperSize 属性，Parent 属性，PrintArea 属性，PrintComments 属性，PrintGridlines 属性，PrintHeadings 属性，PrintNotes 属性，PrintTitleColumns 属性，PrintTitleRows 属性，RightFooter 属性，RightHeader 属性，RightMargin属性，TopMargin 属性，Zoom 属性

方法

PrintQuality 方法

PageSetup属性

适用于

Chart 对象，Worksheet 对象

描述

返回一个 PageSetup 对象，该对象包含指定对象的所有页面设置。只读。

示例

本示例设置“Chart1”中央标题的文字。

Charts("Chart1").PageSetup.CenterHeader = "December Sales"

Pane对象

描述

代表窗口中的窗格。Pane 对象仅对工作表和 Microsoft Excel 4.0 宏表有

效。Pane 对象是 Panes 集合的成员。Panes 集合包含单个窗口中显示的

所有窗格。

使用Pane 对象可用 Panes(index) （其中 index 为窗格编号）返回单个 Pane 对象。下例拆分第一张工作表所在的窗口，并滚动左下角的窗格，直至第五行处于该窗格的顶端。

Worksheets(1).Activate

ActiveWindow.Split = True

ActiveWindow.Panes(3).ScrollRow = 5

属性

Application 属性，Creator 属性，Index 属性，Parent 属性，ScrollColumn

属性，ScrollRow 属性，VisibleRange 属性

方法

Activate 方法，LargeScroll 方法，ScrollIntView 方法，SmallScroll 方法

Panes集合对象

描述

指定窗口中显示的所有 Pane 对象的集合。Pane 对象仅对工作表和Microsoft Excel 4.0 宏表有效。

使用Panes 集合可用 Panes 属性返回 Panes 集合。下例中，如果活动窗口包含若干窗格，将冻结这些窗格。

If ActiveWindow.Panes.Count > 1 Then _

ActiveWindow.FreezePanes = True

可用 Panes(index) （其中 index 为窗格编号）返回单个 Pane 对象。下例滚动工作表“Sheet1”所在的窗口中左上角的窗格。

Worksheets("sheet1").Activate

Windows(1).Panes(1).LargeScroll down:=1

属性

Application 属性，Count 属性，Creator 属性，Item 属性(Panes 集合)，

Parent 属性

Panes属性

适用于

Window 对象

描述

返回一个 Panes 集合，此集合代表指定窗口中的所有窗格。只读。

说明

只有当窗口的 Split 属性可设置为 True 时，窗口的这个属性才可用。

示例

本示例显示 Book1.xls 中当前窗口的窗格数目。

Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate

MsgBox "There are " & ActiveWindow.Panes.Count & _"

 panes in the active window"

本示例激活 Book1.xls 中当前窗口左上角的窗格。

Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate

ActiveWindow.Panes(1).Activate

PaperSize属性

适用于

PageSetup 对象

描述

仅在 Windows 中有效。 返回或者设置纸张大小。Long 类型，可读写。

可为下列 XlPaperSize 常量之一（某些打印机可能不能支持所有的这些纸张大小）。

示例

本示例将 Sheet1 的纸张大小设为 legal。

Worksheets("Sheet1").PageSetup.PaperSize = xlPaperLegal

Parameter对象

描述

代表带参数查询中使用的单个参数。Parameter 对象是 Parameters 集合中的成员。

使用 Parameter 对象

使用 Parameters(index) （其中 index 为参数的索引号）可返回单个Parameter 对象。下列示例更改第一个参数提示。

With Worksheets(1).QueryTables(1).Parameters(1)

.SetParam xlPrompt, "Please " & .PromptString

End With

属性

Application 属性，Creator 属性，DataType 属性，Name 属性，Parent 属性，PromptString 属性，RefreshOnChange 属性，SourceRange 属性，Type属性，Value 属性方法SetParam 方法

Parameters集合对象

描述

指定查询表的 Parameter 对象集合，每一 Parameter 对象代表单个查询参数。每一张查询表包含一个 Parameters 集合，但仅当查询表使用参数查询时该集合才为非空集合。

使用 Parameters 集合

使用 Parameters 属性可返回 Parameters 集合。下列示例显示第一张查询表中的参数个数。

MsgBox Workbooks(1).ActiveSheet.QueryTables(1).Parameters.Count

使用 Add 方法可为查询表新建参数。下列示例对第一张查询表的 SQL 语句进行更改。“(city=?)”子句表示这是一个带参数查询，然后本示例将 city的值设为常量“OakLaod”。

Set qt = Sheets("Sheet1").QueryTables(1)

qt.Sql = "SELECT * FROM authors WHERE (city=?)"

Set param1 = qt.Parameters.Add("City Parameter", xlParamTypeVarChar)

param1.SetParam xlConstant, "Oakland"

qt.Refresh

不可对 URL 连接查询表使用 Add 方法。对于 URL 连接查询表，

Microsoft Excel 将根据 Connection 属性和 PostText 属性创建参数。

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Add 方法(Parameters 集合)，Delete 方法，Item 方法(Parameters 集合)

Parameters属性

适用于

QueryTable 对象

描述

返回一个 Parameters 集合，该集合代表查询表参数。只读。

示例

本示例从现有带参数查询中返回 Parameters 集合。如果第一个参数使用字符数据类型，则用户只须在提示对话框中输入字符。

With Sheets("Sheet1").QueryTables(1).Parameters(1)

    If .DataType = xlParamTypeVarChar Then

        .SetParam xlPrompt, "Enter a character only"

    End If

End With

Parent属性

适用于

AddIn 对象，AddIns 集合对象 ，Adjustments 对象，Application 对象，

Areas 集合对象，AutoCorrect 对象，AutoFilter对象，Axes 对象，Axis 对象，AxisTitle 对象，Border 对象，Borders 集合对象，CalculatedFields 集合对象，CalculatedItem 集合对象，CalloutFormat 对象，Characters 对象，Chart 对象，ChartArea 对象，ChartColorFormat 对象，ChartFillFormat 对象，ChartGroup 对象，ChartGroups 集合对象，ChartObject 对象，ChartObjects 集合对象，Charts 集合对象，ChartTitle对象，ColorFormat 对象，Comment 对象，Comments 集合对象，ConnectorFormat 对象，ControlFormat 对象，Corners 对象，CubeField 对象，CubeFields 集合对象，CustomView 对象，CustomViews 集合对象，DataLabel 对象，DataLabels 集合对象，DataTable 对象，DefaultWebOptions 对象，Dialog 对象，Dialogs 集合对象，DisplayUnitLabel 对象，DownBars 对象，DropLines 对象，ErrorBars 对象，FillFormat 对象，Filter 对象，Filters 集合对象，Floor 对象，Font 对象，FormatCondition 对象，FormatConditions 集合对象，FreeformBuilder对象，Gridlines 对象，GroupShapes 集合对象，HiloLines 对象，HPageBreak 对象，HPageBreaks 集合对象，HyperLink 对象，HyperLinks集合对象，Interior 对象，LeaderLines 对象，Legend 对象，LegendEntries集合对象，LegendEntry 对象，LegendKey 对象，LineFormat 对象，LinkFormat 对象，Name 对象，Names 集合对象，ODBCError 对象，ODBCErrors 集合对象，OLEDBError 对象，OLEDBErrors 集合对象，OLEFormat 对象，OLEObject 对象，OLEObjects 集合对象，Outline 对象，PageSetup 对象，Pane 对象，Panes 集合对象，Parameter 对象，Parameters 集合对象，Phonetic 对象，Phonetics 集合对象，PictureFormat对象，PivotCache 对象，PivotCaches 集合对象，PivotField 对象，PivotFields集合对象，PivotFormula 对象，PivotFormulas 集合对象，PivotItem 对象，PivotItems 集合对象，PivotLayout 对象，PivotTable 对象，PivotTables集合对象，PlotArea 对象，Point 对象，Points 集合对象，PublishObject 对象，PublishObjects 集合对象，QueryTable 对象，QueryTables 集合对象，Range 对象，RecentFile 对象，RecentFiles 集合对象，RoutingSlip 对象，Scenario 对象，Scenarios 集合对象，Series 对象，SeriesCollection 集合对象，SeriesLines 对象，ShadowFormat 对象，Shape 对象，ShapeNode 对象，ShapeNodes 集合对象，ShapeRan ge 集合对象，Shapes 集合对象，Sheets集合对象，SoundNote 对象，Style 对象，Styles 集合对象，TextEffectFormat对象，TextFrame 对象，ThreeDFormat 对象，TickLabels 对象，TreeviewControl 对象，Trendline 对象，Trendlines 集合对象，UpBars 对象，Validation 对象，VPageBreak 对象，VPageBreaks 集合对象，Walls 对象，WebOptions 对象，Window 对象，Windows 集合对象，Workbook 对象，Workbooks 集合对象，Worksheet 对象，WorksheetFunction 对象，Worksheets 集合对象描述返回指定对象的父层对象。只读。

示例

本示例显示包含 myAxis 坐标轴的图表名称。

Set myAxis = Charts(1).Axes(xlValue)

MsgBox myAxis.Parent.Name

ParentField属性

适用于

PivotField 对象

描述

返回 PivotField 对象，该对象代表作为指定对象的父字段的数据透视表字段。指定的字段必须已分组且具有父字段。只读。

说明

本属性对OLAP数据源不适用于。

示例

本示例显示包含活动单元格的字段的父字段名称。

Worksheets("Sheet1").Activate

MsgBox "The active field is a child of the field " & _

ActiveCell.PivotField.ParentField.Name

ParentItem属性

适用于

PivotItem 对象

描述

返回 PivotItem 对象，该对象代表父 PivotField 对象中的父数据透视表数据项（指定字段必须已分组从而具有父字段）。只读。

说明

本属性对OLAP数据源不适用于。

示例

本示例显示包含活动单元格的数据项的父数据项名称。

Worksheets("Sheet1").Activate

MsgBox "This item is a subitem of " & _

ActiveCell.PivotItem.ParentItem.Name

ParentItems属性

适用于

PivotField 对象

描述

返回代表指定字段中的父数据项的单个数据项（PivotItem 对象，句法 1）

或所有数据项的集合（PivotItems 对象，句法 2）的对象。指定字段必须为其它字段的父字段。只读。

句法 1

expression.ParentItems(Index)

句法 2

expression.ParentItems

expression

必选。该表达式返回 PivotField 对象。

Index

Variant 类型，可选。要返回的数据项的编号或名称（本参数可为数组，以

183

指定若干数据项）。

说明

本属性对OLAP数据源不适用于。

另见

ChildItems 属性， HiddenItems 属性， PivotItems 方法， VisibleItems 属性

示例

本示例创建“product”字段中所有父数据项名称的列表。

Set nwSheet = Worksheets.Add

nwSheet.Activate

Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable

rw = 0

For Each pvtItem In pvtTable.PivotFields("product").ParentItems

    rw = rw + 1

    nwSheet.Cells(rw, 1).Value = pvtItem.Name

Next pvtItem

ParentShowDetail属性

适用于

PivotItem 对象

描述

如果指定的数据项的显示是由于其父数据项之一正在显示细节，本属性为True。如果由于其父数据项隐藏细节而使该数据项未显示，本属性为 False。

本属性仅对已分组的数据项有效。Boolean 类型，只读。

说明

本属性对OLAP数据源不适用于。

示例

如果包含活动单元格的数据项由于其父数据项正在显示细节而可见，本示例将显示消息框。

Worksheets("Sheet1").Activate

Set pvtItem = ActiveCell.PivotItem

If pvtItem.ParentShowDetail = True Then

MsgBox "Parent item is showing detail"

End If

Parse方法

适用于

Range 对象

描述

分析区域内的数据并将这些数据分散放置于若干单元格中。将区域内容分配于多个相邻接的列中；该区域只能包含一列。

句法

expression.Parse(ParseLine, Destination)

expression

必选。该表达式返回一个 Range 对象。

ParseLine

Variant 类型，可选。包含方括号的字符串，用以指明如何拆分数据。例如，“[xxx][xxx]”表示将前三个字符置于目标区域的第一列中，其次三个字符置于第二列中。如果省略本参数， Microsoft Excel 将依据源区域左上角单元格中的空格猜测如何拆分数据。如果希望用其它区域来猜测分析方式，可用 Range 对象作为 ParseLine 参数。该区域必须为被分析的单元格之一。ParseLine 参数不能超过 255 个字符，包括方括号和空格。

Destination

Variant 类型，可选。代表目标区域左上角单元格的 Range 对象，该目标区域将放置数据分析结果。如果省略本参数， Microsoft Excel 将在原处放置结果。

示例

本示例将 206-555-1212 形式的电话号码分解到两列中。第一列仅包含地区代码，第二列包含七个数字的电话号码及内嵌的连字符。

Worksheets("Sheet1").Columns("A").Parse

 _parseLine:="[xxx] [xxxxxxxx]", _

destination:=Worksheets("Sheet1").Range("B1")

Paste方法（Chart对象）

适用于

Chart 对象

描述

将剪贴板中的图表数据粘贴到指定的图表中。

句法

expression.Paste(Type)

expression

必选。该表达式返回 Chart 对象。

Type

Variant 类型，可选。如果剪贴板中有图表，本参数指出应粘贴该图表中的何种信息。可为下列 XlPasteType 常量之一： xlFormats, xlFormulas 或xlAll。默认值为 xlAll。如果剪贴板中的数据不是图表，则不能使用本参数。

说明

本方法将改变当前的选定区域。

另见

Copy 方法， Cut 方法， Paste 方法(Worksheet 对象)

示例

本示例将工作表“Sheet1”上单元格区域“B1:B5”中的数据粘贴到图表“Chart1”中。

Worksheets("Sheet1").Range("B1:B5").Copy

Charts("Chart1").Paste

Paste方法（Floor或Walls对象）

适用于

Floor 对象，Walls 对象

描述

将剪贴板中的图片粘贴到指定图表的基底或背景墙上。

句法

object.Paste

object

必选。该表达式返回 Floor 或 Walls 对象。

Paste方法（Point或Series对象）

适用于

Point 对象，Series 对象

描述

将剪贴板中的图片当作选定数据点或选定系列的数据标记粘贴到图表中。

本方法可用于柱形图、条形图、折线图或雷达图，且本属性将 MarkerStyle属性设置为 xlMarkerStylePicture。

句法

expression.Paste

expression

必选。该表达式返回 Point 或 Series 对象。

另见

Copy 方法， Cut 方法， MarkerStyle 属性

示例

本示例将剪贴板中的图片粘贴到图表“Chart1”中的第一个系列中。

Charts("Chart1").SeriesCollection(1).Paste

Paste方法（SeriesCollection集合）

适用于

SeriesCollection 集合对象

描述

将剪贴板中的数据粘贴到指定的系列集合中。

句法

expression.Paste(Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries)

expression

必选。该表达式返回 SeriesCollection 对象。

Rowcol

Variant 类型，可选。指明相应于特定数据系列的数值是处于行中还是列中。

可为下列 XlRowCol 常量之一： xlRows 或 xlColumns。默认值为xlColumns。

SeriesLabels

Variant 类型，可选。若指定为 True，则用每一行的第一列（或每一列的第一行）的单元格内容作为该行（或列）中数据系列的名称。若指定为 False，则用每一行的第一列（或每一列的第一行）的单元格内容作为数据系列第一个数据点。默认值为 False。

CategoryLabels

Variant 类型，可选。若指定为 True，则用选定区域的第一行（或第一列）的内容作为图表的分类标志。若指定为 False，则用选定区域的第一行（或第一列）的内容作为图表的第一个数据系列。默认值为 False。

`Replace

Variant 类型，可选。若指定为 True，则用被复制区域的分类信息取代现存的分类。若指定为 False，则插入新分类而不替换任何原有分类。默认值为 True。

NewSeries

Variant 类型，可选。若指定为 True，则将剪贴板中的数据作为新系列粘贴。若指定为 False，则将剪贴板中的数据作为原有系列的新数据点粘贴。

默认值为 True。

另见

Add 方法(SeriesCollection 集合)， ChartWizard 方法， Copy 方法， Cut 方法， Extend 方法

示例

本示例将工作表“Sheet1”中单元格区域“C1:C5”中的数据复制到剪贴板上，然后将这些数据作为新系列粘贴到图表“Chart1”中。

Worksheets("Sheet1").Range("C1:C5").Copy

Charts("Chart1").SeriesCollection.Paste

Paste方法（Worksheet对象）

适用于

Worksheet 对象

描述

将剪贴板中的内容粘贴到工作表上。

句法

expression.Paste(Destination, Link)

expression

必选。该表达式返回 Worksheet 对象。

Destination

Variant 类型，可选。Range 对象，指定用于粘贴剪贴板中内容的目标区域。如果省略本参数，就使用当前选定区域。仅当剪贴板中的内容能被粘贴到某区域时，才能指定本参数。如果指定了本参数，就不能使用 Link 参数。

Link

Variant 类型，可选。若指定为 True，就建立与被粘贴数据的源之间的链接。如果指定了本参数，就不能使用 Destination 参数。默认值为 False。

说明

如果未指定 Destination 参数，那么必须在使用本方法之前选定目标区域。本方法可能会改变工作表的选定区域，视剪贴板中的内容而定。

另见

Copy 方法， Cut 方法， Paste 方法(Chart 对象)

示例

本示例将工作表“Sheet1”中单元格区域“C1:C5”中的数据复制到单元格区域“D1:D5”中。

Worksheets("Sheet1").Range("C1:C5").CopyActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")

PasteSpecial方法（Range对象）

适用于

Range 对象

描述

将剪贴板中的 Range 对象粘贴到指定区域中。

句法

expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

expression

必选。该表达式返回 Range 对象。

PasteV

ariant 类型，可选。指定要粘贴该区域的哪一部分。可为下列 XlPasteType常量之一： xlPasteAll, xlPasteFormulas, xlPasteValues, xlPasteFormats，xlPasteNotes 或 xlPasteAllExceptBorders。默认值为 xlPasteAll。

Operation

Variant 类型，可选。粘贴的操作。可为下列 XlPasteSpecialOperation 常量之一：

xlPasteSpecialOperationNone,xlPasteSpecialOperationAdd,xlPasteSpecialOperationSubtract,xlPasteSpecialOperationMultiply 或xlPasteSpecialOperationDivide。默认值为 xlPasteSpecialOperationNone。

SkipBlanks

Variant 类型，可选。若指定为 True，则不粘贴剪贴板中单元格区域的空白单元格。默认值为 False。

Transpose

Variant 类型，可选。若指定为 True，则粘贴时转置行和列。默认值为False。

另见

Copy 方法， Cut 方法， PasteSpecial 方法(Worksheet 方法)

示例

本示例在工作表“Sheet1”上，用单元格区域“D1:D5”与单元格区域“C1:C5”的和取代区域“D1:D5”的原数据。

With Worksheets("Sheet1")

.Range("C1:C5").Copy

.Range("D1:D5").PasteSpecial Operation:=xlPasteSpecialOperationAdd

End With

PasteSpecial方法（Worksheet对象）

适用于

Worksheet 对象

描述

以指定格式将剪贴板中的数据粘贴到工作表上。可用本方法从其它应用程序中粘贴数据，或以特定格式粘贴数据。

句法

expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName,IconIndex, IconLabel)

expression

必选。该表达式返回 DialogSheet 或 Worksheet 对象。

Format

Variant 类型，可选。指定剪贴板中的数据格式的字符串。

LinkV

ariant 类型，可选。若指定为 True，就建立与被粘贴数据的源之间的链接。如果源数据不适于链接，或源应用程序不支持链接，将忽略本参数。默认值为 False。

DisplayAsIcon

Variant 类型，可选。若指定为 True，则将粘贴数据显示为图标。默认值为 False。

IconFileName

Variant 类型，可选。如果 DisplayAsIcon 为 True，本参数指定包含所用图标的文件名。

IconIndex

Variant 类型，可选。图标在图标文件内的索引号。

IconLabel

Variant 类型，可选。图标的文字标志。

说明

使用本方法之前必须先选定目标区域。本方法可能会改变工作表的选定区域，视剪贴板中的内容而定。

另见

Copy 方法， Cut 方法， PasteSpecial 方法(Range 方法)

示例

本示例将剪贴板中的 Microsoft Word 文档对象粘贴到工作表“Sheet1”中的单元格“D1”中。

Worksheets("Sheet1").Range("D1").Select

ActiveSheet.PasteSpecial format:= _"

Microsoft Word 8.0 Document Object"

本示例粘贴同一 Microsoft Word 文档对象，但将其显示为图标。

Worksheets("Sheet1").Range("F5").SelectActiveSheet.PasteSpecial _

Format:="Microsoft Word 8.0 Document Object", _

DisplayAsIcon:=True

Path属性

适用于

AddIn 对象，Application 对象，RecentFile 对象，Workbook 对象

描述

返回指定对象的完整路径，不包括末尾的分隔符和对象名称。String 类型，只读。

说明

在不使用对象识别符的情况下使用本属性等价于 Application.Path（此句法将返回 Microsoft Excel 应用程序的路径）。

示例

本示例显示 Microsoft Excel 的完整路径。

MsgBox "The path is " & Application.Path

PathSeparator属性

适用于

Application 对象

描述

返回路径分隔符（在 Windows 中为“\”）。String 类型，只读。

示例

本示例显示当前路径分隔符。

MsgBox "The path separator character is  " & Application.PathSeparator

Pattern属性

适用于

ChartFillFormat 对象，FillFormat 对象，Interior 对象，LineFormat 对象

描述

Interior 对象：返回或者设置内部图案。Long 类型，可读写。可为下列 XlPattern 常量之一：

FillFormat 对象：返回或者设置填充图案。

Long 类型，只读。可为下列 MsoPatternType 常量之一：

另见

PatternColor 属性

示例

本示例为 Sheet1 中 A1 单元格的内部添加十字图案。

Worksheets("Sheet1").Range("A1"). _

Interior.Pattern = xlPatternCrissCross

PatternColor属性

适用于

Interior 对象

描述以 RGB 值的形式返回或者设置内部图案的颜色。Variant 类型，可读写。

另见

Color 属性， Pattern 属性， PatternColorIndex 属性

示例

本示例对 Sheet1 第一个矩形的内部图案的颜色进行设置。

With Worksheets("Sheet1").Rectangles(1).Interior

.Pattern = xlGrid

.PatternColor = RGB(255,0,0)

End With

PatternColorIndex属性

适用于

Interior 对象

描述

以当前调色板索引的形式返回或者设置内部图案的颜色，也可设为下列XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。Long 类型，可读写。

说明

将该属性设为 xlColorIndexAutomatic 可指定单元格自动选用图案，或者指定图形对象自动选用填充样式。将该属性设为 xlColorIndexNone 则可设置不使用图案（这样设置与将 Interior 对象的 Pattern 属性设为xlPatternNone 是一样的）。

另见

Color 属性， Colors 属性， Pattern 属性， PatternColor 属性

示例

本示例对 Sheet1 中第一个矩形的内部图案的颜色进行设置。

With Worksheets("Sheet1").Rectangles(1).Interior

.Pattern = xlChecker

.PatternColorIndex = 5

End With

Patterned方法

适用于

ChartFillFormat 对象，FillFormat 对象描述将指定填充设为图案。

句法

expression.Patterned(Pattern)

expression

必选。该表达式返回一个 FillFormat 对象。

Pattern

Long 类型，必选。图案类型。可为下列 MsoPatternType 常量之一：

示例

本示例为第一张图表设置填充图案。

With Charts(1).ChartArea.Fill

.Patterned msoPatternDiagonalBrick

.Visible = True

End With

Period属性

适用于

Trendline 对象

描述

返回或设置移动平均趋势线的周期。Long 类型，可读写。

另见

Type 属性

示例

本示例设置图表“Chart1”上移动平均趋势线的周期。本示例应在二维柱形图上运行，该柱形图中只有一个包含 10 个数据点的系列，并且有移动平均趋势线。

With Charts("Chart1").SeriesCollection(1).Trendlines(1)

If .Type = xlMovingAvg Then .Period = 5

End With

PersonalViewListSettings属性

适用于

Workbook 对象

描述

如果在共享工作簿的用户个人视图中有列表的筛选和排序设置，本属性为True。Boolean 类型，可读写。

另见

AutoUpdateFrequency 属性， MultiUserEditing 属性， PersonalViewPrintSettings 属性， SaveAs 方法

示例

本示例从第二个工作簿的用户个人视图中去掉打印设置及筛选和排序设置。

With Workbooks(2)

.PersonalViewListSettings = False

.PersonalViewPrintSettings = False

End With

PersonalViewPrintSettings属性

适用于

Workbook 对象

描述

如果在共享工作簿的用户个人视图中有打印设置，本属性为 True。Boolean类型，可读写。

另见

AutoUpdateFrequency 属性， MultiUserEditing 属性， PersonalViewListSettings 属性， SaveAs 方法

示例

本示例从第二个工作簿的用户个人视图中去掉打印设置及筛选和排序设置。

With Workbooks(2)

    .PersonalViewListSettings = False

    .PersonalViewPrintSettings = False

End With

Perspective属性

适用于

Chart 对象，ThreeDFormat 对象

描述

返回或者设置三维图表视图的透视系数。必须为 0 和 100 之间的整数。

如果 RightAngleAxes 属性为 True 可省略此属性。Long 类型，可读写。

另见

Elevation 属性， RightAngleAxes 属性， Rotation 属性

示例

本示例设置“Chart1”的透视系数为 70。

本示例应在三维图表上运行。

Charts("Chart1").RightAngleAxes = False

Charts("Chart1").Perspective = 70

Phonetic对象

描述

包含指定单元格的音标字符串的信息。在Microsoft Excel 97中，本对象包含指定范围内任何拼音文本的格式。使用Phonetic 对象用Phonetics(index)返回单个Phonetic对象，index是拼音文本的索引号。下例将活动单元格的第一个拼音文本设为“フリかギ”。

ActiveCell.Phonetics(1).Text = "フリかギ"

Phonetic属性与早期Microsoft Excel均兼容。用Phonetics(index)返回单个Phonetic对象，index是拼音文本的索引号。为演示与早期Microsoft Excel的兼容性，下例为A1:C4范围添加平假名。如果为某一范围添加平假名，一个新的Phonetic对象就会自动建立。

With Range(揂1:C4?.Phonetic

.CharacterType = xlHiragana

.Alignment = xlPhoneticAlignCenter

.Font.Name = 揗S Pツク?

.Font.FontStyle = 摫曜紨

.Font.Size = 6

.Font.Strikethrough = False

.Font.Underline = xlUnderlineStyleNone

.Font.ColorIndex = xlAutomatic

.Visible = True

End Width

属性

Alignment 属性，Application 属性，CharacterType 属性，Creator 属性，Font 属性，Parent 属性，Text 属性，Visible 属性

Phonetic 属性

适用于

Range 对象

描述

返回Phonetic 对象，该对象包含指定单元格的音标字符串的信息。

说明

Phonetic属性与早期Microsoft Excel均兼容。用Phonetics(index)返回单个Phonetic对象，index是拼音文本的索引号。

PhoneticCharacters 属性

适用于

Characters 对象

描述

返回或设置指定Characters 对象的拼音文本。可读写，String类型。

说明

如果不用本属性，可以用Phonetics 集合的Add方法为单元格添加音标信息，用Phonetic 对象的Text属性返回或设置单元格的拼音文本。

示例

本示例用平假字符替换活动单元格文本的第四个字符。

ActiveCell.Characters(1,3).PhoneticCharacters = “フリェガナ”

Phonetics 集合对象

描述

指定范围内所有语音对象的集合。每个语音对象都包含指定单元格的音标字符串的信息。

使用Phonetics 集合

用Phonetics属性返回Phonetics 集合。下例使范围A1:C4的所有拼音文本可见。

Range(A1:C4).Phonetics.Visible = True

用Phonetics(index)返回单个Phonetics对象，index是拼音文本的索引号。下例将活动单元格的第一个拼音文本设为“フリェガナ”。

ActiveCell.Phonetics(1).Text = "フリェガナ"

属性

Alignment 属性，Application 属性，CharacterType 属性，Count 属性，Creator 属性，Font 属性，Item 属性(Phonetics 集合)，Length 属性，Parent属性，Start 属性， Text 属性， Visible 属性

方法

Add方法（Phonetics集合），Delete方法

Phonetics 属性

适用于

Range 对象

描述

返回范围的Phonetics 集合。只读，Phonetics类型。

示例

本示例显示活动单元格内的所有Phonetic对象。

Set objPhon = ActiveCell.Phonetics

With objPhon

    For Each objPhonItem in objPhon

        MsgBox "Phonetic object: " & .Text

    Next

End With

PickUp 方法

适用于

Shape 对象，ShapeRange 集合对象

描述

复制指定形状的格式。可用 Apply 方法将所复制的格式应用到其它形状上。

句法

expression.PickUp

expression

必选。该表达式返回 Shape 对象或 ShapeRange 对象。

示例

本示例复制 myDocument 上第一个形状的格式，然后将所复制的形状应用到第二个形状上。

Set myDocument = Worksheets(1)

With myDocument

    .Shapes(1).PickUp

    .Shapes(2).Apply

End With

PictureFormat 对象

描述

包含应用于图片和 OLE 对象的属性和方法。LinkFormat 对象包含仅应用于链接的 OLE 对象的属性和方法；而 OLEFormat 对象包含的属性和方法既可应用于链接的 OLE 对象，也可应用于非链接的 OLE 对象。

使用PictureFormat 对象可用 PictureFormat 属性返回 PictureFormat 对象。下例设置了myDocument 上的第一个形状的亮度，对比度和颜色变换方式，然后从该形状底部裁去 18 磅高的部分。为使

本示例正常运行，第一个形状必须是图片或 OLE 对象。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).PictureFormat

.Brightness = 0.3

.Contrast = 0.7

.ColorType = msoPictureGrayScale

.CropBottom = 18

属性

Application 对象，Brightness 属性，ColorType 属性，Contrast 属性，Creator 属性，CropBottom 属性，CropLeft 属性，CropRight 属性，CropTop 属性，Parent 属性，TransparencyColor 属性，TransparentBackground 属性

方法

IncrementBrightness 方法，IncrementContrast 方法

PictureFormat 属性

适用于

Shape 对象，ShapeRange 集合对象

描述

返回 PictureFormat 对象，该对象包含指定形状的图片格式属性。应用于代表图片或 OLE 对象的 Shape 对象或 ShapeRange 对象。只读。

示例

本示例设置 myDocument 上第一个形状的亮度和对比度。第一个形状必须是图片或 OLE 对象。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).PictureFormat

    .Brightness = 0.3

    .Contrast = .75

End With

PictureType 属性

适用于

Floor 对象，LegendKey 对象，Point 对象，Series 对象，Walls 对象

描述

返回或者设置图形在一个柱形或条形图片图表上，或者三维图表背景墙和柱面上的显示方式。Variant 类型，可读写。可

为下列 XlPictureType 常量。

另见

PictureUnit 属性

示例

本示例设置“Chart1”中的第一个系列伸展图片。

本示例应在带图片数据标记的二维柱形图上运行。

Charts("Chart1").SeriesCollection(1).PictureType = xlStretch

PictureUnit 属性

适用于

LegendKey 对象，Point 对象，Series 对象，Walls 对象

描述

如果 PictureType 属性设为 xlScale，则返回或者设置图表上每一图片的单位，否则忽略此属性。Long 类型，可读写。

另见

PictureType 属性

示例

本示例将“Chart1”中的第一个系列设为堆积图片，设置每一图片代表五个单位。

本示例应在带图片数据标记的二维柱形图上运行。

With Charts("Chart1").SeriesCollection(1)

.PictureType = xlScale

.PictureUnit = 5

End With

Pie3DGroup 属性

适用于

Chart 对象

描述

返回一个 ChartGroup 对象，该对象代表三维图表中的饼图组。只读。

另见

PieGroups 方法

示例

本示例设置“Chart1”中的三维饼图组，使其中的每一数据标记使用不同的颜色。

Charts("Chart1").Pie3DGroup.VaryByCategories = True

PieGroups 方法

适用于

Chart 对象

描述

在一个二维图表中返回一个对象，该对象既可代表单个饼图组（一个ChartGroup 对象，句法 1），也可代表一个饼图组集合（一个 ChartGroups集合，句法 2）。

句法 1

expression.PieGroups(Index

句法 2

expression.PieGroups

expression

必选，该表达式返回一个 Chart 对象。

Index

Variant 类型，可选。指定图表组。

另见

AreaGroups 方法， BarGroups 方法， ChartGroups 方法， ColumnGroups 方法， DoughnutGroups 方法， LineGroups 方法， Pie3DGroup 属性

示例

本示例设置“Chart1”中的第一个饼图组，使其中的每一数据标记使用不同的颜色。

本示例应在二维图表上运行。

Charts("Chart1").PieGroups(1).VaryByCategories = True

PivotCache 方法

适用于

PivotTable 对象

描述

返回 PivotCache 对象，该对象代表指定数据透视表的高速缓存。只读。

句法

expression.PivotCache

expression

必选。该表达式返回 PivotTable 对象。

示例

本示例使数据透视表的高速缓存在构造时被优化。

Worksheets(1).PivotTables("Pivot1") _

.PivotCache.OptimizeCache = True

PivotCache 对象

描述

代表一个数据透视表的内存缓冲区。PivotCache 对象是 PivotCaches 集合的成员。

使用 PivotCache 对象

使用 PivotCache 方法可返回代表一个数据透视表的 PivotCache 对象（每一数据透视表只能有一个内存缓冲区）。下列示例对第一张数据透视表进行设置，每当打开其文件时就刷新第一张数据透视表。

Worksheets(1).PivotTables(1).PivotCache.RefreshOnFileOpen = True

使用 PivotCaches(index)（其中 index 为缓冲区编号）可返回工作簿的PivotCaches 集合中单个 PivotCache 对象。下列示例对第一个内存缓冲区进行刷新。

ActiveWorkbook.PivotCaches(1).Refresh

属性

Application 属性，BackgroundQuery 属性，CommandText 属性，CommandType 属性，Connention 属性，Creator 属性，EnableRefresh 属

性，Index 属性，LocalConnection 属性，MaintainConnection 属性，MemoryUsed 属性，OptimizeCache 属性，Parent 属性，QueryType 属性，RecordCount 属性，Recordset 属性，RefreshDate 属性，RefreshName属性，RefreshOnFileOpen 属性，RefreshPeriod 属性，SavePassword 属性，SourceData 属性，UseLocalConnection 属性

方法

CreatePivotTable 方法，Refresh 方法，ResetTimer 方法

PivotCache 属性

适用于

PivotLayout 对象

描述

返回 PivotCache 对象。只读。

示例

本示例将数据透视表高速缓存 (PivotTable3) 的刷新周期设置为 15 分钟。Set objPC = Worksheets("Sheet1").PivotTables("PivotTable3").PivotCacheobjPC.RefreshPeriod = 15

PivotCaches 集合对象

描述

代表工作簿中数据透视表内存缓冲区的集合。每一内存缓冲区由一个PivotCache 对象表示。

使用 PivotCaches 集合

使用 PivotCaches 方法可返回 PivotCaches 集合。下列示例对活动工作簿中所有数据透视表内存缓冲区的 RefreshOnFileOpen 属性进行设置。

For Each pc In ActiveWorkbook.PivotCaches

pc.RefreshOnFileOpen = True

Next

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Add 方法(PivotCaches 集合)，Item 方法(PivotCaches 集合)

PivotCaches 方法

适用于

Workbook 对象

描述

返回 PivotCaches 集合，该集合代表指定工作簿中所有的数据透视表高速缓存。只读。

句法

expression.PivotCaches

expression

必选。该表达式返回 Workbook 对象。

示例

本示例使工作簿每次打开时自动更新数据透视表高速缓存。

ActiveWorkbook.PivotCaches(1).RefreshOnFileOpen = True

PivotField 对象

描述

代表数据透视表中的字段。PivotField 对象是 PivotFields 集合的成员。PivotFields 集合包含数据透视表中所有字段对象的集合，包括隐藏字段。

使用PivotField 对象

可用 PivotFields(index) （其中 index 为数据透视表字段名称或编号）返回单个 PivotField 对象。下例使工作表“Sheet3”上第一张数据透视表中的字段“Year”成为行字段。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").Orientation = xlRowField

下列属性返回数据透视表字段的子集，在某些情况下，使用这些属性更为方便：

ColumnFields 属性

DataFields 属性

HiddenFields 属性

PageFields 属性

RowFields 属性

VisibleFields 属性

属性

Application 属性，AutoShowCount 属性，AutoShowField 属性，AutoShowRange 属性，AutoShowType 属性，AutoSortField 属性，AutoSortOrder 属性，BaseField 属性，BaseItem 属性，Calculation 属性，Caption 属性，ChildField 属性，ChildItems 属性，Creator 属性，CubeField属性，CurrentPage 属性，CurrentPageName 属性，DataRange 属性，DataType 属性，DragToColumn 属性，DragToData 属性，DragToHide 属性，DragToPage 属性，DragToRow 属性，DrilledDown 属性，Formula 属性，Function 属性，GroupLevel 属性，HiddenItems 属性，IsCalculated 属性，LabelRange 属性，LayoutBlankLine 属性，LayoutForm 属性，LayoutPageBreak 属性，LayoutSubtotalLocation 属性，MemoryUsed 属性，Name 属性，NumberFormat 属性，Orientation 属性，Parent 属性，ParentField 属性，ParentItems 属性，Position 属性，ServerBased 属性，ShowAllItems 属性，SourceName 属性，SubtoatalName 属性，Subtotals 属性，TotalLevels 属性，Value 属性，VisibleItems 属性方法

AutoShow 方法，AutoSort 方法，CalculatedItems 方法，Delete 方法，PivotItems 方法

PivotField 属性

适用于

Range 对象

描述

返回 PivotField 对象，该对象代表包含指定区域左上角单元格的数据透视表字段。只读。

示例

本示例包含活动单元格的数据透视表字段的名称。

Worksheets("Sheet1").Activate

MsgBox "The active cell is in the field " & _

ActiveCell.PivotField.Name

PivotFields 集合对象

描述

数据透视表中所有 PivotField 对象的集合。

使用PivotFields 集合

可用 PivotFields 方法返回 PivotFields 集合。下例列举了工作表“Sheet3”上第一张数据透视表中的字段名称。

With Worksheets("sheet3").PivotTables(1)

For i = 1 To .PivotFields.Count

MsgBox .PivotFields(i).Name

Next

End With

可用 PivotFields(index) （其中 index 为数据透视表字段名称或编号）返回单个 PivotField 对象。下例使工作表“Sheet3”上第一张数据透视表中的字段“Year”成为行字段。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").Orientation = xlRowField

下列存取器方法返回数据透视表字段的子集，在某些情况下，使用这些属性更为方便：

ColumnFields 属性

DataFields 属性

HiddenFields 属性

PageFields 属性

RowFields 属性

VisibleFields 属性

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Items 方法(PivotFields 集合)

PivotFields 方法

适用于

PivotTable 对象

描述

返回代表数据透视表中单个字段（PivotField 对象，句法 1）或所有可见及隐藏字段的集合（PivotFields 对象，句法 2）的对象。只读。

句法 1

expression.PivotFields(Index)

句法 2

expression.PivotFields

expression

必选。该表达式返回 PivotTable 对象。

Index

Variant 类型，可选。要返回的数据透视表字段的名称或编号（本参数可为数组，以指定若干字段）。

说明

对于OLAP数据源，没有隐藏字段，返回的集合或对象表示的是当前可见的内容。

另见

ColumnFields属性， DataFields属性， HiddenFields属性， PageFields属性， RowFields属性， VisibleFields属性

示例

本示例向新工作表添加数据透视表字段名称。

Set nwSheet = Worksheets.Add

nwSheet.Activate

Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable

rw = 0

For Each pvtField In pvtTable.PivotFields

    rw = rw + 1

    nwSheet.Cells(rw, 1).Value = pvtField.Name

Next pvtField

PivotFields 属性

适用于

PivotLayout 对象

描述

返回一个 PivotLayout 对象，它代表数据透视表报表中字段的位置以及数据透视图报表中坐标轴的位置。只读。

示例

本示例为第一个数据透视图报表中所使用的所有数据透视表字段的名称创建一个列表。

Set objNewSheet = Worksheets.Add

objNewSheet.Activate

intRow = 1For Each objPF In _

    Charts("Chart1").PivotLayout.PivotFields

    objNewSheet.Cells(intRow, 1).Value = objPF.Caption

    intRow = intRow + 1

Next objPF

PivotFormula 对象

描述

代表在一张数据透视表中用于计算结果的公式。

说明

本对象及其相关属性和方法对于 OLAP 数据源无效，因为不支持计算字段和项。

使用 PivotFormula 对象

使用 PivotFormulas(index)（其中 index 为数据透视表公式左侧的公式号或字符串）可返回 PivotFormula 对象。下列示例对第一个公式的索引号进行更改，使其在第二个公式计算完毕之后进行计算。

Worksheets(1).PivotTables(1).PivotFormulas(1).Index = 2

属性

Application 属性，Creator 属性，Formula 属性，Index 属性，Parent 属性，Value 属性

方法

Delete 方法

PivotFormulas 集合对象

描述

代表数据透视表的所有公式的集合。每一公式由一个 PivotFormula 对象表示。

说明

本对象及其相关的属性和方法对于 OLAP 数据源无效，因为不支持计算字段和计算项。

使用 PivotFormulas 集合

使用 PivotFormulas 方法可返回 PivotFormulas 集合。下列示例为第一张数据透视表创建一个数据透视表公式列表。

For Each pf in ActiveSheet.PivotTables(1).PivotFormulas

Cells(r, 1).Value = pf.Formula

r = r + 1

Next

属性

Application 属性，Count 属性，Creator 属性， Parent 属性

方法

Add 方法(PivotFormulas 集合)，Item 方法(PivotFormulas 集合)

PivotFormulas 属性

适用于

PivotTable 对象

描述

返回一个 PivotFormulas 对象，该对象代表指定数据透视表的数据透视公式的集合。只读。

句法

expression.PivotFormulas()

expression

必选。该表达式返回一个 PivotTable 对象。

说明

对于OLAP数据源，本属性返回空集合。

示例

本示例为第一个数据透视表创建一个公式列表。

For Each pf in ActiveSheet.PivotTables(1).PivotFormulas

    r = r + 1

    Cells(r, 1).Value = pf.Formula

Next

PivotItem 对象

描述

代表数据透视表字段中的数据项。这些数据项为字段分类中的独立数据。PivotItem 对象是 PivotItems 集合的成员。PivotItems 集合包含 PivotField对象中所有的数据项。

使用PivotItem 对象

可用 PivotItems(index) （其中 index 为数据透视表项目编号或名称）返回单个 PivotItem 对象。下例隐藏工作表“Sheet3”上第一张数据透视表中所有在字段“Year”中包含“1998”的数据项。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").PivotItems("1998").Visible = False

属性

Application 属性，Caption 属性，ChildItems 属性，Creator 属性，DataRange 属性， DrilledDown 属性，Formula 属性， IsCalculated 属性，LabelRange 属性， Name 属性， Parent 属性， ParentItems 属性，

ParentShowDetail 属性，Position 属性，RecordCount 属性，ShowDetail 属性，SourceName 属性， Value 属性，Visible 属性方法Delete

方法

PivotItem 属性

适用于

Range 对象

描述

返回 PivotItem 对象，该对象代表包含指定区域左上角单元格的数据透视表数据项。只读。

示例

本示例显示包含工作表“Sheet1”中活动单元格的数据项的名称。

Worksheets("Sheet1").Activate

MsgBox "The active cell is in the item " & _

ActiveCell.PivotItem.Name

PivotItems 集合对象

描述

数据透视表字段中所有 PivotItem 对象的集合。这些对象为字段分类中的独立数据项。

使用PivotItems 集合对象

可用 PivotItems 方法返回 PivotItems 集合。下例创建工作表“Sheet4”上第一张数据透视表中所有的字段名和字段中数据项名的列表。

Worksheets("sheet4").Activate

With Worksheets("sheet3").PivotTables(1)

c = 1

For i = 1 To .PivotFields.Count

r = 1

Cells(r, c) = .PivotFields(i).Name

r = r + 1

For x = 1 To .PivotFields(i).PivotItems.Count

Cells(r, c) = .PivotFields(i).PivotItems(x).Name

r = r + 1

Next

c = c + 1

Next

End With

可用 PivotItems(index) （其中 index 为数据透视表数据项编号或名称）返回单个 PivotItem 对象。下例隐藏工作表“Sheet3”上第一张数据透视表中所有在字段“Year”中包含“1998”的数据项。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").PivotItems("1998").Visible = False

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Add 方法(PivotItems 集合)，Item 方法(PivotItems 集合)

PivotItems 方法

适用于

PivotField 对象

描述

返回一个对象。该对象或者代表数据透视表中指定字段中的单个数据项（PivotItem 对象，句法 1）或者代表所有可见和隐藏数据项的集合（PivotItems 集合，句法 2）。只读。

句法 1

expression.PivotItems(Index)

句法 2

expression.PivotItems

expression

必选。该表达式返回 PivotField 对象。

Index

Variant 类型，可选。要返回的数据项的名称或编号（本参数可为数组，以指定若干数据项）。

说明

对于 OLAP 数据源，该集合是根据唯一名称来建立索引的（由 SourceName属性返回的名称），而不是根据显示的名称建立索引。

另见

ChildItems属性， HiddenItems属性， ParentITems属性， VisibleItems属性

示例

本示例将“product”字段中所有数据项的名称列表添加到新工作表中。

Set nwSheet = Worksheets.Add

nwSheet.Activate

Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable

rw = 0

For Each pvtitem In pvtTable.PivotFields("product").PivotItems

    rw = rw + 1

    nwSheet.Cells(rw, 1).Value = pvtitem.Name

Next

PivotLayout 对象

描述

代表数据透视图报表中字段的位置。

使用 PivotLayout 对象使用 PivotLayout 属性可返回 PivotLayout 对象。下例创建在第一个数据透视图报表中所使用的数据透视表字段名称的列表。

Set objNewSheet = Worksheets.Add

intRow = 1

For Each objPF In _

Charts("Chart1").PivotLayout.PivotFields

objNewSheet.Cells(intRow, 1).Value = objPF.Caption

intRow = intRow + 1

Next objPF

属性

Application 属性，ColumnFields 属性，Creator 属性，CubeFields 属性，DataFields 属性，HiddenFields 属性，InnerDetail 属性，PageFields 属性，Parent 属性，PivotCache 属性，PivotFields 属性，PivotTables 属性，RowFields 属性，VisibleFields 属性

方法

AddFields 方法

PivotLayout 属性

适用于

Chart 对象

描述

返回一个 PivotLayout 对象，它代表数据透视表报表中字段的位置以及数据透视图报表中坐标轴的位置。只读。

说明

如果指定图表不是一个数据透视图报表，则本属性的值为 Nothing。

示例

本示例为第一个数据透视图报表中所使用的所有数据透视表字段的名称创

建一个列表。

Set objNewSheet = Worksheets.Add

objNewSheet.Activate

intRow = 1

For Each objPF In _

    Charts("Chart1").PivotLayout.PivotFields

    objNewSheet.Cells(intRow, 1).Value = objPF.Caption

    intRow = intRow + 1

Next objPF

PivotSelect 方法

适用于

PivotTable 对象

描述

选定数据透视表的一部分。

句法

expression.PivotSelect(Name, Mode)

expression

该表达式返回 PivotTable 对象。NameString 类型，必选。以标准数据透视表选定格式给出选定区域。

Mode

Long 类型，必选。指定结构化的选定模式。可为下列 XlPTSelectionMode 常量之一：xlBlanks，xlButton，xlDataAndLabel，xlDataOnly，xlFirstRow，xlLabelOnly 或 xlOrigin。缺省常量是xlDataAndLabel。

说明

只能使用指定模式选择数据透视表报表中的相应项。例如，不能使用xlButton 模式选择数据和标志；同样，也不能使用 xlDataOnly 模式选择按钮。

示例

本示例选定第一张数据透视表上的所有日期标志。

Worksheets(1).PivotTables(1).PivotSelect "date[All]", xlLabelOnly

PivotSelection 属性

适用于

PivotTable 对象

描述

以标准数据透视表选定格式返回或设置数据透视表选定区域。String 类型，可读写。

说明

设置本属性，等价于用设置为xlDataAndLabel的 Mode 参数调用PivotSelect 方法。

示例

本示例在第一张数据透视表上选定销售员“Bob”的数据和标志。

Worksheets(1).PivotTables(1).PivotSelection = "Salesman[Bob]"

PivotTable 对象

描述

代表工作表上的数据透视表。PivotTable 对象是 PivotTables 集合的成员。PivotTables 集合包含单个工作表上的所有 PivotTable 对象。

使用PivotTable 对象

可用 PivotTables(index) （其中 index 为数据透视表编号或名称）返回单个 PivotTable 对象。下例使工作表“Sheet3”上第一张数据透视表中的字段“Year”成为行字段。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").Orientation = xlRowField

说明

因为对数据透视表编程可能会很复杂，所以，最方便的做法是将数据透视表操作录制到宏中，然后再修订所录制的宏代码。在“工具”菜单中选择“宏”命令，再单击“录制新宏”，即可录制宏。

属性

Application 属性，CacheIndex 属性，ColumnFields 属性，ColumnGrand属性，ColumnRange 属性，Creator 属性，CubeFields 属性，DataBodyRange 属性，DataFields 属性，DataLabelRange 属性，DisplayErrorString 属性，DisplayNullString 属性，EnableDrillDown 属性，EnableFieldDialog 属性，EnableWizard 属性，ErrorString 属性，GrandTotalName 属性，HasAutoFormat 属性，HiddenFields 属性，InnerDetail 属性，ManualUpdate 属性，MergeLabels 属性，Name 属性，NullString 属性，PageFieldOrder 属性，PageFields 属性，PageFieldStyle 属性，PageFieldWrapCount 属性，PageRange 属性，PageRangeCells 属性，Parent 属性，PivotFormulas 属性，PivotSelection 属性，PreserveFormatting属性，PrintleTitles 属性，RefreshData 属性，Refresh Name 属性，RepeatItemsOnEachPrintedPage 属性，RowFields 属性，RowGrand 属性，RowRange 属性，SaveData 属性，SelectionMode 属性，SmallGrid 属性，SourceData 属性，SubtotalHiddenPageItems 属性，TableRange1 属性，TableRange2 属性，TableStyle 属性，Tag 属性，VacatedStyle 属性，Value 属性，VisibleFields 属性方法

AddFields 方法，CalculatedFields 方法，Format 方法，GetData 方法，ListFormulas 方法，PivotCache 方法，PivotFields 方法，PivotSelect 方法，PivotTableWizard 方法，RefreshTable 方法，ShowPages 方法，Update方法

PivotTable 属性

适用于

PivotLayout 对象，Range 对象

描述

返回 PivotTable 对象，该对象代表包含指定区域左上角单元格的数据透视表。只读。

示例

本示例将工作表“Sheet1”上的数据透视表的当前页设置为“Canada”页。

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTablepvtTable

.PivotFields("Country").CurrentPage = "Canada"

本示例确定与“Sales”图表相关联的数据透视表报表，接着将名为“Oregon”的页设置成为数据透视表报表的当前页。

Set objPT = _

    ActiveSheet.Charts("Sales").PivotLayout.PivotTable

objPT.PivotFields("State").CurrentPageName = "Oregon"

PivotTables 集合对象

描述

指定工作表上所有 PivotTable 对象的集合。

使用PivotTables 集合

可用 PivotTables 方法返回 PivotTables 集合。下例显示工作表“Sheet3”上数据透视表的个数。

MsgBox Worksheets("sheet3").PivotTables.Count

可用 PivotTableWizard 方法创建数据透视表并将其添加到集合中。下例从Microsoft Excel 数据库（包含于单元格区域“A1:C100”中）中创建新数据透视表

ActiveSheet.PivotTableWizard xlDatabase, Range("A1:C100")

可用 PivotTables(index) （其中 index 为数据透视表编号或名称）返回单个 PivotTable 对象。下例使工作表“Sheet3”上第一张数据透视表中的字段“Year”成为行字段。

Worksheets("sheet3").PivotTables(1) _

.PivotFields("year").Orientation = xlRowField

说明

因为对数据透视表编程可能会很复杂，所以，最方便的做法是将数据透视表操作录制到宏中，然后再修订所录制的宏代码。在“工具”菜单中选择“宏”命令，再单击“录制新宏”，即可录制宏。

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Add 方法(PivotTables 集合)，Item 方法(PivotTables 集合)

PivotTables 方法

适用于

Worksheet 对象

描述

返回一个对象。该对象代表工作表上单个数据透视表（PivotTable 对象，句法 1）或所有数据透视表的集合（PivotTables 对象，句法 2）。只读。

句法 1

expression.PivotTables(Index)

句法 2

expression.PivotTables

expression

必选。该表达式返回 Worksheet 对象。

Index

Variant 类型，可选。要返回的数据透视表的名称或编号（本参数可为数组，以指定若干数据透视表）。

另见

PivotFields 方法， PivotItems 方法

示例

本示例使数据透视表“PivotTable1”中的“Sum of 1994”字段使用“SUM”函数。

ActiveSheet.PivotTables("PivotTable1"). _

PivotFields("Sum of 1994").Function = xlSum

PivotTableSelection 属性

适用于

Application 对象

描述

如果数据透视表使用结构化选定区域则为 True。Boolean 类型，可读写。

另见

SelectionMode 属性

示例

本示例打开结构化选定区域模式，然后对第一张数据透视表进行设置，只

允许选定数据。

Application.PivotTableSelection = True

Worksheets(1).PivotTables(1).SelectionMode = xlDataOnly

PivotTableWizard 方法

适用于

PivotTable 对象，Worksheet 对象

描述

创建一个 PivotTable 对象。本方法并不显示“数据透视表向导”。本方法对 OLE DB 数据源无效。使用 Add 方法可添加一个数据透视表高速缓存，然后基于该高速缓存创建数据透视表报表。

句法

expression.PivotTableWizard(SourceType, SourceData, TableDestination,TableName, RowGrand, ColumnGrand, SaveData, HasAutoFormat, AutoPage,Reserved, BackgroundQuery, OptimizeCache, PageFieldOrder,PageFieldWrapCount, ReadData, Connection)

expression

必选。该表达式返回 Worksheet 或 PivotTable 对象。

SourceType

Variant 类型，可选。报表数据源的类型。可为下表所列的XlPivotTableSourceType 常量之一。

如果指定了本参数，那么必须同时指定 SourceData。如果省略了SourceType 和 SourceData，Microsoft Excel 将假定源类型为 xlDatabase，并假定源数据处于命名区域“Database”内。如果不存在该命名区域，那么当选定区域所在的当前区中包含数据的单元格超过 10 个时， MicrosoftExcel 就使用该当前区。否则，本方法将失败。

SourceData

可选，Variant 类型。新报表的数据。可以是 Range 对象，一个区域数组，或是代表另一报表名称的一个文本常量。对于一个外部数据库，SourceData是一个包含 SQL 查询字符串的字符串数组，每一元最长为 256 个字符。使用 Connection 参数可指定 ODBC 连接字符串。为了和早期的 Excel 版本兼容，SourceData 可以是一个二元数组。第一元是指定数据 ODBC 源的连接字符串。第二元是用来取得数据的 SQL 查询字符串。如果指定SourceData，就必须指定 SourceType。如果活动的单元格在 SourceData 区域内，就必须同时指定 TableDestination。

TableDestination

Variant 类型，可选。指定报表在工作表中位置的 Range 对象。如果省略本参数，则报表将置于活动单元格的位置上。

TableName

Variant 类型，可选。指定新报表名称的字符串。

RowGrand

Variant 类型，可选。若指定为 True，则显示报表中的行总计。

ColumnGrand

Variant 类型，可选。若指定为 True，则显示报表中的列总计。

SaveData

Variant 类型，可选。若指定为 True，则保存报表中的数据。若指定为False，则仅保存报表的定义。

HasAutoFormat

Variant 类型，可选。如果指定为 True，那么当更新报表或移动字段时，Microsoft Excel 将自动设置其格式。

AutoPage

Variant 类型，可选。仅当 SourceType 为 xlConsolidation 时才有效。若指定为 True，则 Microsoft Excel 将为合并计算创建页字段。若 AutoPage为 False，则必须手动创建页字段。Reserved

Variant 类型，可选。不在 Microsoft Excel 中使用。

BackgroundQuery

Variant 类型，可选。若指定为 True，则 Excel 将异步（后台执行）执行对报表的查询。默认值为 False。

OptimizeCache

Variant 类型，可选。如果对数据透视表的高速缓存进行优化，则为 True。默认值为 False。

PageFieldOrder

Variant 类型，可选。在数据透视表报表布局中页字段的排列顺序。可为下列 XlOrder 常量之一： xlDownThenOver 或 xlOverThenDown。默认值为 xlDownThenOver。

PageFieldWrapCount

Variant 类型，可选。数据透视表报表中每列或每行中的页字段数。默认值为 0（零）。

ReadData

Variant 类型，可选。如果本参数为 True，则创建数据高速缓存以便保存从外部数据库导入的记录，该缓存可以很大。如果 ReadData 为 False，可以在真正对某些字段执行读操作之前，将这些字段设为基于服务器的页字段。

Connection

可选，Variant 类型。包含 ODBC 设置的字符串，这些设置使得 Excel 可以连接 ODBC 数据源。该字符串的格式为“ODBC;<连接字符串>”。该参数将取代以前对 PivotCache 对象的 Connection 属性的设置。

另见

Add 方法(PivotCaches 集合)， CreatePivotTable 方法

示例

本示例从 Microsoft Excel 数据库（包含在单元格区域“A1:C100”中）中创建数据透视表。

ActiveSheet.PivotTableWizard xlDatabase, Range("A1:C100")

PixelsPerInch 属性

适用于

DefaultWebOptions 对象，WebOptions 对象

描述

返回或设置 Web 页上图形图像和表格单元格的密度（每英寸像素数）。设置范围通常是 19 到 480，对于常用屏幕大小的通常设置为 72，96 和120。默认设置为 96。可读写。Long 类型。

说明

每次在 Web 浏览器中查看保存的文档时，本属性都可用于确定指定 Web页上图像和单元格相对于文本的大小。最后产生的图像或单元格的物理大小等于其原始尺寸（单位：英寸）乘以每英寸的像素数。

使用 ScreenSize 属性可设置目标浏览器的最佳屏幕尺寸。

示例

本示例根据浏览器的目标屏幕大小来设置像素密度。对于 800x600 像素的屏幕，其密度为 72 像素/英寸。对于 1024x768 像素的屏幕，其密度为 96 像素/英寸。对于所有其它情况，则使用的密度为 120 像素/英寸。

With Application.DefaultWebOptions

    Select Case .ScreenSize

        Case msoScreenSize800x600

            .PixelsPerInch = 72

        Case msoScreenSize1024x768

.PixelsPerInch = 96

        Case Else

            .PixelsPerInch = 120

    End Select

End With

Placement 属性

适用于

ChartObject 对象，ChartObjects 集合对象，OLEObject 对象，OLEObjects集合对象，Shape 对象

描述

返回或者设置对象与所在的单元格之间的附属关系。可为下列 XlPlacement常量之一： xlMoveAndSize，xlMove 或 xlFreeFloating。仅用于工作表上的对象。Long 类型，可读写。

示例

本示例设置 Sheet1 中的第一个嵌入式图表为可自由浮动（既不随下方单元格移动，也不随其改变大小）。

Worksheets("Sheet1").ChartObjects(1).Placement = xlFreeFloating

Play 方法

适用于

SoundNote 对象

描述

不能使用此方法。声音附注已从 Microsoft Excel 中删除。

另见

Record 方法

PlotArea 对象

描述

代表图表的图形区。该区域为绘制图表数据的区域。二维图表中的图形区包含数据标记，网格线，数据标志，趋势线和可选的置于图表区内的项目。三维图表的图形区中除包含上述各项外，还包含背景墙，基底，坐标轴，坐标轴标题和刻度线标志。

图形区为图表区所包围。二维图表的图表区包含坐标轴，图表标题，坐标轴标题和图例。三维图表的图表区包含图表标题和图例。关于设置图表区格式的详细内容，

另见 ChartArea 对象。

使用PlotArea 对象

可用 PlotArea 属性返回 PlotArea 对象。下例激活图表工作表“Chart1”，将活动图表的图表区置为虚线边框，图形区置为点线边框。

Charts("Chart1").Activate

With ActiveChart

.ChartArea.Border.LineStyle = xlDash

.PlotArea.Border.LineStyle = xlDot

End With

属性

Application 属性，Border 属性，Creator 属性，Fill 属性，Height 属性，InsideHeight 属性，InsideLeft 属性，InsideTop 属性，InsideWidth 属性，Interior 属性，Left 属性，Name 属性，Parent 属性，Top 属性，Width 属性

方法

ClearFormats 方法，Select 方法

PlotArea 属性

适用于

Chart 属性

描述

返回一个 PlotArea 对象，该对象代表图表的绘图区域。只读。

示例

本示例将“Chart1”绘图区域的内部颜色设为淡青色。

Charts("Chart1").PlotArea.Interior.ColorIndex = 8

PlotBy 属性

适用于

Chart 对象

描述

返回或设置行和列在图表中作为数据系列使用的方式。可为下列 XlRowCol常量之一：xlColumns 或 xlRows。Long 类型，可读写。对于数据透视图报表，本属性是只读的，并且总返回 xlColumns。

示例

本示例使内嵌图表按列分布数据。

Worksheets(1).ChartObjects(1).Chart.PlotBy = xlColumns

PlotOrder 属性

适用于

Series 对象

描述

返回或设置指定图表组中选定数据系列的绘制顺序。Long 类型，可读写。

说明

只能设置图表组内的绘制顺序（在图表中包含若干图表类型的情况下，不能设置整个图表的绘制顺序）。图表组指具有相同图表类型和子类型的数据系列的集合。

修改某个系列的绘制顺序将导致同一图表组内其它数据系列的绘制顺序的必要调整。

示例

本示例使图表“Chart1”中的第二个数据系列在绘制时第三个出现。本示例应在至少包含三个数据系列的二维柱形图上运行。

Charts("Chart1").ChartGroups(1).SeriesCollection(2).PlotOrder = 3

PlotVisibleOnly 属性

适用于

Chart 对象

描述

如果仅绘制可见单元格，本属性为 True。如果可见单元格和隐藏单元格都绘制，本属性为 False。Boolean 类型，可读写。

示例

本示例使 Microsoft Excel 在图表“Chart1”中仅绘制可见单元格。Charts("Chart1").PlotVisibleOnly = True

Point 对象

描述

代表图表上系列中的单个数据点。Point 对象是 Points 集合的成员。Points集合包含一个系列中的所有数据点。

使用Point 对象

可用 Points(index) （其中 index 为数据点编号）返回单个 Point 对象。系列中的数据点按从左至右的顺序编号。Points(1) 为最左边的数据点，而Points(Points.Count) 为最右边的数据点。下例设置第一张工作表上第一张内嵌图表中的第一个系列的第三个数据点的数据标记样式。指定的系列必须为二维折线图，散点图或雷达图中的系列。

Worksheets(1).ChartObjects(1).Chart. _

SeriesCollection(1).Points(3).MarkerStyle = xlDiamond

属性

Application 属性，ApplyPictToEnd 属性，ApplyPictToFront 属性，ApplyPictToSides 属性，Border 属性，Creator 属性，DataLabel 属性，Explosion 属性，Fill 属性，HasDataLabel 属性，Interior 属性，InvertIfNegative 属性，MarkerBackgroundColor 属性，MarkerBackgroundColorIndex 属性，MarkerForegroundColor 属性，MarkerForegroundColorIndex 属性，MarkerSize 属性，MarkerStyle 属性，Parent 属性，PictureType 属性，PictureUnit 属性，SecondaryPlot 属性，Shadow 属性

方法

ApplyDataLabels 方法，ClearFormats 方法，Copy 方法，Delete 方法，Paste 方法(Point 或 Series 对象)，Select 方法

Points 集合对象

描述

图表中指定的系列内所有 Point 对象的集合。

使用Points 集合

可用 Points 方法返回 Points 集合。下例向第一张工作表上第一张内嵌图表中的第一个系列的最后一个数据点添加数据标记。

Dim pts As Points

Set pts = Worksheets(1).ChartObjects(1).Chart. _

SeriesCollection(1).Points

pts(pts.Count).ApplyDataLabels type:=xlShowValue

可用 Points(index) （其中 index 为数据点编号）返回单个 Point 对象。系列中的数据点按从左至右的顺序编号。Points(1) 为最左边的数据点，而Points(Points.Count) 为最右边的数据点。下例设置第一张工作表上第一张内嵌图表中的第一个系列的第三个数据点的数据标记样式。指定的系列必须为二维折线图，散点图或雷达图中的系列。

Worksheets(1).ChartObjects(1).Chart. _

SeriesCollection(1).Points(3).MarkerStyle = xlDiamond

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Item 方法(Points 集合)

Points 方法

适用于

Series 对象

描述

返回代表系列中单个数据点（Point 对象，句法 1）或所有数据点的集合（Points 对象，句法 2）的对象。只读。

句法 1

expression.Points(Index)

句法 2

expression.Points

expression

必选。该表达式返回 Series 对象。

Index

Variant 类型，可选。数据点的名称或编号。

示例

本示例对图表“Chart1”上第一个数据系列的第一个数据点应用数据标志。

Charts("Chart1").SeriesCollection(1).Points(1).ApplyDataLabels

Points 属性

适用于

ShapeNode 对象

描述

以坐标对的形式返回指定节点的位置。坐标以磅为单位表示。Variant 类型，只读。

说明本属性为只读属性。可用 SetPosition 方法设置本属性的值。

示例

本示例将 myDocument 上第三个形状的第二个节点移到原位置的下方 300磅和右边 200 磅的位置上。第三个形状必须是任意多边形。

Set myDocument = Worksheets(1)

With myDocument.Shapes(3).Nodes

pointsArray = .Item(2).Points

    currXvalue = pointsArray(1, 1)

    currYvalue = pointsArray(1, 2)

    .SetPosition 2, currXvalue + 200, currYvalue + 300

End With

PointsToScreenPixelsX 方法

适用于

Window 对象

描述

将横向度量值由以点（文档坐标）为单位转换为以屏幕像素（屏幕坐标）为单位。返回转变后的度量值（Long 类型）。

句法

expression.PointsToScreenPixelsX(Points)

expression

一个返回 Window 对象的表达式。

Points

必选。Long 类型。文档窗口中从左端开始沿其顶部的横向点数。

示例

本示例确定活动窗口中选定单元格的高度和宽度（单位：像素），并将值返回到变量 lWinWidth 和 lWinHeight 中。

With ActiveWindow

    lWinWidth = _

  .PointsToScreenPixelsX(.Selection.Width)

    lWinHeight = _

        .PointsToScreenPixelsY(.Selection.Height)

End With

PointsToScreenPixelsY 方法

适用于

Window 对象

描述

将纵向度量值由以点（文档坐标）为单位转换为以屏幕像素（屏幕坐标）为单位。返回转变后的度量值（Long 类型）。

句法

expression.PointsToScreenPixelsY(Points)

expression

一个返回 Window 对象的表达式。

Points

必选。Long 类型。文档窗口中从顶部开始沿其左边缘的横向点数。

示例

本示例确定活动窗口中选定单元格的高度和宽度（单位：像素），并将值返回到 lWinWidth 和 lWinHeight 变量中。

With ActiveWindow

    lWinWidth = _

        .PointsToScreenPixelsX(.Selection.Width)

lWinHeight = _

        .PointsToScreenPixelsY(.Selection.Height)

End With

Position 属性

适用于

CubeField 对象，DataLabel 对象，DataLabels 集合对象，Legend 对象，PivotField 对象，PivotItem 对象

描述

返回或者设置指定对象的位置，如下表所示。Long 类型，可读写。

对象 位置

DataLabel, DataLabels 数据标记的位置。可为下列 XlDataLabelPosition 常数之一：xlLabelPositionAbove,xlLabelPositionBelow,xlLabelPositionBestFit,xlLabelPositionCenter,xlLabelPositionCustom,xlLabelPositionInsideBase,xlLabelPositionInsideEnd,xlLabelPositionLeft,xlLabelPositionMixed,xlLabelPositionOutsideEnd或xlLabelPositionRight.

Legend 图表中的图例的位置。可为下列 XlLegendPosition常数之一：xlLegendPositionBottom,xlLegendPositionCorner,xlLegendPositionLeft,xlLegendPositionRight或xlLegendPositionTop 。

PivotField,CubeFields 数据透视表上所有字段的位置，包括属于所有行，列，页以及数据中的字段（第一字段，第二字段，第三字段等等）。

对于层次字段集合而言，当它从字段域中拖出时，代表数据透视表中的层次字段位置。

PivotItem数据项在字段中的位置（如果该数据项可见）。

示例

本示例将图表中的图例移到图表的底部。

Charts(1).Legend.Position=xlLegendPositionBottom

本示例显示包含活动单元格的数据透视表数据项的位置数字。

Worksheets("Sheet1").Activate

MsgBox "The active item is in position number " & _

ActiveCell.PivotItem.Position

Post 方法

适用于

Workbook 对象

描述

将指定工作簿发送到一个公共文件夹。本方法仅应用于与 MicrosoftExchange 服务器连接的 Microsoft Exchange 客户。

句法

expression.Post(DestName)

expression

必选。该表达式返回一个 Workbook 对象。

DestNameVariant

类型，可选。本参数可忽略。Post 方法可提示用户指定工作簿的目的地。

示例

本示例邮送当前工作簿。ActiveWorkbook.Post

PostText 属性

适用于

QueryTable 对象

描述

返回或者设置用于 post 方法的字符串，post 方法用于向 Web 服务器输入数据以从 Web 查询中返回数据。String 类型，可读写。

说明

Microsoft Excel 带有 Web 查询示例，使用 WordPad 或其它文本编辑器可对其中的 HTML 代码进行修改。查询示例在 Microsoft Office 的安装文件夹的 Queries 文件夹中。

Precedents 属性

适用于

Range 对象

描述

返回 Range 对象，该对象代表单元格的所有引用单元格。如果有若干引用单元格，那么该区域可能是多块的选定区域（Range 对象的联合）。只读。

另见

Dependents 属性， DirectDependents 属性， DirectPrecedents 属性， ShowPrecedents 方法

示例

本示例选定工作表“Sheet1”中单元格“A1”的引用单元格。

Worksheets("Sheet1").Activate

Range("A1").Precedents.Select

PrecisionAsDisplayed 属性

适用于

Workbook 对象

描述

如果指定工作簿中的计算是按照屏幕显示的数字精度完成则为 True。Boolean 类型，可读写。

示例

本示例设置当前工作簿的计算仅使用显示的数字精度。

ActiveWorkbook.PrecisionAsDisplayed = True

PrefixCharacter 属性

适用于

Range 对象

描述

返回单元格的前缀字符。Variant 类型，只读。

说明

如果 TransitionNavigKeys 属性为 False，该前缀字符为“ ' ”表示文本标志。如果 TransitionNavigKeys 属性为 True，该前缀字符为“ ' ”表示左对齐标志，为“ ”表示右对齐标志，为“ ^ ”表示居中标志，为“ \ ”表示重复标志。

示例

本示例显示工作表“Sheet1”中单元格“A1”的前缀字符。

MsgBox "The prefix character is " & _

Worksheets("Sheet1").Range("A1").PrefixCharacter

PreserveColumnInfo 属性

适用于

QueryTable 对象

描述

如果每次刷新查询表时，列排序，筛选和布局信息都会保留，则其值为True。默认值为 False。可读写，Boolean 类型。

说明

只有当查询表使用数据库连接时，本属性才有效。可以将本属性设置为 False，以便与 Microsoft Excel 的早期版本兼容。

示例

本示例保留列排序，筛选和布局信息，以便与 Microsoft Excel 的早期版本兼容。

Dim cnnConnect As ADODB.Connection

Dim rstRecordset As ADODB.Recordset

Set cnnConnect = New ADODB.Connection

cnnConnect.Open "Provider=SQLOLEDB;" & _

    "Data Source=srvdata;" & _

    "User ID=wadet;Password=4me2no;"

Set rstRecordset = New ADODB.Recordset

rstRecordset.Open _

    Source:="Select Name, Quantity, Price From Products", _

    ActiveConnection:=cnnConnect, _

    CursorType:=adOpenDynamic, _

    LockType:=adLockReadOnly, _

    Options:=adCmdText

With ActiveSheet.QueryTables.Add( _

Connection:=rstRecordset, _

        Destination:=Range("A1"))

    .Name = "Contact List"

    .FieldNames = True

    .RowNumbers = False

    .FillAdjacentFormulas = False

    .PreserveFormatting = True

    .RefreshOnFileOpen = False

    .BackgroundQuery = True

    .RefreshStyle = xlInsertDeleteCells

    .SavePassword = True

    .SaveData = True

    .AdjustColumnWidth = True

    .RefreshPeriod = 0

    .PreserveColumnInfo = True

    .Refresh BackgroundQuery:=False

End With

PreserveFormatting 属性

适用于

PivotTable 对象，QueryTable 对象

描述

对于数据透视表报表而言，当刷新报表，或由于透视，排序或更改页字段项而导致报表重新计算时，如果格式保持不变，则本属性为 True。

对于查询表，如果前五行数据的通用格式将应用于该查询表的新行，则本属性为 True。未使用的单元格不会设置格式。如果上一次的自动套用格式将应用于查询表中新行的数据，则本属性为 False。默认值为 True（但如果查询表是在 Microsoft Excel 97 中创建的，且 HasAutoFormat 属性值为True，这时 PreserveFormatting 为 False）。

可读写，Boolean 类型。

说明

对于数据库查询表，默认的格式设置为 xlSimple。

刷新查询表时，将对查询表应用新的自动套用格式样式。只要PreserveFormatting 设置为 False，则 AutoFormat（自动套用格式）就会被设置为 None。这样，任何在 PreserveFormatting 被设置为 False 或在查询表刷新之前设置的自动套用格式都不会起作用，且相应产生的查询表也不会被应用任何格式。

示例

本示例使数据透视表保持格式不变。

Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True

本示例演示了将 PreserveFormatting 设置为 False 后，将使 AutoFormat（自动套用格式）被设置为 xlRangeAutoFormatNone，而并不是指定的xlRangeAutoFormatColor1 格式。

With Workbooks(1).Worksheets(1).QueryTables(1)

    .Range.AutoFormat = xlRangeAutoFormatColor1

    .PreserveFormatting = False

.Refresh

End With

PresetDrop 方法

适用于

CalloutFormat 对象

描述

表示标注线是连接在标注文本框的顶端，底端还是中心，或者表示标注线是连接在距标注文本框的顶端有一定距离的位置上，还是距底端有一定距离的位置上。

句法

expression.PresetDrop(DropType)

expression

必选。该表达式返回 CalloutFormat 对象。

DropType

Long 类型，必选。标注线的起点相对于文本框的位置。可为下列MsoCalloutDropType 常量之一：msoCalloutDropBottom，msoCalloutDropCenter 或 msoCalloutDropTop。把本参数指定为msoCalloutDropCustom 将导致代码运行失败。

示例

本示例使 myDocument 中第一个形状的标注线连接到标注文本框的顶端。为使

本示例正常运行，第一个形状必须是标注。

Set myDocument = Worksheets(1)

myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

本示例转换 myDocument 中第一个形状的预置标注线落差类型。为使本示例正常运行，第一个形状必须是标注。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).Callout

    If .DropType = msoCalloutDropTop Then

        .PresetDrop msoCalloutDropBottom

    ElseIf .DropType = msoCalloutDropBottom Then

        .PresetDrop msoCalloutDropTop

    End If

End With

PresetExtrusionDirection 属性

适用于

ThreeDFormat 对象

描述

返回延伸形状所延伸的部分（延伸形状的前面）的延伸方向。可为下列MsoPresetExtrusionDirection常量之一：msoExtrusionBottom,msoExtrusionBottomLeft,msoExtrusionBottomRight,msoExtrusionLeft,msoExtrusionNone,msoExtrusionRight,msoExtrusionTop,msoExtrusionTopLeft,msoExtrusionTopRight或msoPresetExtrusion

DirectionMixed。Long 类型，只读。

说明

本属性为只读属性。可用 SetExtrusionDirection 方法设置本属性。

示例

本示例将 myDocument 中向左上延伸的形状改为向右下延伸。

Set myDocument = Worksheets(1)

For Each s In myDocument.Shapes

    With s.ThreeD

        If .PresetExtrusionDirection = msoExtrusionTopLeft Then

            .SetExtrusionDirection msoExtrusionBottomRight

        End If

    End With

Next

PresetGradient 方法

适用于

ChartFillFormat 对象，FillFormat 对象

描述

将指定填充设为预设的过渡。

句法

expression.PresetGradient(GradientStyle, Variant, PresetGradientType)

expression

必选。该表达式返回一个 FillFormat 对象。

GradientStyle

Long 类型。必选。过渡样式。可为下列 MsoGradientStyle 常量之一：

msoGradientDiagonalDown, msoGradientDiagonalUp,msoGradientFromCenter， msoGradientFromCorner，msoGradientHorizontal 或 msoGradientVertical。

Variant

Long 类型，必选。过渡变量。取值范围为 1 到 4 之间，分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle 设为 msoGradientFromCenter，则 Variant 参数只能设为 1 或 2。

PresetGradientType

必选。Long 类型，过渡的样式。 可为下列 MsoPresetGradientType 常量之一：

示例

本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。

Set c1f = Charts(1).ChartArea.Fill

If c1f.Type = msoFillGradient Then

    With Charts(2).ChartArea.Fill

        .Visible = True

        .PresetGradient c1f.GradientStyle, _

            c1f.GradientVariant, c1f.PresetGradientType

    End With

End If

PresetGradientType 属性

适用于

ChartFillFormat 对象，FillFormat 对象

描述

返回指定填充的预设过渡样式。Long 类型，只读。可为下列 MsoPresetGradientType 常量之一：

示例

本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。

Set c1f = Charts(1).ChartArea.Fill

If c1f.Type = msoFillGradient Then

    With Charts(2).ChartArea.Fill

        .Visible = True

        .PresetGradient c1f.GradientStyle, _

c1f.GradientVariant, c1f.PresetGradientType

    End With

End If

PresetLightingDirection 属性

适用于

ThreeDFormat 对象

描述

返回或设置光源相对于延伸形状的位置。可为下列MsoPresetLightingDirection 常量之一：msoLightingBottom，msoLightingBottomLeft，msoLightingBottomRight，msoLightingLeft，msoLightingNone，msoLightingRight，msoLightingTop，msoLightingTopLeft,msoLightingTopRight或msoPresetLightingDirectionMixed。Long 类型，可读写。

注意：如果延伸形状的表面是由线框构成的，就看不到所设置的光线效果。

示例

本示例使 myDocument 中的第一个形状向上延伸，并使光线从左方照射。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).ThreeD

    .Visible = True

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With

PresetLightingSoftness 属性

适用于

ThreeDFormat 对象

描述

返回或设置照射延伸形状的光线强度。可为下列 MsoPresetLightingSoftness常量之一：msoLightingBright，msoLightingDim，msoLightingNormal 或msoPresetLightingSoftnessMixed。Long 类型，可读写。

示例

本示例用强光从左方照射 myDocument 中的第一个形状的延伸部分。

Set myDocument = Worksheets(1)With myDocument.Shapes(1).ThreeD

    .Visible = True

    .PresetLightingSoftness = msoLightingBright

    .PresetLightingDirection = msoLightingLeft

End With

PresetMaterial 属性

适用于

ThreeDFormat 对象

描述

返回或设置延伸形状的表面材质。可为下列 MsoPresetMaterial 常量之一：msoMaterialMatte，msoMaterialMetal，msoMaterialPlastic，msoMaterialWireFrame 或 msoPresetMaterialMixed。Long 类型，可读写。

示例

本示例将 myDocument 中第一个形状的延伸部分材质设置为线框。

Set myDocument = Worksheets(1)With myDocument.Shapes(1).ThreeD

    .Visible = True

    .PresetMaterial = msoMaterialWireFrame

End With

PresetShape 属性

适用于

TextEffectFormat 对象

描述

返回或设置指定的艺术字对象的形状。Long 类型，可读写。

可为下列 MsoPresetTextEffectShape 常量之一：

说明

设置 PresetTextEffect 属性将自动设置 PresetShape 属性。

示例

本示例将 myDocument 中所有艺术字对象的形状设置为中点朝下的山形。

Set myDocument = Worksheets(1)For Each s In myDocument.Shapes

    If s.Type = msoTextEffect Then

        s.TextEffect.PresetShape = msoTextEffectShapeChevronDown

    End If

Next

PresetTextEffect 属性

适用于

TextEffectFormat 对象

描述

返回或设置指定的艺术字对象的样式。本属性的值相应于“WordArt Gallery”对话框内的格式（按从左至右和从上至下的顺序编号）。Long 类型，可读写。

可为下列 MsoPresetTextEffect 常量之一：

msoTextEffect1 msoTextEffect11 msoTextEffect21

msoTextEffect2 msoTextEffect12 msoTextEffect22

msoTextEffect3 msoTextEffect13 msoTextEffect23

msoTextEffect4 msoTextEffect14 msoTextEffect24

msoTextEffect5 msoTextEffect15 msoTextEffect25

msoTextEffect6 msoTextEffect16 msoTextEffect26

msoTextEffect7 msoTextEffect17 msoTextEffect27

msoTextEffect8 msoTextEffect18 msoTextEffect28

msoTextEffect9 msoTextEffect19 msoTextEffect29

msoTextEffect10 msoTextEffect20 msoTextEffect30

msoTextEffectMixed

说明

设置 PresetTextEffect 属性的值，将使相应形状的许多其它格式属性自动得到设置。

示例

本示例将 myDocument 中所有艺术字对象的样式设置为“WordArt Gallery”对话框内的第一个样式。

Set myDocument = Worksheets(1)

For Each s In myDocument.Shapes

    If s.Type = msoTextEffect Then

        s.TextEffect.PresetTextEffect = msoTextEffect1

End If

Next

PresetTexture 属性

适用于

ChartFillFormat 对象，FillFormat 对象

描述

返回指定填充的预设纹理。

Long 类型，只读。

可为下列 MsoPresetTexture 值之一：

使用 PresetTextured 方法可对填充的预设纹理进行设置。

示例

本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。

Set c1f = Charts(1).ChartArea.Fill

If c1f.Type = msoFillTextured Then

    With Charts(2).ChartArea.Fill

        .Visible = True

        If c1f.TextureType = msoTexturePreset Then

            .PresetTextured c1f.PresetTexture

        Else

            .UserTextured c1f.TextureName

        End If

    End With

End If

PresetTextured 方法

适用于

ChartFillFormat 对象，FillFormat 对象

描述

将指定填充格式设为预设纹理。

句法

expression.PresetTextured(PresetTexture)

expression

该表达式返回一个 FillFormat 对象。

PresetTexture

Long 类型，必选。预设纹理。可为下列 MsoPresetTexture 值之一：

示例

本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。

Set c1f = Charts(1).ChartArea.Fill

If c1f.Type = msoFillTextured Then

With Charts(2).ChartArea.Fill

        .Visible = True

        If c1f.TextureType = msoTexturePreset Then

            .PresetTextured c1f.PresetTexture

        Else

            .UserTextured c1f.TextureName

        End If

    End WithEnd If

PresetThreeDFormat 属性

适用于

ThreeDFormat 对象

描述

返回预置的延伸格式。每个预置的延伸格式包含延伸形状的各种属性的预置值。如果延伸形状的格式是自定义格式而不是预置格式，本属性将返回msoPresetThreeDFormatMixed。可为下列 MsoPresetThreeDFormat 常量之一：msoPresetThreeDFormatMixed， msoThreeD1， msoThreeD10，msoThreeD11， msoThreeD12， msoThreeD13， msoThreeD14，msoThreeD15， msoThreeD16， msoThreeD17， msoThreeD18，msoThreeD19， msoThreeD2， msoThreeD20， msoThreeD3，msoThreeD4， msoThreeD5， msoThreeD6， msoThreeD7， msoThreeD8或 msoThreeD9。本属性的值相应于单击“Drawing”工具栏上的“三维效果”工具时所出现的选项（按从左至右和从上至下的顺序编号）。Long 类型，只读。

说明

本属性为只读属性。可用 SetThreeDFormat 方法设置预置的延伸格式。

示例

如果 myDocument 中的第一个形状原来是自定义的延伸格式，本示例就将该形状设置为第十二个三维样式。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).ThreeD

    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then

        .SetThreeDFormat msoThreeD12

    End If

End With

Previous 方法

适用于

Comment 对象

描述

返回一个 Comment 对象，该对象代表前一条批注。

句法expression.Previous

expression必选。该表达式返回一个 Comment 对象。

说明

本方法只对一张工作表有效。对工作表中第一条批注使用本方法可返回 Null（不是前一张工作表的最后一条批注）。

示例

本示例隐藏前一条的批注。

Range("a1").Comment.Previous.Visible = False

Previous 属性

适用于

Chart 对象，Range 对象，Worksheet 对象

描述

返回 Chart， Range 或 Worksheet 对象，该对象代表上一工作表或单元格。只读。

说明

如果指定对象为区域，本属性的作用就像“SHIFT+TAB”键；但本属性只是返回上一单元格，而不选定它。在处于保护状态的工作表中，本属性返回上一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格左边的单元格。

另见

ActivatePrevious 方法， Next 属性

示例

本示例选定工作表“Sheet1”中上一个未锁定单元格。如果工作表“Sheet1”未保护，选定的单元格将是紧靠活动单元格左边的单元格。

Worksheets("Sheet1").Activate

ActiveCell.Previous.Select

PreviousSelection 属性

适用于

Application 对象

描述

返回一个数组，数组中包括最近 4 个选定的区域或者名称。此数组中的每一个元素是一个 Range 对象。变量类型为 Variant，只读。

句法

expression.PreviousSelections(Index)

expression

可选。该表达式返回 Application 对象。

Index

Variant 类型，可选。前面区域或者名称的索引号（从 1 到 4）。

说明

每次使用“名称”对话框或者用“定位”命令（“编辑”菜单）转到另一个区域或者另一个单元格，或者每次宏调用 Goto 方法时，前一区域就会被记录到数组的第一个元素中，其它元素依次向下顺延。

示例

本示例显示存储最近选定内容数组中每一选择的单元格地址。如果上次没有选定任何内容，LBound 函数将返回一个出错标志。Excel 捕获这个错误，并显示一个消息框。

On Error GoTo noSelections

For i = LBound(Application.PreviousSelections) To _

UBound(Application.PreviousSelections)

MsgBox Application.PreviousSelections(i).Address

Next I

Exit Sub

On Error GoTo 0

noSelections:

MsgBox "There are no previous selections"

PrintArea 属性

适用于

PageSetup 对象

描述

返回或设置欲打印的区域，使用宏语言字符串中以 A1-样式的引用。String类型，可读写。

说明

将本属性设置为 False 或空字符串（""），就可打印整个工作表。

本属性仅适用于于工作表页面。

另见

PrintOut 方法

示例

本示例将工作表“Sheet1”的打印区域设置为单元格区域“A1:C5”。

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

本示例将工作表“Sheet1”的打印区域设置为当前区。注意使用 Address 属性返回 A1-样式的地址。

Worksheets("Sheet1").Activate

ActiveSheet.PageSetup.PrintArea = _

ActiveCell.CurrentRegion.Address

PrintComments 属性

适用于

PageSetup 对象

描述

返回或设置工作表中注释的打印方式。可为下列 XlPrintLocation 常量之一： xlPrintInPlace，xlPrintNoComments 或 xlPrintSheetEnd。 Long 类型，可读写。

另见

PrintNotes 属性

示例

打印第一张工作表时，本示例使注释当作尾部附注打印。

Worksheets(1).PageSetup.PrintComments = xlPrintSheetEnd

PrintGridlines 属性

适用于

PageSetup 对象

描述

如果在页面上打印单元格网格线则为 True。仅应用于工作表。Boolean 类型，可读写。

另见

DisplayGridlines 属性

示例

本示例设置打印 Sheet1 时同时打印单元格网格线。

Worksheets("Sheet1").PageSetup.PrintGridlines = True

PrintHeadings 属性

适用于

PageSetup 对象

描述

如果打印本页时同时打印行标题和列标题则为 True。仅应用于工作表。

Boolean 类型，可读写。

说明

DisplayHeadings 属性用于控制标题的屏幕显示。

示例

本示例关闭 Sheet1 标题的打印。

Worksheets("Sheet1").PageSetup.PrintHeadings = False

PrintNotes 属性

适用于

PageSetup 对象

描述

如果打印工作表时单元格注释作为尾注一起打印则为 True。仅应用于工作表。Boolean 类型，可读写。

说明

使用 PrintComments 属性可设置以文本框或尾注形式打印批注。

另见

PrintComments 属性

示例

本示例关闭打印注释的功能。

Worksheets("Sheet1").PageSetup.PrintNotes = False

PrintObject 属性

适用于

ChartObject 对象，ChartObjects 集合对象，ControlFormat 对象，OLEObject 对象，OLEObjects 集合对象

描述

如果打印文档时也打印指定对象则为 True。Boolean 类型，可读写。

另见

PrintOut 方法

示例

本示例设置当打印“Sheet1”工作表时连同第一个嵌入式图表一起打印。

Worksheets("Sheet1").ChartObjects(1).PrintObject = True

PrintOut 方法

适用于

Chart 对象，Charts 集合对象，Range 对象，Sheets 集合对象，Window 对象，Workbook 对象，Worksheet 对象，Worksheets 集合对象

描述

打印指定对象。

句法

expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile,Collate,

PrToFileName)

expression

必选。该表达式返回“应用于”列表中某个对象。

From

Variant 类型，可选。打印的起始页号。如果省略该参数，将从起始位置开始打印。

To

Variant 类型，可选。打印的终止页号。如果省略该参数，将打印至最后一页。

Copies

Variant 类型，可选。要打印的份数。如果省略该参数，将只打印一份。

Preview

Variant 类型，可选。如果为 True 则 Microsoft Excel 打印指定对象之前进行打印预览。如果为 False，或者省略此参数则立即打印该对象。

ActivePrinter

Variant 类型，可选。 设置活动打印机的名称。

PrintToFile

Variant 类型，可选。如果为 True 则打印输出到文件。Microsoft Excel 将提示用户输入要输出的文件名。在 Visual Basic 中无法指定输出文件名。

Collate

Variant 类型，可选。如果为 True 则逐份打印每份副本。

PrToFileName

可选，Variant类型。如果PrintToFile参数设为True，此参数指定打印到文件的文件名。

说明

From 参数和 To 参数所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。

本方法仅当指定窗口为信息窗口时可应用于 Window 对象。

另见

PrintArea 属性， PrintPreview 方法

示例

本示例打印活动工作表。

ActiveSheet.PrintOut

PrintPreview 方法

适用于

Chart 对象，Charts 集合对象，Range 对象，Sheets 集合对象，Window 对象，Workbook 对象，Worksheet 对象，Worksheets 集合对象

描述

以打印效果显示指定的对象。

句法

expression.PrintPreview

expression

必选。该表达式返回“适用于”列表中的某个对象。

另见

PrintOut 方法

示例

本示例显示“Sheet1”的打印预览。

Worksheets("Sheet1").PrintPreview

PrintQuality 方法

适用于

PageSetup 对象

描述

返回或设置打印质量。

句法

expression.PrintQuality(Index)

expression

必选。该表达式返回 PageSetup 对象。

Index

Variant 类型，可选。水平方向打印质量（1）或垂直方向打印质量（2）。有的打印机可能不支持垂直方向打印质量设置。如果不指定本参数，PrintQuality 方法将返回（或可被设置为）一个两元素数组，该数组包含水平方向和垂直方向打印质量。

示例

本示例以非正方象素设置打印机的打印质量。用数组同时指定了水平方向和垂直方向打印质量。使用某些打印机驱动程序可能使本示例引起错误。

Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)

本示例显示水平方向打印质量的当前设置。

MsgBox "Horizontal Print Quality is " & _

Worksheets("Sheet1").PageSetup.PrintQuality(1)

PrintSettings 属性

适用于

CustomView 对象

描述

如果在自定义视图中包含打印设置则为 True。Boolean 类型，只读。

另见

Add 方法(CustomViews 对象)， RowColSettings 属性

示例

本示例创建一个包括活动工作簿中的自定义视图，对应打印设置和行列设置的清单。

With Worksheets(1)

.Cells(1,1).Value = "Name"

.Cells(1,2).Value = "Print Settings"

.Cells(1,3).Value = "RowColSettings"

rw = 0

For Each v In ActiveWorkbook.CustomViews

rw = rw + 1

.Cells(rw, 1).Value = v.Name

.Cells(rw, 2).Value = v.PrintSettings

.Cells(rw, 3).Value = v.RowColSettings

Next

End With

PrintTitleColumns 属性

适用于

PageSetup 对象

描述

返回或设置包含在每一页的左边重复出现单元格的列，用宏语言中 A1-样式的字符串记号， String 类型，可读写。

说明

如果仅指定列的一部分， Microsoft Excel 将自动把该区域扩展为整个列。将本属性设置为 False 或空字符串（""），将会关闭标题列。

本属性仅适用于于工作表页面。

另见

PrintTitleRows 属性

示例

本示例将第三行定义为标题行，将第一列到第三列定义为标题列。

Worksheets("Sheet1").Activate

ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3).AddressActiveSheet.PageSetup.PrintTitleColumns = _

ActiveSheet.Columns("A:C").Address

PrintTitleRows 属性

适用于

PageSetup 对象

描述

返回或设置那些包含在每一页顶部重复出现的单元格的行，用宏语言字符串以 A1-样式的记号表示， String 类型，可读写。

说明

如果仅指定行的一部分， Microsoft Excel 将把该区域扩展为整个行。将本属性设置为 False 或空字符串（""），将会关闭标题行。本属性仅适用于于工作表页面。

另见

PrintTitleColumns 属性

示例

本示例将第三行定义为标题行，将第一列到第三列定义为标题列。

Worksheets("Sheet1").Activate

ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows(3).Address

ActiveSheet.PageSetup.PrintTitleColumns = _

ActiveSheet.Columns("A:C").Address

PrintTitles 属性

适用于

PivotTable 对象

描述

如果基于数据透视表报表设置工作表的打印标题，则其值为 True。这时，行打印标题会设置为包含数据透视表报表列字段项的行；列打印标题则设置为那些包含行项的列。如果使用工作表的打印标题，则其值为 False。默认值为 False。可读写。Boolean 类型。

说明

打印区域中必须只有一个数据透视表报表。要为数据透视表报表设置缩进格式，则请使用 Format 方法。

示例

本示例指定当打印活动工作表上的第四个数据透视表报表时，同时也打印该工作表的打印标题集。

ActiveSheet.PivotTables("PivotTable4").PrintTitles = True

ProductCode 属性

适用于

Application 对象

描述

返回 Microsoft Excel 的全球唯一标识符 (GUID)。只读。String 类型。

示例

本示例显示 Microsoft Excel 的全球唯一标识符 (GUID)。

MsgBox Application.ProductCode

ProgId 属性

适用于

OLEFormat 对象，OLEObject 对象

描述

返回指定对象的程序标识符。String 类型，只读。

示例

本示例为第一张工作表中所有 OLE 对象创建程序标识符列表。

rw = 0

For Each o in Worksheets(1).OLEObjects

With Worksheets(2)

rw = rw + 1

.cells(rw, 1).Value = o.ProgId

End With

Next

PromptForSummaryInfo 属性

适用于

Application 对象

描述

如果在保存文件时 Microsoft Excel 要求用户输入汇总信息则为 True。Boolean 类型，可读写。

示例

本示例设置保存文件时显示提示，要求用户输入汇总信息。

Application.PromptForSummaryInfo = True

PromptString 属性

适用于

Parameter 对象

描述

返回带参数查询中提示用户输入参数值的提示文字。String 类型，只读。

示例

本示例对第一张查询表的参数提示字符串进行修改。

With Worksheets(1).QueryTables(1).Parameters(1)

.SetParam xlPrompt, "Please " & .PromptString

End With

Protect 方法

适用于

Chart 对象，Workbook 对象，Worksheet 对象

描述

保护图表或工作表（句法 1）或工作簿（句法 2），使之不能被修改。

句法 1

expression.Protect(Password,DrawingObjects,Contents,Scenarios,UserInterfaceOnly)

句法 2

expression.Protect(Password, Structure, Windows)

expression

必选。返回 Chart 或 Worksheet 对象（句法 1）或 Workbook 对象（句法 2）的表达式。

Password

Variant 类型，可选。加在工作表或工作簿上区分大小写的密码字符串。如果省略本参数，不用密码就可以取消对该工作表或工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一份密码及其对应文档名的列表。

DrawingObjects

Variant 类型，可选。若为 True 则保护形状。默认值为 False。

Contents

Variant 类型，可选。若为 True 则保护内容。对于图表工作表，这样将保护整个图表。对于工作表，这样将保护每个单元格。默认值为 True。

Scenarios

Variant 类型，可选。若为 True 则保护方案。本参数仅对工作表有效。默认值为 True。

Structure

Variant 类型，可选。若为 True 则保护工作簿结构（工作簿中工作表的相对位置）。默认值为 False。

UserInterfaceOnly

Variant 类型，可选。若为 True 则保护用户界面，但不保护宏。如果省略本参数，则即保护宏也保护用户界面。

Windows

Variant 类型，可选。若为 True 则保护工作簿窗口。如果省略本参数，则不保护该窗口。

说明

如果对工作表使用 Protect 方法时，将 UserInterfaceOnly 参数设置为True，然后又保存了工作簿，那么再次打开工作簿时，整个工作表将被完全保护，而非仅仅保护用户界面。若想在再次打开工作簿后仅保留该工作表的用户界面保护，必须再次将 UserInterfaceOnly 参数设置为 True 并应用 Protect 方法。

另见

EnableSelection 属性， Locked 属性， ProtectContents 属性， ProtectDrawingObjects 属性， ProtectScenarios 属性， ProtectStructure 属性， ProtectWindows 属性， Unprotect 方法

示例

本示例保护活动工作簿。

ActiveWorkbook.Protect Password := "drowssap"

ProtectChartObject 属性

适用于

ChartObject 对象

描述

如果不能对内嵌图表框架进行移动，调整大小或删除操作，本属性为 True。Boolean 类型，可读写。

示例

本示例保护第一张工作表中的第一张内嵌图表。

Worksheets(1).ChartObjects(1).ProtectChartObject = True

ProtectContents 属性

适用于

Chart 对象，Worksheet 对象

描述

如果工作表的内容处于保护状态，本属性为 True。对于图表工作表，这样将保护整个图表。对于工作表，这样将保护每个单元格。Boolean 类型，只读。

另见

Locked 属性， Protect 方法， ProtectWindows 属性， Unprotect 方法

示例

如果工作表“Sheet1”的内容处于保护状态，本示例显示一个消息框。

If Worksheets("Sheet1").ProtectContents = True Then

MsgBox "The contents of Sheet1 are protected."

End If

ProtectData 属性

适用于

Chart 对象

描述

如果用户不能修改系列公式，本属性为 True。Boolean 类型，可读写。

示例

本示例保护第一张工作表中第一张内嵌图表中的数据。

Worksheets(1).ChartObjects(1).Chart.ProtectData = True

ProtectDrawingObjects 属性

适用于

Chart 对象，Worksheet 对象

描述

如果形状处于保护状态，本属性为 True。Boolean 类型，只读。

另见

Locked 属性， Protect 方法， ProtectWindows 属性， Unprotect 方法

示例

如果工作表“Sheet1”中的形状处于保护状态，本示例显示一个消息框。

If Worksheets("Sheet1").ProtectDrawingObjects = True Then

MsgBox "The shapes on Sheet1 are protected."

End If

ProtectFormatting 属性

适用于

Chart 对象

描述

如果用户不能修改格式，本属性为 True。Boolean 类型，可读写。

说明

本属性为 True 时，禁用“格式”菜单中的“对象”命令，且不能对图表元素进行添加，移动，调整大小或删除操作。

示例

本示例保护第一张工作表中第一张内嵌图表的格式。

Worksheets(1).ChartObjects(1).Chart.ProtectFormatting = True

ProtectGoalSeek 属性

适用于

Chart 对象

描述

如果用户不能用鼠标操作修改图表数据点，本属性为True。Boolean 类型，可读写。

示例

本示例保护第一张工作表中第一张内嵌图表的数据点。

Worksheets(1).ChartObjects(1).Chart.ProtectGoalSeek = True

ProtectionMode 属性

适用于

Chart 对象，Worksheet 对象

描述

如果设置了仅限于用户界面保护选项则为 True。要设置用户界面保护，可使用 Protect 方法，并将 UserInterfaceOnly 参数设为 True。Boolean 类型，只读。

示例

本示例显示 ProtectionMode 属性的状态。

MsgBox ActiveSheet.ProtectionMode

ProtectScenarios 属性

适用于

Worksheet 对象

描述

如果工作表的方案处于保护状态，本属性为 True。Boolean 类型，只读。

另见

Protect 方法， Unprotect 方法

示例

如果工作表“Sheet1”中的方案处于保护状态，本示例将显示消息框。

If Worksheets("Sheet1").ProtectScenarios Then _

MsgBox "Scenarios are protected on this worksheet."

ProtectSelection 属性

适用于

Chart 对象

描述

如果不能选定图表元素，本属性为 True。Boolean 类型，可读写。

说明

本属性为 True 时，不能向图表添加形状，且不发生图表元素的 Click 和DoubleClick 事件。

示例

本示例使第一张工作表中第一张内嵌图表的图表元素不能被选定。

Worksheets(1).ChartObjects(1).Chart.ProtectSelection = True

ProtectSharing 方法

适用于

Workbook 对象

描述

保存工作簿并设置其共享保护。

句法

expression.ProtectSharing(Filename,Password,WriteResPassword,ReadOnlyRecommended, CreateBackup, SharingPassword)

expression

返回一个 Workbook 对象。

Filename

Variant 类型，可选。一个保存文件的名称字符串。可在文件名中加入完整路径；如果不加入路径则 Microsoft Excel 将该文件保存到当前文件夹。

Password

Variant 类型，可选。一个字符串，代表保护此文件所用的密码，区分大小写。长度不超过 15 个字符。

WriteResPassword

Variant 类型，可选。一个字符串，代表此文件的写保护密码。如果一个文件有密码，并在打开文件时不提供密码则该文件以只读方式打开。

ReadOnlyRecommended

Variant 类型，可选。如果为 True 则在打开文件时显示一条信息建议文件以只读方式打开。

CreateBackup

Variant 类型，可选。如果为 True 则创建备份文件。

SharingPassword

Variant 类型，可选。一个字符串，代表文件共享保护密码。

示例

本示例保存第一个工作簿并设置共享保护。

Workbooks(1).ProtectForSharing Password:="drowssap", _

     SharingPassword:="gnirahs"

ProtectStructure 属性

适用于

Workbook 对象

描述

如果工作簿中工作表结构受保护则为 True。Boolean 类型，只读。

另见

Protect 方法， ProtectWindows 属性， Unprotect 方法

示例

本示例检查当前工作簿中工作表结构是否受保护，如果是则显示一条信息。

If ActiveWorkbook.ProtectStructure = True Then

    MsgBox "Remember, you cannot delete, add, or change " & Chr(13) & _

        "the location of any sheets in this workbook."

 End If

ProtectWindows 属性

适用于

Workbook 对象

描述

如果工作簿窗口受保护则为 True。Boolean 类型，只读。

另见

Protect 方法， ProtectStructure 属性， Unprotect 方法

示例

本示例检查当前工作簿窗口是否受保护，如果是则显示一条信息。

If ActiveWorkbook.ProtectWindows = True Then

       MsgBox "Remember, you cannot rearrange any window in this workbook."

End If

Publish 方法

适用于

PublishObject 对象，PublishObjects 集合对象

描述

将文档中的项或项的集合保存到 Web 页中。

句法

expression.Publish(Create)

expression

一个返回 PublishObject 对象或 PublishObjects 集合的表达式。

Create

可选，Variant类型。此参数仅用于PublishObject对象。如果存在HTML文件，将此参数设为True则替换该文件，将此参数设为False则将项插入文件尾。如果HTML 文件不存在，则无论是否有Create参数都将创建文件。

说明

FileName属性返回或设置HTML文件的位置和名称。

示例

本示例将活动工作簿中“First Quarter”工作表的 D5:D9 区域保存到名为“stockreport.htm”Web 页中。可使用电子表格组件以增加 Web 页的交互性。

ActiveWorkbook.PublishObjects.Add( _

    SourceType:=xlSourceRange, _

    Filename:="\\Server2\Q1\stockreport.htm", _

    Sheet:="First Quarter", _

    Source:="D5:D9", _

    HTMLType:=xlHTMLCalc).Publish

PublishObject 对象

描述

代表存储为 Web 页的工作簿中的项目，并可以根据 PublishObject 对象中属性和方法所指定的值进行刷新。PublishObject 对象是 PublishObjects集合中的成员。

使用 PublishObject 对象

使用 PublishObjects(index) 可返回一个 PublishObject 对象，其中，index是工作簿中指定项目的索引号。下例设置第三个工作簿中第一项的保存位置。

Workbooks(3).PublishObjects(1).FileName = _

"\\myserver\public\finacct\statemnt.htm"

属性

Application 属性，Creator 属性，DivID 属性，FileName 属性，HtmlType属性，Location 属性，Parent 属性，Sheet 属性，Source 属性，SourceType属性，Title 属性

方法

Delete 方法，Publish 方法

PublishObjects 集合对象

描述

工作簿中所有 PublishObject 对象的集合。每个 PublishObject 对象都代表保存为 Web 页的工作簿中的某一项，并且还可以根据该对象中属性和方法所指定的值进行刷新。

使用 PublishObjects 集合

使用 PublishObjects 属性可返回 PublishObjects 集合。下例将活动工作簿中的所有静态 PublishObject 对象保存到 Web 页中。

Set objPObjs = ActiveWorkbook.PublishObjectsFor Each objPO in objPObjs

If objPO.HtmlType = xlHTMLStatic Then

objPO.Publish

End IfNext objPO

使用 PublishObjects(index) 可返回一个 PublishObject 对象，其中，index是工作簿中指定项的索引号。下例将设置第三个工作簿中第一项的保存位置。

Workbooks(3).PublishObjects(1).FileName = _

"\\myserver\public\finacct\statemnt.htm"

属性

Application 属性，Count 属性，Creator 属性，Item 属性(PublishObjects集合)，Parent 属性

方法

Add 方法(PublishObjects 集合)，Delete 方法，Publish 方法

PublishObjects 属性

适用于

Workbook 对象

描述

返回 PublishObjects 集合。只读。

示例

本示例将活动工作簿中的所有静态 PublishObject 对象发布到 Web 页上。

Set objPObjs = ActiveWorkbook.PublishObjects

For Each objPO in objPObjs

    If objPO.HtmlType = xlHTMLStatic Then

        objPO.Publish

    End If

Next objPO

PurgeChangeHistoryNow 方法

适用于

Workbook 对象

描述

从修改日志中删除相应于指定工作簿的条目。

句法

expression.PurgeChangeHistoryNow(Days, SharingPassword)

expression

该表达式返回 Workbook 对象。

Days

Long 类型，必选。指定要在修改日志中保留几天内所作的修改。

SharingPassword

Variant 类型，可选。工作簿的共享口令。如果工作簿有共享口令，而又省略了本参数，将提示用户输入口令。

示例

本示例从活动工作簿的修改日志中删除一天以前所作的所有修改记录。

ActiveWorkbook.PurgeChangeHistoryNow Days:=1

QueryTable 对象

描述

代表一个由外部数据源返回数据构成的工作表，例如一个 SQL server 数据库或者 Microsoft Access 数据库。QueryTable 对象是 QueryTables 集合的成员。

使用 QueryTable 对象

使用 QueryTables(index) （其中 index 为查询表的索引号）可返回单个QueryTable 对象。下列示例对第一个查询表进行设置，当刷新时右侧的公式自动更新。

Sheets("Sheet1").QueryTables(1).FillAdjacentFormulas = True

属性

AdjustColumnWidth 属性，Application 属性，BackgroundQuery 属性，CommandText 属性，CommandType 属性，Connection 属性，Creator 属性，Destination 属性，EnableEditing 属性，EnableRefresh 属性，FetchedRowOverflow 属性，FieldNames 属性，FillAdjacentFormulas 属性，MaintainConnection 属性，Name 属性，Parameters 属性，Parent 属性，PostText 属性，PreserveColumnInfo 属性，PreserveFormatting 属性，QueryType 属性，Recordset 属性，Refreshing 属性，RefreshOnFileOpen 属性，RefreshPeriod 属性，RefreshStyle 属性，ResultRange 属性，RowNumbers 属性，SaveData 属性，SavePassword 属性，TextFileColumnDataTypes 属性，TextFileCommaDelimiter 属性，TextFileConsecutiveDelimiter 属性，TextFileDeciamlSeparator 属性，TextFileFixedColumnWidths 属性，TextFileOtherDelimiter 属性，TextFileParseType 属性，TextFilePlatform 属性，TextFilePromptOnRefresh属性，TextFileSemicolonDelimiter 属性，TextFileSpaceDelimiter 属性，TextFileStartRow 属性，TextFileTabDelimiter 属性，TextFileTextQualifier属性，TextFileThousandsSeparator 属性，WebConsecutiveDelimtersAsOne属性，WebPreFormattedTextToColumns 属性，WebSelectionType 属性，WebSingleBlockTextImport 属性，WebTables 属性

方法

CancelRefresh 方法，Delete 方法，Refresh 方法，ResetTimer 方法事件AfterRefresh 事件，BeforeRefresh 事件

QueryTable 属性

适用于

Range 对象

描述

返回一个 QueryTable 对象，该对象代表与指定区域相交的查询表。只读。

示例

本示例对与第一张工作表中的 A10 单元格相交的查询表进行刷新。

Worksheets(1).Range("a10").QueryTable.Refresh

QueryTables 集合对象

描述

一个 QueryTable 对象集合。每一 QueryTable 对象代表一个由外部数据源所返回的数据构成的工作表。

使用 QueryTables 集合

使用 QueryTables 属性可返回 QueryTables 集合。下列示例显示活动工作表中的查询表数目。

MsgBox ActiveSheet.QueryTables.Count

使用 Add 方法可新建一个查询表，并将新查询表添加到 QueryTables 集合中。下列示例

新建一个查询表。

Dim qt As QueryTable

sqlstring = "select 96Sales.totals from 96Sales where profit < 5"

connstring = _

"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"

With ActiveSheet.QueryTables.Add(Connection:=connstring, _

Destination:=Range("B1"), Sql:=sqlstring)

.Refresh

End With

属性

Application 属性，Count 属性，Creator 属性，Parent 属性

方法

Add 方法(QueryTables 集合)，Item 方法(QueryTables 集合)

QueryTables 属性

适用于

Worksheet 对象

描述

返回 QueryTables 集合，该集合代表指定工作表中的所有查询表。只读。

有关返回集合中单个对象的详细内容，另见返回集合中的对象。

示例

本示例对第一张工作表中的所有查询表进行刷新。

For Each qt in Worksheets(1).QueryTables

    qt.Refresh

Next

本示例对第一张查询表进行设置，每当查询表刷新时就自动更新右侧的公式。

Sheets("Sheet1").QueryTables(1).FillAdjacentFormulas = True

QueryType 属性

适用于

PivotCache 对象，QueryTable 对象

描述

返回下表所列出的 xlQueryType 常量之一。这些常量可表示 MicrosoftExcel 在生成查询表或数据透视表高速缓存时所使用的查询类型。只读。

xlQueryType 类型。

说明

在 Connection 属性值的前缀中指定数据源

示例

如果表是基于 Web 页的，则本示例将刷新第一张工作表上的第一个查询表。

Set qtQtrResults = _

    Workbooks(1).Worksheets(1).QueryTables(1)

With qtQtrResults

    if .QueryType = xlWebQuery Then

        .Refresh

    End If

End With

Quit 方法

适用于

Application 对象

描述

退出 Microsoft Excel。

句法

expression.Quit

expression

必选。该表达式返回 Application 对象。

说明

使用本方法时，如果有未保存的工作簿处于打开状态， Microsoft Excel 将弹出一对话框，询问是否要保存所作的修改。为防止这一情况出现，可在使用 Quit 方法之前保存所有工作簿，或将 DisplayAlerts 属性设置为False。如果该属性为 False，即使退出前还有未保存的工作簿， MicrosoftExcel 也不弹出提示对话框，而是直接退出并不保存。

如果将工作簿的 Saved 属性设置为 True，而又未将工作簿真正保存到磁盘， Microsoft Excel 将直接退出而不提示保存该工作簿。

示例

本示例保存所有打开的工作簿，然后退出 Microsoft Excel。

For Each w In Application.Workbooks

    w.Save

Next w

Application.Quit