Discussion :

[cindy1808]

Bonjour,

Je voudrais insérer un graphique plus précisément un graphique "radar" qui est sur un fichier excel et actualisé dans ce même fichier.
Peut -on l'importer d'excel dans une image de userform?
Ou faut il faire autrement?
Merci pour vos réponses!

[Jean-Pierre49]

Bonjour,

Ds les tutoriels tu trouveras ta réponse,

Code:

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
Sub MaMacro()
                    Dim NomImage                        As String
                    Dim LeGraphique                     As ChartObject
 
    NomImage = "C:\imageTemp.Bmp"
 
    Set LeGraphique = ActiveSheet.ChartObjects(1)
    LeGraphique.Chart.Export NomImage, "GIF"
 
    With UserForm
        .Image1.Picture = LoadPicture(NomImage)
        .Show
    End With
 
End Sub

a adapter

Bon Courage
Jean-Pierre

[Abed_H]

Bonjour
Complément d'infos.
Tu peux exporter ton graphique dans un fichier image par la méthode Export, puis insérer un contrôle Image dans ton UserForm, et mettre le hemin d'accès au fichier GIF dans la propriété Picture de ce contrôle.
Et pour mettre à jour le contenu de l'image par macro, si l'apparence du
graphique a changé:

Code :

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

UserForm1.Image1.Picture = LoadPicture("C:\Dossier\MonImage.gif")

Bonne journée

Abed_H

[cindy1808]

Merci
Ca fonctionne très bien!!