Définir emplacement copie d'image dans powerpoint

Bonjour,

Je cherche à créer une macro depuis Qlikview (un logiciel de reporting) pour copier des graphiques de qlikview en image dans un powerpoint existant.


Voici le bout de code que j'utilise pour ouvrir mon powerpoint et sélectionner la feuille sur laquelle je veux copier un élément.

Code:

---

1 2 3 4 5 6 7 8 9 10

sub ppt1   Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True ' Create a presentation   'Ouvrir le document powerpoint Set PPPres = PPApp.Presentations.Open("D:\Qlikview_Data\presentation_test.pptx")   'Sélectionner la slide qui m'intéresse Set PPSlide = PPPres.Slides(1)

---

Et voici le bout de code qui me permet de coller cet élément (je fais des chose avant pour sélectionner les objets que je veux copier):

Code:

---

1 2	ActiveDocument.GetSheetObject(charts(i).getobjectid).CopyBitmapToClipboard PPSlide.Shapes.Paste

---

Et mon graphique se colle au milieu de la slide. Comment faire pour pouvoir définir l'emplacement où je veux que mon grpahique soit collé et donc régler le hauteur, largeur (voire la taille) ?

Merci pour votre aide.

S'il s'agit d'un endroit sur le disque dur, le presse-papiers n'est pas disponible en VBA et le DataObject ne gère que le format Texte.

On peut peut-être contourner le problème en ajoutant un contrôle Image qui recevra l'image à enregistrer puis on utilise la procédure :

Code:

---

SavePicture Image1.Picture, "C:\XXX.bmp"

---

Ceci si j'ai bien compris ta demande