Vb Excel - contrôle manquant : Microsoft Chart control, version 6.0
morickno
Messages postés
117
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
26 juin 2007
-
13 mai 2005 à 11:30
morickno Messages postés 117 Date d'inscription vendredi 22 avril 2005 Statut Membre Dernière intervention 26 juin 2007 - 13 mai 2005 à 14:11
morickno Messages postés 117 Date d'inscription vendredi 22 avril 2005 Statut Membre Dernière intervention 26 juin 2007 - 13 mai 2005 à 14:11
A voir également:
- Microsoft chart controls
- Visual basic chart - Meilleures réponses
- Microsoft chart control - Meilleures réponses
- Microsoft scripting runtime - Forum Visual Basic
- Microsoft windows common controls-2 6.0 - Forum Visual Basic
- Ed controls ✓ - Forum Visual Basic 6
- Microsoft calendar control 11.0 - Forum Visual Basic 6
- Microsoft forms 2.0 object library - Forum Visual Basic
8 réponses
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
13 mai 2005 à 11:45
13 mai 2005 à 11:45
salut
le controle s'apelle "MSCHRT20.OCX"
fait une recherche sur ton ordi,normalement il se trouve dans WINDOWS\systeme32.
dans VBA tu vas dans outils\référence et tu fais parcourir.
voila
@plus
petchy
le controle s'apelle "MSCHRT20.OCX"
fait une recherche sur ton ordi,normalement il se trouve dans WINDOWS\systeme32.
dans VBA tu vas dans outils\référence et tu fais parcourir.
voila
@plus
petchy
morickno
Messages postés
117
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
26 juin 2007
13 mai 2005 à 12:08
13 mai 2005 à 12:08
j'ai rien de tout ca, j'ai tout installé pourtant
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
13 mai 2005 à 12:10
13 mai 2005 à 12:10
voila un site avec des OCXhttp://officesystem.access.free.fr/mschart.htm
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 mai 2005 à 12:13
13 mai 2005 à 12:13
Re bonjour,
Pour importer ton graphique dans ton UserForm, Place un contrôle Image (propriété AutoSize à True) et un CommandButton.
Ensuite place ce code.
Le principe est de créer un fichier temporaire (temp), d'y placer le graph , de le récupérer dans le contrôle Image et ensuite de détruire le fichier temporaire.
Private Sub CommandButton1_Click()
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = ActiveSheet.ChartObjects(1).Chart
Fname = ThisWorkBook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="gif"
Image1.Picture = LoadPicture(Fname)
Kill ThisWorkBook.Path & Application.PathSeparator & "temp.gif"
End Sub
jpleroisse
Pour importer ton graphique dans ton UserForm, Place un contrôle Image (propriété AutoSize à True) et un CommandButton.
Ensuite place ce code.
Le principe est de créer un fichier temporaire (temp), d'y placer le graph , de le récupérer dans le contrôle Image et ensuite de détruire le fichier temporaire.
Private Sub CommandButton1_Click()
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = ActiveSheet.ChartObjects(1).Chart
Fname = ThisWorkBook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="gif"
Image1.Picture = LoadPicture(Fname)
Kill ThisWorkBook.Path & Application.PathSeparator & "temp.gif"
End Sub
jpleroisse
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
morickno
Messages postés
117
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
26 juin 2007
13 mai 2005 à 12:43
13 mai 2005 à 12:43
j'ai fai tous ce qu'il fallait mais j'ai un probleme de composant non licencié j'ai voulu corriger le probleme avec des explication dans le forum mais il me dit que j'ai pas VB6 donc c'est foutu ???
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 mai 2005 à 13:30
13 mai 2005 à 13:30
Le code que je viens de te laisser n'a pas besoin de VB 6, l'as tu essayer ??
Chez moi, il fonctionne très bien. Sinon mets ton code pour voir s'il n'y a pas une erreur.
jpleroisse
Chez moi, il fonctionne très bien. Sinon mets ton code pour voir s'il n'y a pas une erreur.
jpleroisse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 mai 2005 à 14:01
13 mai 2005 à 14:01
PS j'ai oublier de présicer qu'il faut activer la feuille pour récupérer le Graph, donc après Dim Fname As String, tu active ta Feuille, si c'est la 1, Sheets(1).Activate
Ton graphique doit être dans une feuille, 1, 2, ect.., mais pas une Feuille("Graph1"), pour celà, il faut modifier le code mais cela remplirait tout ton UserForm (pas à conseiller).
Tient moi au courrant.
jpleroisse
Ton graphique doit être dans une feuille, 1, 2, ect.., mais pas une Feuille("Graph1"), pour celà, il faut modifier le code mais cela remplirait tout ton UserForm (pas à conseiller).
Tient moi au courrant.
jpleroisse
morickno
Messages postés
117
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
26 juin 2007
13 mai 2005 à 14:11
13 mai 2005 à 14:11
c'est bon ca marche avec l'image, j'avais pas vu que tu avai inseré ce code
merci bp
merci bp
