Insertion Image dans un userform ( VBA )

**jean-marc35** · 16/04/2015, 17h18

Bonjour

je souhaite inserer une image dans un userform ,
cette image est un graphique copier en tant qu image dans une feuille excel

Comment puis inserer cette image dans une zone image d'un userform

quel est le bout de code nécessaire

Merci de votre aide à tous

Invité · 16/04/2015, 18h53

Bonjour,

Un exemple pris sur le forum dans le fichier joint.

Cordialement.

**parmi** · 16/04/2015, 19h16

Bonjour,

Puisque tu travailles avec un graphique, aussi bien utiliser ce graphique plutôt que de le copier en image.
Voici un exemple simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim ChartTemp As Chart
 
    Set ChartTemp = ActiveChart
    ChartTemp.Export "C:\Chart.jpg"
 
    UserForm1.Image1.AutoSize = False
    UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
    UserForm1.Image1.Picture = LoadPicture("C:\Chart.jpg")
 
    UserForm1.Show
 
    Kill "C:\chart.jpg"

**jean-marc35** · 16/04/2015, 21h21

Envoyé par parmi

Bonjour,

Puisque tu travailles avec un graphique, aussi bien utiliser ce graphique plutôt que de le copier en image.
Voici un exemple simple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim ChartTemp As Chart
 
    Set ChartTemp = ActiveChart
    ChartTemp.Export "C:\Chart.jpg"
 
    UserForm1.Image1.AutoSize = False
    UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
    UserForm1.Image1.Picture = LoadPicture("C:\Chart.jpg")
 
    UserForm1.Show
 
    Kill "C:\chart.jpg"