Bonjour,
Je suis sur PowerPoint 2013. J'aimerais mettre à jour des graphiques powerpoint. Ces derniers reposent sur des feuilles excel incorporées contenant des formules pointant vers un fichier excel extérieur; je les mets à jour par ce code que j'ai trouvé et qui marche nickel :
Sub ChangeChartData()
Dim pptChart As Chart
Dim pptChartData As ChartData
Dim xlWorkbook As Object
Dim sld As Slide
Dim shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
Set pptChart = shp.Chart
Set pptChartData = pptChart.ChartData
pptChartData.Activate
Set pptWorkbook = pptChartData.Workbook
On Error Resume Next
'update first link
pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
On Error GoTo 0
pptWorkbook.Close True
End If
Next
Next
Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing
End Sub
Néanmoins le code préserve les formules dans les feuilles excel incorporées tandis que j'aimerais les remplacer par leurs valeurs pour rendre le powerpoint indépendant. J'ai essayé d'incorporer un :
ChartData.Select
Selection.Copy
PasteSpecial Paste:=xlPasteValues
dans la macro mais ça ne marche évidemment pas.
Auriez-vous une idée de comment faire ?
Merci !