PowerPoint-VBA - Schleife alle Folien, alle Formen, finden, Grafik, Satz datalabel Farbe Schwarz

Ich bin neu in PowerPoint-VBA also bitte Geduld mit mir.

Möchte ich:

  1. Schleife durch alle Folien auf einem bestimmten pptx,
  2. - Schleife durch alle shapes auf einer bestimmten Folie,
  3. finden Diagrammarten
  4. Schleife durch die chart ' s series Kollektion
  5. legen Sie die datalabel Eigenschaft Farbe zu dunkel schwarz.

Bisher habe ich die ersten 3 Aufgaben, aber ich brauche Hilfe bei den letzten 2. Hier ist mein 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

InformationsquelleAutor Boosted_d16 | 2014-07-24

  1. 10

    Gelöst.

    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

    Obwohl ich nicht erfolgreich-Schleife über die Serie im Diagramm, aber das funktioniert.

    Diese Antwort war hilfreich mit meiner Arbeit zu. Danke.
    Werk ein behandeln, wenn Sie dies tun wollen, innerhalb von Excel, dim als Powerpoint.Folie, Powerpoint.Form etc...

    InformationsquelleAutor Boosted_d16

Schreibe einen Kommentar