试图找到使用vba的PowerPoint中的图表系列集合的数量

Question

我想使用vba宏查找聚集的列图表中的最后一个系列集合索引号码。例如。如果我必须找到幻灯片

的

Sub GettingLastSlideNumber() 
 

 
    With ActivePresentation 
 
    MsgBox .Slides(.Slides.Count).SlideNumber 
 
    End With 
 

 
End Sub

在类似的方式

数量，我想找到群集柱形图最后序列号。

有人请帮助我。

Answer 1

尝试

Sub seriescounter() 
    Dim osld As Slide 
    Dim oshp As Shape 
    Set osld = ActivePresentation.Slides(3)  'or whatever index 
    For Each oshp In osld.Shapes 
     If oshp.HasChart Then 
     If oshp.Chart.ChartType = xlColumnClustered Then MsgBox oshp.Chart.SeriesCollection.Count 
     End If 
    Next oshp 
End Sub 

Answer 2

要获得系列收集的数量在一个Excel工作表一个簇柱状图，使用下面的代码：

Option Explicit 

Sub FindLastSeries_inChart() 

Dim cht      As ChartObject 
Dim Series_counter   As Integer  

' modify "Sheet 1" Name to your needed Sheet, and "Chart 1" to your chart's name 
Set cht = Sheets("Sheet1").ChartObjects("Chart 1")  

Series_counter = cht.Chart.SeriesCollection.Count 

MsgBox "Series count in Chart is " & Series_counter  

End Sub