Partager via


Propriété PivotField.CurrentPageList (Excel)

Cette propriété renvoie ou définit un tableau de chaînes correspondant à la liste d'éléments inclus dans un champ de page à plusieurs éléments d'un rapport de tableau croisé dynamique. Variant en lecture/écriture.

Syntaxe

expression. CurrentPageList

Expression Variable qui représente un objet PivotField .

Remarques

Pour éviter les erreurs d’exécution, la source de données doit être une source OLAP, le champ choisi doit être actuellement à la position Page et la propriété EnableMultiplePageItems doit avoir la valeur True.

Exemple

Cet exemple montre comment définir le champ de page pour répertorier les éléments Aliments du rapport de tableau croisé dynamique. Il suppose qu'un tableau croisé dynamique se trouve dans la feuille de calcul active.

Sub UseCurrentPageList() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product]") 
 
 ' To avoid run-time errors set the following property to True. 
 pvtTable.CubeFields("[Product]").EnableMultiplePageItems = True 
 
 ' Set the page list to "Food". 
 pvtField.CurrentPageList = "[Product].[All Products].[Food]" 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.