試圖找到使用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