Bonjour à tous,

Je souhaiterai copier une image d'une slide en particulier afin de l'avoir dans le presse papier pour ensuite aller la coller ailleurs (en l'occurence ici sur un fichier excel)

J'utlise VBA via excel, et pour l'isntant voici 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
Sub MAJ_graph_TTA()
 
'*********************************************
'Ouverture de POWERPOINT
'*********************************************
 
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Dim diapo As Slide
 
 
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open("chemin")
 
 
'***************************************************
' Copie des images PORTAIL KPI dans EXCEL
'***************************************************
 
 PptDoc.Slides(201).Select 'je lance le powerpoint sur la slide qui m'intéresse et ensuite je voudrais copier la seule image présente dessus)
 
 Selection.Copy
 Windows("Macro_transfert.xlsm").Activate
 Sheets("feuil1").Select
 Range("A91").Select
 ActiveSheet.Pictures.Paste.Select
J'ai pensé à utiliser Application.Onkey "{tab}" car lorsqu'on fait tabulation (dans le powerpoint) le 1er élément selectionné est l'image, sauf qu'ici la macro agit sur le fichier excel et non sur le powerpoint..

Donc:
- soit savez vous comment indiquer à la macro qu'il faut qu'elle se positionne sur le powerpoint pour application.onkey
- soit savez vous comment selectionner dans ma slide cette (fichue) image..?
c'est une opération que je fais régulièrement, j'ai une dizaines d'image de graph à aller chercher dans un power point lourd et automatiser cette tâche serait un pur plaisir et un gain de temps

Merci d'avance pour votre aide!

Margot