I want to write macro to cycle through every subcategory in pivot table.
I have the pivot table broken out by category "8TA", so there is a pull down
menu for each of my companies 8 technical areas.

I recorded a macro and found out that to select a subcategory, I can use:
ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage = "MSS"

However to complete a macro do loop, I need to be able to count the number
of subareas (which in this case I know is 8), and then reference them
separately.


Neither of these tow count statements works:
Count = ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").Count
Count =
ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage.Count


--
Richard

ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").PivotItems.Count


--
Regards,
Tom Ogilvy



"Richard" <(E-Mail Removed)> wrote in message
news:72427E0D-EAA0-49EF-8854-(E-Mail Removed)...
>I want to write macro to cycle through every subcategory in pivot table.
> I have the pivot table broken out by category "8TA", so there is a pull
> down
> menu for each of my companies 8 technical areas.
>
> I recorded a macro and found out that to select a subcategory, I can use:
> ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage = "MSS"
>
> However to complete a macro do loop, I need to be able to count the number
> of subareas (which in this case I know is 8), and then reference them
> separately.
>
>
> Neither of these tow count statements works:
> Count = ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").Count
> Count =
> ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage.Count
>
>
> --
> Richard

Thanks.

Where can I find similar info for myself?

I would also like to adjust font size for x,y labels and for the pivot table
pull down menu showing PivotFields("8TA") - right now the graph's various
fonts are not ideally sized for export to a PowerPoint presentation.

--
Richard


"Tom Ogilvy" wrote:

> ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").PivotItems.Count
>
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Richard" <(E-Mail Removed)> wrote in message
> news:72427E0D-EAA0-49EF-8854-(E-Mail Removed)...
> >I want to write macro to cycle through every subcategory in pivot table.
> > I have the pivot table broken out by category "8TA", so there is a pull
> > down
> > menu for each of my companies 8 technical areas.
> >
> > I recorded a macro and found out that to select a subcategory, I can use:
> > ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage = "MSS"
> >
> > However to complete a macro do loop, I need to be able to count the number
> > of subareas (which in this case I know is 8), and then reference them
> > separately.
> >
> >
> > Neither of these tow count statements works:
> > Count = ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").Count
> > Count =
> > ActiveChart.PivotLayout.PivotTable.PivotFields("8TA").CurrentPage.Count
> >
> >
> > --
> > Richard
>
>
>