Visualiser des graphiques de plusieurs feuilles dans userform

K

kjin

XLDnaute Barbatruc

• 7 Juin 2011

• #2

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Bonsoir,
Export des graphiques sous forme d'image gif dans le répertoire courant

Code:

Private Sub ComboBox1_Change()
Dim nGraph$
Image1.Picture = LoadPicture("")
nGraph = ActiveWorkbook.Path & "\" & ComboBox1 & ".gif"
Image1.Picture = LoadPicture(nGraph)
End Sub

Private Sub UserForm_Initialize()
Dim nGraph$, i%
For i = 2 To 4
    nGraph = ActiveWorkbook.Path & "\Pièce " & i - 1 & ".gif"
    Sheets(i).ChartObjects(1).Chart.Export nGraph
Next
End Sub

Note que je n'ai mis aucun contrôle d'erreur à ce stade
A+
kjin

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 8 Juin 2011

• #3

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Merci kjin de m'avoir répondu, c'est bien compliqué tout ça, je n'aurai jamais trouvé tout seul.
Bref je vais essayer ton code.
Merci

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 8 Juin 2011

• #4

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Ca marche impecable,
Un gros merci à toi Kjin, tu es trop fort!!!
Je vais donc essayer de le mettre dans mon vrai programme qui compte une 20ene de graphiques.

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 9 Juin 2011

• #5

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Bonjour
Moi non plus je n'aurais pas trouvé, la solution est beaucoup plus clair que ce que j'essayer de faire!!!

 

Vote positif 0 Vote négatif

M

Matthewfenson

Guest

• 9 Juin 2011

• #6

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Merci CB60 de m'avoir répondu, dsl de t'avoir pris du temps... A+

 

Vote positif 0 Vote négatif