Urgent - Help Needed for PowerPoint Macro - Multiple If condition

[anappleuser]

Hi I am developing a macro which Removes less than 5.00% data from charts. (Just removes from Charts, Not from inside datasheet).

I got problem in Cluster Bar chart type in which I want to Apply two condition. If Chart type is 57 (XlBarCluster) and also Has Axis then Do not show data labels on chart Else Show data labels on Chart. Below is my code but it is giving error on Highlighted Part. Please Help.

Sub RemoveSmallValuesFromExecutiveReportCharts()
    For Each Slide In ActivePresentation.Slides
      For Each Shape In Slide.Shapes
       If Shape.HasChart Then
          Set Chart = Shape.Chart
            If Chart.ChartType = 53 Or Chart.ChartType = 59 Or Chart.ChartType = 57 Or Chart.ChartType = 52 Or Chart.ChartType = 58 Or Chart.ChartType = 5 Or Chart.ChartType = -4120 Then
            RemoveSmallValues Chart
               'For Each Series In Chart.SeriesCollection
                If Chart.ChartType = 57 And Chart.HasAxis(xlCategory) Then
                 [B]Series.HasDataLabels = False[/B]
            End If
          End If
        End If
      Next Shape
    Next Slide
 End Sub

--------------------------------------

Sub RemoveSmallValues(Chart)
    
    Const valueThreshold As Double = 0.05
    
    For Each Series In Chart.SeriesCollection
   '   Series.HasDataLabels = False
      Series.HasDataLabels = True
  
        Dim pointCount As Integer
        Dim pointValues As Variant
  
        pointCount = Series.Points.Count
        pointValues = Series.Values
  
        For pointIndex = 1 To pointCount
          If pointValues(pointIndex) < valueThreshold Then
            Series.Points(pointIndex).HasDataLabel = False
            Else
            Series.Points(pointIndex).HasDataLabel = True
          End If
        Next pointIndex
    Next Series
End Sub

 

[Domenic]

Does this help?

[COLOR=darkblue]Sub[/COLOR] RemoveSmallValuesFromExecutiveReportCharts()
    [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Slide [COLOR=darkblue]In[/COLOR] ActivePresentation.Slides
        [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Shape [COLOR=darkblue]In[/COLOR] Slide.Shapes
            [COLOR=darkblue]If[/COLOR] Shape.HasChart [COLOR=darkblue]Then[/COLOR]
                [COLOR=darkblue]Set[/COLOR] Chart = Shape.Chart
                [COLOR=darkblue]Select[/COLOR] [COLOR=darkblue]Case[/COLOR] Chart.ChartType
                    [COLOR=darkblue]Case[/COLOR] 57
                        [COLOR=darkblue]If[/COLOR] Chart.HasAxis(xlCategory) [COLOR=darkblue]Then[/COLOR]
                            [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] Series [COLOR=darkblue]In[/COLOR] Chart.SeriesCollection
                                Series.HasDataLabels = [COLOR=darkblue]False[/COLOR]
                            [COLOR=darkblue]Next[/COLOR] Series
                        [COLOR=darkblue]Else[/COLOR]
                            RemoveSmallValues Chart
                        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
                    [COLOR=darkblue]Case[/COLOR] 53, 59, 52, 58, 5, -4120
                        RemoveSmallValues Chart
                [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Select[/COLOR]
             [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
        [COLOR=darkblue]Next[/COLOR] Shape
    [COLOR=darkblue]Next[/COLOR] Slide
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]