Excel Diagramm in PictureBox darstellen

Sabine78 · 15. März 2008, 17:10

Hallo Zusammen,

kann mir jemand schreiben, wie ich ein Excel-Diagramm nach VB kriege und in einer PictureBox darstellen kann?
Auf das Diagramm zugreifen kann ich, den Namen usw. auslesen klappt, jedoch das copy mitanschließendem Darstellen in der PictureBox geht nicht.

Oder gibt es dafür gänzlich andere Wege? Ich habe im Menü unter Build "Build Excel Diagramm" gefunden, kann damit aber überhaupt nichts anfangen.

Gruß
Sabine

Mad Andy · 15. März 2008, 17:21

Hi!

Soweit ich weiß gibts für vb.net ein Chart / Diagramm Steuerelement. Wenn du da die Werte von Excel reinpackst, müsste es genauso oder ähnlich aussehen wie in Excel.

Sabine78 · 15. März 2008, 22:37

Hi,

gibts auch eine Möglichkeit mittels PictureBox?

Sabine

Mad Andy · 15. März 2008, 23:43

Hey,

wozu muss es denn eine Picturebox sein?

Sabine78 · 16. März 2008, 07:40

Hi,

muss es nicht. Ich habe angenommen, dass ich das Diagramm kopiere und dann in eine PictureBox einfüge.

Sabine

Mad Andy · 16. März 2008, 10:09

Guck dir vllt mal das Steuerelement an.

Sabine78 · 16. März 2008, 10:11

??? Was meinst Du mit vllt???

Mad Andy · 16. März 2008, 11:08

Sorry, vllt = vielleicht

Gemeint ist, dass du das Chart-Steuerelement ausprobieren sollst, vielleicht klappts ja und das Ergebnis sieht so aus wie in Excel.

Sabine78 · 17. März 2008, 18:20

Hi,

ich habs wie folgt probiert, aber irgendwie wird das "Diagramm" nicht als picture erkannt.

VB.NET-Quellcode

Diagramm = oWks.ChartObjects(1).Chart.copypicture
PictureBox1.Image = Diagramm

Fehlermeldung: Unable to cast object of type 'System.Boolean' to type 'System.Drawing.Image'.

Gruß
Sabine

Mad Andy · 20. März 2008, 23:54

Hi!

Sry, dass ich so lange nicht geantwortet hab, war aber bis heute auf Urlaub

Die Chart.CopyPicture-Methode kopiert das Diagramm in die Zwischenablage. Der Rückgabewert (Boolean) sagt nur, obs geklappt hat, oder nicht.

Du musst also anschließend noch das Bild aus der Zwischenablage in die Picturebox kopieren.

VB.NET-Quellcode

'Bild in die Zwischenablage kopieren
oWks.ChartObjects(1).Chart.CopyPicture(Excel.XlPictureAppearance.xlScreen, _
Excel.XlCopyPictureFormat.xlBitmap, _
Excel.XlPictureAppearance.xlScreen)
'Neues Image erstellen und mit dem kopierten Bild befüllen
Dim img as new Image()
img.Source = Clipboard.GetImage()
'Bild in die Picturebox packen
Picturebox1.Image = img

pbond · 22. März 2008, 16:36

Es gibt auch (kostenlos):

zedgraph.org/wiki/index.php?title=Main_Page

und

nplot.com/

Mad Andy · 22. März 2008, 17:15

Die Frage war, wie man ein Excel-Diagramm in eine Picturebox bekommt.
Dennoch danke für die Links, werden sicherlich irgendwann mal jemandem weiterhelfen

Sabine78 · 24. März 2008, 22:59

Hi Mad,

bezüglich der Methode Chart.Copy kommt es unter VB08 leider immer zu Fehler. Aber ich denke mit Deinem Link komme ich weiter, da ich von da aus auch zu chart.copy unter VB08 komme.
Ich probiers diese Woche erst mal und melde mich dann wieder.

War übrigens auch im Urlaub.

Vielen Dank bis dahin
Sabine

Mad Andy · 25. März 2008, 17:16

Hi

was für eine Fehlermeldung bekommst du denn? Das Beispiel für Chart.CopyPicture ist aus der MSDN. Mir fällt aber auch grad auf, dass du die ganze Zeit Chart.Copy und nicht Chart.CopyPicture schreibst?!

Sabine78 · 25. März 2008, 21:28

Hi,

die Fehlermeldung lautet: "Public member 'XlPictureAppearance' on type 'ApplicationClass' not found."

Mit Chart.CopyPicture ist mir klar aber die Meldung oben nicht. Die erscheint auch, wenn ich den Code für VB08 verwende. :whistling:

Gruß
Sabine

Mad Andy · 26. März 2008, 03:34

Mit Chart.CopyPicture ist mir klar aber die Meldung oben nicht. Die erscheint auch, wenn ich den Code für VB08 verwende.

Versteh ich nicht. Kannst du das nochmal in besserem Deutsch verfassen?

Sabine78 · 26. März 2008, 07:36

Hi Mad,

die Fehlermeldung lautet: "Public member 'XlPictureAppearance' on type 'ApplicationClass' not found."

Gruß
Sabine

Mad Andy · 27. März 2008, 07:19

Hi Sabine,

Leider hab ich null Erfahrung mit Excel in VB(2008). Meine Ratschläge kommen alle nur aus Google und der MSDN.
Könntest du mir etwas mehr Code von dir zeigen, vielleicht komm ich ja drauf, wo das Problem ist.

so long..
Andy

Sabine78 · 27. März 2008, 21:19

Ja, na klar.

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TabP As String = "C:\Diagramm1.xls"
Dim objExcel
Dim oWbk
Dim oWks
Dim Diag
objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
oWbk = objExcel.Workbooks.Open(TabP)
oWks = oWbk.Worksheets("Tabelle1")
Diag = oWks.ChartObjects(1)
Diag.CopyPicture(objExcel.XlPictureAppearance.xlScreen, _ 'Hier kommt die Fehlermeldung wie beschrieben
objExcel.XlCopyPictureFormat.xlBitmap, _
objExcel.XlPictureAppearance.xlScreen)
Dim img As New Image
img.Source = Clipboard.GetImage()
'Bild in die Picturebox packen
PictureBox1.Image = img

Sabine

Mad Andy · 28. März 2008, 00:43

Ach, jetzt sehe ich den Fehler

objExcel.XlPictureAppearance.xlScreen ist "natürlich" falsch. Da gehört nicht dein Excel-Objekt, sondern der Excel-Namespace hin.

Es muss also so, wie im kopierten Beispiel, Excel.XlPictureAppearance.xlScreen sein (bei den anderen Parametern auch). Ich vermute mal stark, dass "Excel" nicht gefunden wird. Dann packst du einfach ganz nach oben (vor den Klassen-Beginn) folgende Zeile

VB.NET-Quellcode

Imports Microsoft.Office.Interop

Hoffentlich klappt es dann endlich

Excel Diagramm in PictureBox darstellen

Excel Diagramm in PictureBox darstellen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 2

Ähnliche Themen

1 Benutzer hat hier geschrieben