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:
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..
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
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
Partager