recuperer 1 graphique excel vers VB

**tomgrc** · 24/02/2005, 15h16

Bonjour, j arrive a lancer un graphique excel grace a mes données VB, mais lorsque je veux le récupérer, je ný arrive pas. Le graphique est dans le presse-papier mais il ne revient pas dans mon image.
Pourtant je lui est écrit: Bilan.Image1.Picture=clipboard.getdata() avec 2,3,8 ou 9 comme valeur pour la ().
C est un programme que j ai récupéré ou il y a au début `Mise à jour de l´indicateur graphique--->bilan.graphique="CreationGraphiqueReponses", et j ai mis ca en commentaire car le ".graphique" ne me parlait pas.
Est-ce ca la clé de l´énigme?
Auriez-vous la solution?
Merci d´avance,
Thomas

**zazaraignée** · 24/02/2005, 18h25

Salut

Juste au cas... peut-être que tu sais déjà!

À propos du presse-papiers:

Avant de placer quelque chose dans le presse-papiers, il est bon de le vider

Code :

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

Clipboard.Clear

Pour récupérer une image dans le presse-papier, c'est une bonne idée d'interroger d'abord le presse-papier pour connaître le type de contenu:

Code :

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

If Clipboard.GetFormat(8) then

où 8 représente un DIB

À propos d'un graphique Excel:
Tu devrais utiliser un contrôle MsChart (ou quelque chose du genre) parce que les contrôles PictureBox ou Image contiennent des images, pas des graphiques vectoriels liés à des données.

**bhaal76** · 24/02/2005, 21h02

regarde aussi du coté des objets OLE

**bidou** · 25/02/2005, 08h31

montre nous tout le code à partir de la selection du graphe Excel

**tomgrc** · 25/02/2005, 09h26

Salut Bidou, merci d avoir jeté un oeil,
pour le programme il est dans un autre sujet un tt ptit peu plus bas qui
s appelle "mon prog pour recup un graph excel a un bug". Merci d´avance.Thomas.

**bidou** · 25/02/2005, 10h01

Eviter les multi post sinon on ne s'en sortira jamais

Essayes avec xlApp.ActiveChart.CopyPicture c'est à dire sans le ChartArea

**tomgrc** · 25/02/2005, 10h25

Je viens d´essayer sans le ChartArea, mais ca ne change rien

**bidou** · 25/02/2005, 10h43

Code :

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

xlApp.ActiveChart.Chart.CopyPicture

**tomgrc** · 25/02/2005, 11h03

j ai testé:
xlApp.ActiveChart.AreaChart.CopyPicture
xlApp.ActiveChart.CopyPicture
xlApp.ActiveChart.Chart.CopyPicture
avec
exemple.Image1.Picture=Clipboard.GetData(2)
exemple.Image1.Picture=Clipboard.GetData(3)
exemple.Image1.Picture=Clipboard.GetData(8)
exemple.Image1.Picture=Clipboard.GetData(9)

j ai fait ces associations dans tous les sens, j ai mm essayé avec Picture1.Picture. C est qd mm bizarre. Alors que mon graphe apparait bien dans le presse-papier excel.

**bidou** · 25/02/2005, 11h14

moi ca marche avec

Code :

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

1
2
3
4
5
6
Set MaPlage = MaFeuille.Range(MaFeuille.Cells(1, 1), MaFeuille.Cells(50, 2))
MaPlage.FormulaLocal = "=LIGNE()*COLONNE()"
Set mongraphe = MaFeuille.ChartObjects.Add(10, 10, 100, 100)
mongraphe.Chart.SetSourceData MaPlage
mongraphe.CopyPicture
Picture1.Picture = Clipboard.GetData()

**tomgrc** · 25/02/2005, 11h46

Bidou, je suis relou mais j arrive pas a voir les differences entre ton programme et le mien. Je joints mon prog, si tu pouvais jeter un oeil...ca serait genial.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Option Explicit 
Sub CreationGraphiqueRéponses() 
    'Crée le graphique pour la revue éditée dans la fenetre Principale 
    '-Statistique des réponses renseignées 
    Dim Langue As String 
    Dim AmortissementAir, AmortissementAzote, i As Integer 
    Dim xlApp, xlSheet, xlGraph As Object 
 
    'Mise à jour de l'indicateur graphique 
    'Principale.Graphique = "CreationGraphiqueRéponses" 
    On Error GoTo Fin 
    Screen.MousePointer = vbHourglass 
    'Informe "Ouverture de Excel", "Excel openning" 
    'Calcul des données nécessaires au graphique 
    AmortissementAir = Bilan.AmortAir.Text 
    AmortissementAzote = Bilan.AmortAzote.Text 
    'Ouverture d'une instance d'Excel 
    Set xlApp = CreateObject("Excel.Application") 
    'Excel travaille en arrière-plan 
    xlApp.Visible = True 
    xlApp.DisplayAlerts = True 'Pas de message intempestifs au moment de la fermeture 
    'Ajout d'un classeur 
    xlApp.Workbooks.Add 
    'Ajout d 'une feuille dans le classeur 
    Set xlSheet = xlApp.Workbooks(1).Sheets(1) 
    'Informe "Création du graphique", "Preparation of the chart" 
    'Ecriture des légendes nécessaires au graphique 
    'Langue = Principale.ComboLangueLogiciel.Text 
    xlSheet.Range("A1").Select 
    If Langue = "Français" Then 
        xlSheet.Range("A1").FormulaR1C1 = "Amortissement"      
    Else 
        xlSheet.Range("A1").FormulaR1C1 = "Amortissement" 
    End If 
    xlSheet.Range("B1").FormulaR1C1 = Str(AmortissementAir) 
    xlSheet.Range("C1").FormulaR1C1 = Str(AmortissementAzote) 
    'Ajout d'un graphique 
    xlApp.Charts.Add after:=xlApp.Worksheets("Feuil1") 
 
With xlApp.ActiveChart 
        .ChartType = 54 'xl3DPieExploded 
        .SetSourceData Source:=xlSheet.Range("A1:C8"), PlotBy:=8 ' _ 
            'xlColumns 
        '.Location Where:=2, Name:="Graph1" 'xlLocationAsObject 
        '.HasTitle = False 
        .ApplyDataLabels Type:=5, LegendKey:=False, _ 
            HasLeaderLines:=True 'xlDataLabelsShowValue 
        'Suppression du rectangle gris 
        .PlotArea.Select 
        xlApp.Selection.ClearFormats 
        'Grossissement de la police de la légende 
        .Legend.Select 
        xlApp.Selection.AutoScaleFont = True 
        With xlApp.Selection.Font 
            .Name = "Arial" 
            .FontStyle = "Normal" 
            .Size = 14 
        End With 
        'Déplacement de la légende 
        xlApp.Selection.Left = 540 
 
        'Grossissement de la police des étiquettes 
        .SeriesCollection(1).DataLabels.Select 
        xlApp.Selection.AutoScaleFont = True 
        With xlApp.Selection.Font 
            .Name = "Arial" 
            .FontStyle = "Normal" 
            .Size = 14 
        End With 
        'Copie le graphique dans le presse-papier 
        xlApp.ActiveChart.ChartArea.CopyPicture 
    End With 
 
    'Récupération du graphique dans l'image via le Presse-Papier 
    exemple.Image1.Picture = Clipboard.GetData( )

**bidou** · 25/02/2005, 13h05

si j'écris ton code comme suit, ca marche chez moi

'Crée le graphique pour la revue éditée dans la fenetre Principale
'-Statistique des réponses renseignées
Dim Langue As String
Dim AmortissementAir, AmortissementAzote, i As Integer
Dim xlApp, xlSheet, xlGraph As Object

'Mise à jour de l'indicateur graphique
'Principale.Graphique = "CreationGraphiqueRéponses"
'On Error GoTo Fin
Screen.MousePointer = vbHourglass
'Informe "Ouverture de Excel", "Excel openning"
'Calcul des données nécessaires au graphique
AmortissementAir = "12"
AmortissementAzote = "20"
'Ouverture d'une instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Excel travaille en arrière-plan
xlApp.Visible = True
xlApp.DisplayAlerts = True 'Pas de message intempestifs au moment de la fermeture
'Ajout d'un classeur
xlApp.Workbooks.Add
'Ajout d 'une feuille dans le classeur
Set xlSheet = xlApp.Workbooks(1).Sheets(1)
'Informe "Création du graphique", "Preparation of the chart"
'Ecriture des légendes nécessaires au graphique
'Langue = Principale.ComboLangueLogiciel.Text
xlSheet.Range("A1").Select
If Langue = "Français" Then
xlSheet.Range("A1").FormulaR1C1 = "Amortissement"
Else
xlSheet.Range("A1").FormulaR1C1 = "Amortissement"
End If
xlSheet.Range("B1").FormulaR1C1 = Str(AmortissementAir)
xlSheet.Range("C1").FormulaR1C1 = Str(AmortissementAzote)
'Ajout d'un graphique
xlApp.Charts.Add after:=xlApp.Worksheets("Feuil1")

With xlApp.ActiveChart
.ChartType = 54 'xl3DPieExploded
.SetSourceData Source:=xlSheet.Range("A1:C8"), PlotBy:=8 ' _
'xlColumns
'.Location Where:=2, Name:="Graph1" 'xlLocationAsObject
'.HasTitle = False
.ApplyDataLabels 2, False
'Suppression du rectangle gris
.PlotArea.Select
xlApp.Selection.ClearFormats
'Grossissement de la police de la légende
.Legend.Select
xlApp.Selection.AutoScaleFont = True
With xlApp.Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 14
End With
'Déplacement de la légende
xlApp.Selection.Left = 540

'Grossissement de la police des étiquettes
.SeriesCollection(1).DataLabels.Select
xlApp.Selection.AutoScaleFont = True
With xlApp.Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 14
End With
'Copie le graphique dans le presse-papier
xlApp.ActiveChart.CopyPicture
End With

'Récupération du graphique dans l'image via le Presse-Papier
Me.Image1.Picture = Clipboard.GetData()
End Sub