création graphique excel à partir VB6

Version imprimable

06/10/2005, 11h00
getea85

création graphique excel à partir VB6

Bonjour,

A partir de VB6, je crée l'ouverture d'excel, je renomme la deuxième feuille que j'appelle "2", je mets dans cette feuille des données et je crée à partir de ces données un graphique Excel.

Seul problème, le graphe vient se mettre dans la première feuille du classeur excel et non dans le feuille "2" où sont positionnées les données ??

J'ai mis ce code là pour positionner les graphes dans la feuille 2 mais ça ne marche pas :

Code:

ActiveChart.Location Where:=xlLocationAsObject, Name:="2"

Quelques idées ?
06/10/2005, 14h21
zazaraignée
Salut

Sans l'avoir fait moi-même, mais pour avoir vu plusieurs messages sur le sujet, je crois que tu dois d'abord appeler la variable que tu as utilisé pour ouvrir ton fichier puisque ActiveChart n'est pas natif de VB mais de Excel.

Ça donnerais quelque chose comme:
Code:

1 2 maVarFichierExcel.ActiveChart.Location _ Where:=xlLocationAsObject, Name:="2"
Évidemment, je n'ai pas vérifié...

Si ça ne marche pas, fais nous signe...

Non, ca ne marche pas mieux...

Par contre, j'ai essayé une autre méthode beaucoup moins élégante mais qui marche : je coupe tous mes graphes créés en "feuil1" pour les remettre dans la feuille "2" :
Code:

1 2 3 4 5 6 7 8 9 Dim mesgraphes As ChartObject Worksheets("Feuil1").Select For Each mesgraphes In ActiveSheet.ChartObjects mesgraphes.Cut Worksheets("2").Select Range("J17").Select ActiveSheet.Paste Next
Merci à ouskel'n'or pour ce petit bout de code que j'ai trouvé dans un de ses messages !

Création graphics excel dans vb 6

Bonjour,
Tu place sur ta Form un contrôle MSChart (Projet / Composants Microsoft Chart Control 6.0 (OLEDB)). et un CommandButton.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Private Sub Command1_Click()
Dim wkbObj As Object
Set wkbObj = GetObject _
("C:\Mes documents\Classeur1.xls")
 
Dim arrData(1 To 7, 1 To 2)
Dim i As Integer
For i = 1 To 7
   ' Les valeurs de la colonne A remplissent la première
   ' série du tableau. Si ces valeurs sont des chaînes,
   ' elles deviennent des étiquettes de lignes.
   Dim arrValues(1 To 5, 1 To 3)
    arrData(i, 1) = wkbObj.Worksheets(1) _
   .Range("A" & i + 1).Value
 
   ' Les valeurs de la colonne B remplissent ensuite la seconde série.
   arrData(i, 2) = wkbObj.Worksheets(1) _
   .Range("B" & i + 1).Value
Next i
MSChart1.ChartData = arrData
End Sub

jpleroisse