Y
Yann
Guest
Salut à tous,
J'ai besoin de l'aide des plus expérimenté(e)s d'entre vous.
On m'a lancé le défis d'interagir sur un fichier powerpoint à partir
d'excel.
Voila l'histoire :
J'ai un fichier PPT (power point) "PPT1" avec une centaine de graphs (graphiques de power point, et non pas graphique d'excel dans PP) liés à un fichier Excel "Excel 1". Quand je double clique dans les graphs, j'ai la feuille de données, et dans le menu EDITION/LIENS j'ai le liens (un peu comme dans Excel) : je peux mettre à jour, modifier ou rompre le liens.
Je dois fabriquer un double de ce fichier avec des nouvelles données.
Je me crée un double du fichier Excel : "Excel 2" et un double du fichier
powerpoint : "PPT2".
Ce con de PP ne met pas les liens avec le nouveau fichier "Excel 2", il
garde les liaisons avec "Excel 1" (sauf pour le dernier graph, va comprendre charles).
Après moulte recherche j'ai trouvé comment interagir avec PP pour ouvrir le
fichier et activer chaque graphs.
Pour ceux que ça interesse voila les codes :
Sub chart_PP()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Set PPApp = CreateObject("Powerpoint.Application")
With PPApp
.Visible = True
.Activate
End With
'Dans cette partie, on active PP (attention pour excuter cette macros, il
faut que vous ayez activer les référence OUTIL/REFERENCE de PP)
chemin = "c:\test" 'ton chemin
fic = "fic.ppt" 'ton fichier PP à ouvrir
PPApp.Presentations.Open Filename:=chemin & fic
Set PPPres = PPApp.Presentations.Item(1) 'on utilise cette varaible pour
appeller le fichier Power Point
'la boucle qui active chaque slide
For sld = 1 To PPPres.Slides.Count
PPPres.Slides(sld).Select
For Each sh In PPPres.Slides(sld).Shapes
sh.Select
If sh.Type = 7 Then 'c'est un objet graphique
sh.OLEFormat.DoVerb 'active le graph : on voit la série de
données
PPPres.Slides(sld).Select ' je reselectionne le slide pour
fermer le graph
End If
Next
Next
End Sub
Voila, mais là j'ai un pb : impossible de trouver l'odre pour changer le
lien sur le graph !!!!!!!!!!!!!!!!!!
HELP ME PLEASE !!!!!!!!!!!!
Yann
J'ai besoin de l'aide des plus expérimenté(e)s d'entre vous.
On m'a lancé le défis d'interagir sur un fichier powerpoint à partir
d'excel.
Voila l'histoire :
J'ai un fichier PPT (power point) "PPT1" avec une centaine de graphs (graphiques de power point, et non pas graphique d'excel dans PP) liés à un fichier Excel "Excel 1". Quand je double clique dans les graphs, j'ai la feuille de données, et dans le menu EDITION/LIENS j'ai le liens (un peu comme dans Excel) : je peux mettre à jour, modifier ou rompre le liens.
Je dois fabriquer un double de ce fichier avec des nouvelles données.
Je me crée un double du fichier Excel : "Excel 2" et un double du fichier
powerpoint : "PPT2".
Ce con de PP ne met pas les liens avec le nouveau fichier "Excel 2", il
garde les liaisons avec "Excel 1" (sauf pour le dernier graph, va comprendre charles).
Après moulte recherche j'ai trouvé comment interagir avec PP pour ouvrir le
fichier et activer chaque graphs.
Pour ceux que ça interesse voila les codes :
Sub chart_PP()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Set PPApp = CreateObject("Powerpoint.Application")
With PPApp
.Visible = True
.Activate
End With
'Dans cette partie, on active PP (attention pour excuter cette macros, il
faut que vous ayez activer les référence OUTIL/REFERENCE de PP)
chemin = "c:\test" 'ton chemin
fic = "fic.ppt" 'ton fichier PP à ouvrir
PPApp.Presentations.Open Filename:=chemin & fic
Set PPPres = PPApp.Presentations.Item(1) 'on utilise cette varaible pour
appeller le fichier Power Point
'la boucle qui active chaque slide
For sld = 1 To PPPres.Slides.Count
PPPres.Slides(sld).Select
For Each sh In PPPres.Slides(sld).Shapes
sh.Select
If sh.Type = 7 Then 'c'est un objet graphique
sh.OLEFormat.DoVerb 'active le graph : on voit la série de
données
PPPres.Slides(sld).Select ' je reselectionne le slide pour
fermer le graph
End If
Next
Next
End Sub
Voila, mais là j'ai un pb : impossible de trouver l'odre pour changer le
lien sur le graph !!!!!!!!!!!!!!!!!!
HELP ME PLEASE !!!!!!!!!!!!
Yann
