Discussion :

[kamizole23]

BOnjour,

Je débute en macro excel et VBA, pour résumer, j'aimerai récupérer les images qui sont présente dans mon fichier excel et les insérer dans un fichier powerpoint.

J'ai réussi à récupérer du text mais je ne trouve pas les options pour copier les images.

un bout de mon code :

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
24
25
26
27
28
29
Sub RemplirPPT()
Dim c As Object
Dim shapeslide
Dim shapename
Dim shapetext
Dim nextrow
 
Set ppApp = GetObject(, "Powerpoint.application")
Set ppPres = ppApp.ActivePresentation
 
'For Each c In Feuil1.Range("a2:a" & Feuil1.Range("a" & Rows.Count).End(xlUp).Row + 1)
'shapeslide = Feuil1.Range("a" & c.Row)
'shapename = Feuil1.Range("b" & c.Row)
'shapetext = Feuil1.Range("c" & c.Row)
'friendlyname = Feuil1.Range("d" & c.Row)
'ppPres.Slides(shapeslide).Shapes(shapename).TextEffect.Text = shapetext
'Next c
 
shapename = Feuil1.Range("b2")
shapetext = Feuil1.Range("c2")
 
Feuil1.Picture("Image 2").Copy
 
ppPres.Slides(1).Shapes(shapename).TextEffect.Text = shapetext
ppPres.Slides(1).Shapes(shapename).pa
 
 
 
End Sub

Merci pour votre aide

[Menhir]

Il faut scruter les objets par la collection Shapes avec une boucle For Each (à moins de connaitre déjà le nom des images).
https://docs.microsoft.com/fr-fr/off...i/excel.shapes

Voir ceux qui sont des images par leur propriété Type égale à msoPicture.
https://docs.microsoft.com/fr-fr/off...cel.shape.type

Copier ceux qui conviennent avec une méthode Copy ou CopyPicture.
https://docs.microsoft.com/fr-fr/off...cel.shape.copy
https://docs.microsoft.com/fr-fr/off...pe.copypicture

Pour ceux qui est de les coller dans PowerPoint, ça dépasse le cadre de cette rubrique et de mes compétences.

[kamizole23]

Merci pour tous les liens mais impossible de trouver l'image, je connais le nom de mon image mais impossible de trouver la ligne de code qui permet en premier temps de la selectionner .

J'en ai essayé des lignes de codes -_-....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Feuil1.ChartObjects("Image2")
Feuil1.Shapes.Range("Image2")
Feuil1.Shapes.CopyPicture("Image2")
Feuil1.OLEObjects("Image2").Copy
Feuil1.OLEObjects("Image3")
....
Help please :(

[Menhir]

J'en ai essayé des lignes de codes -_-....

Feuil1.ChartObjects("Image2") concerne les graphes, ça ne peut donc pas désigner une image.

Feuil1.Shapes.Range("Image2") représente un ensemble de formes et non une forme unique.
https://docs.microsoft.com/fr-fr/off...l.shapes.range
https://docs.microsoft.com/fr-fr/off...cel.shaperange

Feuil1.Shapes.CopyPicture("Image2") CopyPicture ne fait pas partie des méthodes de Shapes.
https://docs.microsoft.com/fr-fr/off...i/excel.shapes

Feuil1.OLEObjects("Image2").Copy Il est peut probable que ton image soit un objet activeX, tu ne peux donc pas l'atteindre par OLE
Feuil1.OLEObjects("Image3") idem