Discussion :

[lozeba]

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 :

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

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 :

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

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.

[l_autodidacte]

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 :

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

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

Ceci si j'ai bien compris ta demande