c++11 this code worked with excel 2007 but not with office 365. why ? thanks [closed]

emphasized text If Graph = 6 Then 'graph écart réel étoile

        Sheets("Feuil3").ChartObjects(4).Chart.Export fichier, "gif"

        Me.Image6.Picture = **LoadPicture**("c:tempgraphique.gif")

        Sheets("Feuil1").Select
    End If