liaison excel - powerpoint (bis)

[FredC]

Bonjour,

J'ai encore un petit souci lors de l'extraction de données depuis ppt vers xls.
Je souhaite récupérer des infos sur la couleur de remplissage du titre de chaque slide (qui, dans mon exemple, peut être soit rouge, soit bleu, soit jaune).

j'ai essayé cela:

Sub Extract_Excel_Simple()

On Error Resume Next
  
  Dim appXL As Excel.Application
  Dim claXL As Excel.Workbook
  Dim presPPT As PowerPoint.Presentation
  Dim Diapo As PowerPoint.Slide
  Dim Forme As PowerPoint.Shape
  Dim i As Integer 'ligne
  Dim color As Long
  
'presPPT représente la présentation active
    Set presPPT = ActivePresentation
'Créer une nouvelle instance de l'application Excel
    Set appXL = New Excel.Application
'Créer un nouveau classeur dans cette instance
    Set claXL = appXL.Workbooks.Add
'Commencer en ligne 2 dans Excel
    i = 2
  
'Boucle sur les diapositives de la présentation
    For Each Diapo In presPPT.Slides
        With appXL
        ' Affichage de la couleur du titre de la diapo
            color = Diapo.Shapes.Title.TextFrame.TextRange.Font.color.RGB
            .Cells(i, 2) = color
        i = i + 1
        End With
    Next

'Afficher le classeur Excel
    appXL.Visible = True
    
End Sub

En fait il m'extrait à chaque fois la même valeur (16777215) qui apparemment correspondrait à du violet.

Quelqu'un aurait-il une idée?
Merci

 

[FredC]

Re : liaison excel - powerpoint (bis)

en fait j'ai trouvé tout seul à force de galérer...😎

            color = Diapo.Shapes.Title.Fill.ForeColor.RGB

au lieu de:

            color = Diapo.Shapes.Title.TextFrame.TextRange.Font.color.RGB