Bonjour,

J'ai un fichier excel dans lequel je créé des graphiques, zone de texte et TCD pour synthétiser des informations chiffrées.
Ensuite je dois copier/coller toutes ces informations dans un power point.
J'ai réussi à trouver sur votre site une macro pour copier les graphiques mais je voulais savoir s'il serait possible d'utiliser la même chose pour les TCD.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
ub copiebdx()
 
Dim ppt As PowerPoint.Application
Dim pptdoc As PowerPoint.Presentation
Dim Nbshpe As Byte
 
Set ppt = CreateObject("Powerpoint.Application") 'creation session PowerPoint
ppt.Visible = True
Set pptdoc = ppt.Presentations.Open("LIEN SOURCE")
 
ActiveSheet.ChartObjects("RT").CopyPicture xlScreen, xlBitmap 'copie du "RT" de la feuille active
pptdoc.Slides(57).Shapes.Paste 'collage dans le Slide57 du document Power Point
 
Nbshpe = pptdoc.Slides(57).Shapes.Count
 
With pptdoc.Slides(57).Shapes(Nbshpe)
.Name = "RT" 'personnaliser le nom de l'image insérée
.Left = 30 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 320 'hauteur image
.Width = 480 'largeur image
End With
Par exemple en remplaçant le ChartOjects de ce code.

Merci d'avance