Copier une image d'un powerpoint dans le presse-papier
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:
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
