Discussion :

[Kestion100]

Bonjour,
Je sèche complètement.

J'ai trouvé un code pour afficher une image depuis range dans un contrôle image d'un userform:

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
 
Sub CompteRendu()
 
 
repertoire = ThisWorkbook.Path
Set f = Sheets("XXXX")
Set champExport = f.Range("CC1:CJ12")
 
champExport.CopyPicture
Set co = f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height)
 
co.Chart.Paste
 
 
co.Chart.Export repertoire & "\" & "imageExport.gif", "gif"
 
UserForm3.Image1.Picture = LoadPicture(repertoire & "\" & "imageExport.gif")
UserForm3.Show
f.ChartObjects(1).Delete
Kill repertoire & "\" & "imageExport.gif"
 
 
 
End Sub

Qui fonctionne parfaitement bien ...... mais uniquement en pas à pas détaillé, en lancement par Exécution il n'y a aucune image dans le userform????


L'erreur de ma part doit être grosse comme un éléphant dans un couloir mais je passe au travers....


Merci du coup de main

[Kestion100]

En pas à pas détaillé, je vois bien l'image se copier dans le chart, le fichier se créer, avec bien une image dedans et l'image 1 du userform est bien l'image voulu.
En exécution, le chart reste vide etc....


????

[Kestion100]

Trouvé:

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
 
Sheets("XXXX").Activate
repertoire = ThisWorkbook.Path
Set f = Sheets("XXXX")
Set champExport = f.Range("CC1:CJ12")
 
champExport.CopyPicture
Set co = f.ChartObjects.Add(0, 0, champExport.Width, champExport.Height)
 
 
f.ChartObjects(1).Activate
    ActiveChart.Paste
 
 
co.Chart.Export repertoire & "\" & "imageExport.gif", "gif"
 
UserForm3.Image1.Picture = LoadPicture(repertoire & "\" & "imageExport.gif")
UserForm3.Show
f.ChartObjects(1).Delete
Kill repertoire & "\" & "imageExport.gif"