Excel VBA教程:AddPageItem方法

向具有多个项的页面字段添加其他项。

expression.AddPageItem(Item, ClearList)

expression   必需。该表达式返回“应用于”列表中的对象之一。

Item   String 类型,必需。PivotItem对象的源名称,该名称与特定的联机分析处理 (OLAP) 成员的唯一名称相对应。

ClearList   Variant 类型,可选。如果该值为 False(默认值),则向原有列表中添加一个页面项。如果该值为 True,则删除当前所有的项,然后添加 Item。

说明

为了避免在运行时出现错误,数据源必须是 OLAP 源,选择的字段当前必须位于页面中,EnableMultiplePageItems属性的值必须设置为 True。

Excel VBA教程:AddPageItem方法·示例

在本例中,Microsoft Excel 添加一个源名称为“[Product].[All Products].[Food].[Eggs]”的页面项。本示例假定 OLAP 数据透视表位于活动工作表上。


Sub UseAddPageItem()
    ' The source is an OLAP database and you can manually reorder items.
    ActiveSheet.PivotTables(1).CubeFields("[Product]"). _
        EnableMultiplePageItems = True
    ' Add the page item titled "[Product].[All Products].[Food].[Eggs]".
    ActiveSheet.PivotTables(1).PivotFields("[Product]").AddPageItem ( _
        "[Product].[All Products].[Food].[Eggs]")
End Sub

上页:Excel VBA教程:AddOLEObject方法 下页:Excel VBA教程:AddPicture方法

Excel VBA教程:AddPageItem方法

Excel VBA教程:AddPicture方法 Excel VBA教程:AddPolyline方法
Excel VBA教程:AddReplacement方法 Excel VBA教程:AddSet方法
Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
Excel VBA教程:Apply方法 Excel VBA教程:ApplyCustomType方法
Excel VBA教程:ApplyDataLabels方法 Excel VBA教程:ApplyNames方法
Excel VBA教程:ApplyOutlineStyles方法 Excel VBA教程:AreaGroups方法
Excel VBA教程:Arrange方法 Excel VBA教程:AutoComplete方法
Excel VBA教程:AutoFill方法 Excel VBA教程:AutoFilter方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号