Supprimer un tableau Powerpoint (PPT) depuis Excel VBA
Bonjour,
J'aurais voulu mettre à jour automatiquement un tableau Power point, depuis Excel. Autrement dit, dès que je mets à jour mon tableau Excel, je voudrais que le même tableau (dans power point) se mette à jour à l'aide d'une macro VBA.
Grâce à ce site, j'ai pu récupérer le code qui va bien (voir ci-dessous). Par contre, ce code fait seulement di "copier/coller" sans écraser l'ancien tableau de mon power point.
Pourriez vous me dire SVP comment faire pour supprimer d'abord le tableau power point avant la copie du nouveau, ou au moins vider ses cellules avant mise à jour parce que la structure ne change pas.
D'avance merci.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("C:\LaPresentation.ppt")
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Feuil1.Range("B1:H5").Copy
'Effectue un collage dans la 2eme diapositive
.Slides(2).Shapes.Paste
With .Slides(2).Shapes(.Slides(2).Shapes.Count)
.Name = "monTableau" 'Renomme l'objet collé
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur
.Width = 400 'largeur
End With
'insère le contenu de la cellule A1 dans la deuxième zone de texte,
'du 3eme slide
' .Slides(3).Shapes(2).TextFrame.TextRange.Text = Range("A1")
'sauvegarde la présentation
.Save
End With
'ferme la présentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
End Sub |
