Affichage Frame dans userform à l'ouverture

annov

XLDnaute Occasionnel
Bonsoir,
J'ai une userform dans laquelle j'ai incorporé 1 frame pour afficher un graphique .Cela fonctionne lorsque je click sur la frame , le graphique s'affiche mais je voudrais qu'il s'affiche à l'ouverture de l'userform .

Auriez vous une solution à me proposer .


Merci d'avance



Private Sub Frame2_click()
Set g = Sheets("graphique").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "\" & "graphe1.gif"
g.Export Filename:=fichier, FilterName:="GIF"
Frame2.Picture = LoadPicture(fichier)
End Sub
 

Papou-net

XLDnaute Barbatruc
Re : Affichage Frame dans userform à l'ouverture

Bonsoir annov,

A ta place, j'essaierais de mettre ce code dans l'événement Activate de ton UserForm.

Code:
Private Sub UserForm_Activate()
Set g = Sheets("graphique").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "\" & "graphe1.gif"
g.Export Filename:=fichier, FilterName:="GIF"
Frame2.Picture = LoadPicture(fichier)
End Sub
Cordialement.
 

Papou-net

XLDnaute Barbatruc
Re : Affichage Frame dans userform à l'ouverture

RE :

Voici ton fichier modifié.

J'ai transféré tout le code dans l'événement Activate du formulaire, comme je te l'avais proposé plus haut.

J'ai fait plusieurs tests et les graphiques s'affichent à tous les coups.

Espérant qu'il en sera de même chez toi.

Cordialement.
 

Pièces jointes

  • Copie de SUIVI EVAP.xlsm
    42.6 KB · Affichages: 64

Discussions similaires

Réponses
5
Affichages
1 K

Statistiques des forums

Discussions
312 240
Messages
2 086 518
Membres
103 241
dernier inscrit
Peyo33