PowerPoint VBA boucle tous les clichés, toutes les formes, de trouver graphique, définissez datalabel couleur Noir

Je suis nouveau sur PowerPoint VBA, donc s'il vous plaît garder avec moi.

Je voudrais:

  1. boucle sur toutes les diapositives sur un pptx,
  2. boucle à travers toutes les formes sur une diapositive,
  3. trouver graphique formes
  4. boucle à travers le graphique de la collection
  5. définir la datalabel propriété de couleur foncé, noir.

Jusqu'à présent j'ai été en mesure de terminer les 3 premières tâches, mais j'ai besoin d'aide avec les 2 derniers. Voici mon code:

Sub test()

  Dim slide As Object
  Dim shape As Object
  Dim shapeNames As Object
  Dim chSeries As Series

  i = 0
  For Each slide In ActivePresentation.Slides

      For Each shape In slide.Shapes

          If shape.HasChart Then

              i = i + 1
              Debug.Print "found a chart on slide", i

          End If

      Next

  Next

End Sub

OriginalL'auteur Boosted_d16 | 2014-07-24

  1. 10

    Résolu.

    Sub test()

    Dim sld As Slide
    Dim shp As Shape
    Dim sr As Series
    Dim chrt As Chart

        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes

                If shp.HasChart Then
                    Debug.Print shp.Chart.ChartType

                    If shp.Chart.ChartType = 57 Then

                        shp.Chart.SeriesCollection(1).DataLabels.Font.Color = RGB(0, 0, 0)

                     End If

                End If

    Next shp
    Next sld

End Sub

    Si je n'ai pas réussi à en boucle sur la série dans le graphique, mais cela fonctionne.

    Cette réponse a été utile dans mon travail. Merci.
    Fonctionne un régal, si vous voulez le faire à partir d'Excel, dim comme Powerpoint.Diapositive Powerpoint.La forme etc...

    OriginalL'auteur Boosted_d16