Bonjour,
J'aimerais savoir si il est possible de changer les titres des graphiques que l'on colle dans powerpoint (qui vienne d'excel) et si il est possible de les centrer ?
Jevous joins le code déjà mis en place.
Merci d'avance.
J'aimerais savoir si il est possible de changer les titres des graphiques que l'on colle dans powerpoint (qui vienne d'excel) et si il est possible de les centrer ?
Jevous joins le code déjà mis en place.
Merci d'avance.
Code:
Private Sub EmettreRapport_Click()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
chemin = ThisWorkbook.Path
Set PptDoc = PptApp.Presentations.Open(chemin & "\Indicateurs de Pilotage.pptx")
Sheets("Charge Réelle Disponible").Select
ActiveSheet.Shapes("RéelleGlobale").Copy
PptDoc.Slides(3).Shapes.Paste
With PptDoc.Slides(3).Shapes("RéelleGlobale")
.Left = 150 'position verticale dans le slide
.Top = 80 'position verticale dans le slide
.Height = 150 'hauteur image
End With
Sheets("Charge Réelle Disponible").Select
ActiveSheet.Shapes("RéelleDVI").Copy
PptDoc.Slides(3).Shapes.Paste
With PptDoc.Slides(3).Shapes("RéelleOk")
.Left = 150 'position verticale dans le slide
.Top = 220 'position verticale dans le slide
.Height = 150 'hauteur image
End With
Sheets("Charge Réelle Disponible").Select
ActiveSheet.Shapes("RéelleHeure").Copy
PptDoc.Slides(3).Shapes.Paste
With PptDoc.Slides(3).Shapes("RéelleNo")
.Left = 150 'position verticale dans le slide
.Top = 360 'position verticale dans le slide
.Height = 150 'hauteur image
End With
End Sub