Excel Chart + Spreadsheet in PB erzeugen und darstellen

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Hallo Leute,

das Ganze entwickelt sich genau in die Richtung, in die ich gehen möchte. Leider habe ich bei einer kleinen Sache noch ein Problem, vielleicht könnt ihr mir da helfen:

Code: Alles auswählen

IncludePath "C:\Users\f13820\Desktop\4.3\"
XIncludeFile "COMate.pbi"

ExcelObject.COMateObject

If OpenWindow(0,#PB_Ignore,#PB_Ignore,800,600,"COMate: OWC11.Spreadsheet-Demo",#PB_Window_SystemMenu|#PB_Window_Invisible)
    
  ExcelObject=COMate_CreateActiveXControl(0,0,800,600,"OWC11.Spreadsheet")

  ExcelObject\SetProperty("Cells(1,1) = 'Özgür'")
  ExcelObject\SetProperty("Cells(1,2) = 'Levent'")
  ExcelObject\SetProperty("Cells(2,1) = 10")
  ExcelObject\SetProperty("Cells(2,2) = 20")
  
  ExcelObject\SetProperty("Cells(1, 1)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(1, 2)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(2, 1)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(2, 2)\Interior\Color = 18915966")
  
  ExcelObject\SetProperty("Cells(1, 1)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(1, 2)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(2, 1)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(2, 2)\Font\Color = 255255255")
  
  ExcelObject\GetObjectProperty("Sheets('3')\Delete")
  ExcelObject\GetObjectProperty("Sheets('2')\Delete")

  ExcelObject\SetProperty("Cells(1, 1)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(1, 2)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(2, 1)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(2, 2)\HorizontalAlignment = -4152") ;-4152 = xlRight
  
  
  ExcelObject\SetProperty("Cells(1, 1)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(1, 2)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(2, 1)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(2, 2)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(1, 1)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(1, 2)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(2, 1)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(2, 2)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("DisplayToolbar = #False")
  ExcelObject\SetProperty("ScreenUpdating = #True")
  ExcelObject\SetProperty("ViewOnlyMode = #True") ;Schreibschutz
  ExcelObject\SetProperty("DisplayOfficeLogo = #False")
  ExcelObject\SetProperty("DisplayTitleBar = #False")
  
  ExcelObject\SetProperty("ViewableRange = '$A$1:$E$5")
  ExcelObject\SetProperty("SheetSelector = #False")
  
  HideWindow(0,0) 

  If ExcelObject 
    Repeat 
    Until WaitWindowEvent()=#PB_Event_CloseWindow
    ExcelObject\Release()
  EndIf
  CloseWindow(0)
EndIf
Sämtlicher Code läuft bei mir problemlos, nur die zwei letzten Funktionen werden nicht ausgeführt:

Code: Alles auswählen

  ExcelObject\SetProperty("ViewableRange = '$A$1:$E$5'")
  ExcelObject\SetProperty("SheetSelector = #False")
In Exel würde die Funktion "ViewableRange" wie folgt ausgeführt

Code: Alles auswählen

Spreadsheet1.ActiveWindow.ViewableRange = "$A$1:$E$5"
bzw mit:

Code: Alles auswählen

Me.Spreadsheet1.ActiveWindow.ViewableRange = "$A$1:$E$5"
Weiß jemand Abhilfe?

Grüße
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

versuch mal:

Code: Alles auswählen

  ExcelObject\SetProperty("ActiveWindow\ViewableRange = '$A$1:$E$5'")
  ExcelObject\SetProperty("ActiveWindow\SheetSelector = #False")
Grüße ... Kiffi
Zuletzt geändert von Kiffi am 30.01.2009 11:34, insgesamt 2-mal geändert.
a²+b²=mc²
Nach oben
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Danke, funktioniert aber nicht ...
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

so is besser:

Code: Alles auswählen

  ExcelObject\SetProperty("ActiveWindow\ViewableRange = 'A1:E5'")
einen SheetSelector hingegen gibt es im ObjektKatalog gar nicht...

Grüße ... Kiffi
a²+b²=mc²
Nach oben
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Kiffi hat geschrieben:so is besser:

Code: Alles auswählen

  ExcelObject\SetProperty("ActiveWindow\ViewableRange = 'A1:E5'")
einen SheetSelector hingegen gibt es im ObjektKatalog gar nicht...

Grüße ... Kiffi
Ahh, okey verstanden. Danke :)

ViewableRange gibt es laut Eigenschaftsfenster auch nicht und trotzdem kann man es setzen. Die SheetSelector Sache gibts wohl wirklich nicht, auf jedenfall kann man das auch in Excel nicht (mehr) ansprechen. Ist eine sogenannte Disabled-Call-Funktion und kann nur vorher gesetzt werden, aber irgendwie muss ja Excel das der DLL mitteilen, da man es ja verändern kann .... Mhh
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

CNESM hat geschrieben:Ist eine sogenannte Disabled-Call-Funktion und kann nur vorher gesetzt werden, aber irgendwie muss ja Excel das der DLL mitteilen, da man es ja verändern kann .... Mhh
Seh mal unter: SetDesignTimeMode() in der Hilfe von COMate nach. Kann
leider nichts testen, hab wohl ne andere Office Version.
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

CNESM hat geschrieben:ViewableRange gibt es laut Eigenschaftsfenster auch nicht und trotzdem kann man es setzen.
nicht, dass wir aneinander vorbeireden:

Eigenschaftsfenster != Objektkatalog. Drück in Deinem VB6 mal <F2>. Das,
was Du dann siehst, ist der Objektkatalog, der alle Objekte / Eigenschaften
und Methoden des aktuellen VB-Projektes anzeigt. Und da gibt es ein ViewableRange.
CNESM hat geschrieben:Ist eine sogenannte Disabled-Call-Funktion und kann nur vorher gesetzt werden, aber irgendwie muss ja Excel das der DLL mitteilen, da man es ja verändern kann .... Mhh
wie gesagt: SheetSelector finde ich nirgendwo. Wenn wir uns hingegen
auf DisplayWorkbookTabs einigen könnten? ;-)

Code: Alles auswählen

ExcelObject\SetProperty("ActiveWindow\ViewableRange = 'A1:E5'")
ExcelObject\SetProperty("ActiveWindow\DisplayWorkbookTabs = #False")
Grüße ... Kiffi
a²+b²=mc²
Nach oben
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Mensch Kiffi, klasse! Genau das ist es, du bist ja echt nen Programmierexperte :-) Vielen Dank für deine andauernde Hilfe! So langsam steig ich auch ansatzweiße in dem Thema durch. Und ich muss ebenfalls zugeben, das die Methode mit der Nutzung der .pbi auch die richtige Entscheidung war, auch wenn ich dazu Excel benötigte. Durch die Einfachheit, VBA zu nutzen, lassen sich deutlich einfacher und schneller Ergebnisse erzielen, als dies mit der OLE COM Generator wohl möglich gewesen wäre.

SheetSelector gab es mal, ist aber mittlerweile keine unterstützte Funktion mehr .... Da haste wohl wieder recht gehabt :-)

Ich bin nun gerade dabei, das Spreadsheet mit einem Chart zu verbinden. Ich habe bereits mal ein bissle rumgetüftelt, komme aber beim Setzen der Diagrammendaten nicht wirklich weiter. Hier mal mein bisheriger Code:

Code: Alles auswählen

IncludePath "C:\Users\f13820\Desktop\4.3\"
XIncludeFile "COMate.pbi"

ExcelObject.COMateObject
ExcelObject1.COMateObject

If OpenWindow(0,#PB_Ignore,#PB_Ignore,800,800,"COMate: OWC11.Spreadsheet-Demo",#PB_Window_Invisible|#PB_Window_SystemMenu)
    
  ExcelObject=COMate_CreateActiveXControl(0,0,800,400,"OWC11.Spreadsheet")

  ExcelObject\SetProperty("Cells(1,1) = 'Özgür'")
  ExcelObject\SetProperty("Cells(1,2) = 'Levent'")
  ExcelObject\SetProperty("Cells(2,1) = 10")
  ExcelObject\SetProperty("Cells(2,2) = 20")
  
  ExcelObject\SetProperty("Cells(1, 1)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(1, 2)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(2, 1)\Interior\Color = 18915966")
  ExcelObject\SetProperty("Cells(2, 2)\Interior\Color = 18915966")
  
  ExcelObject\SetProperty("Cells(1, 1)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(1, 2)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(2, 1)\Font\Color = 255255255")
  ExcelObject\SetProperty("Cells(2, 2)\Font\Color = 255255255")
  
  ExcelObject\GetObjectProperty("Sheets('3')\Delete")
  ExcelObject\GetObjectProperty("Sheets('2')\Delete")

  ExcelObject\SetProperty("Cells(1, 1)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(1, 2)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(2, 1)\HorizontalAlignment = -4152") ;-4152 = xlRight
  ExcelObject\SetProperty("Cells(2, 2)\HorizontalAlignment = -4152") ;-4152 = xlRight
  
  
  ExcelObject\SetProperty("Cells(1, 1)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 1)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(1, 2)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(1, 2)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(2, 1)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 1)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(2, 2)\Borders(7)\LineStyle = 1") ;7 = xlEdgeLeft ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(8)\LineStyle = 1") ;8 = xlEdgeTop ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(9)\LineStyle = 1") ;9 = xlEdgeBottom ; 1 = xlContinuous
  ExcelObject\SetProperty("Cells(2, 2)\Borders(10)\LineStyle = 1") ;10 = xlEdgeRight ; 1 = xlContinuous
  
  ExcelObject\SetProperty("Cells(1, 1)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 1)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(1, 2)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(1, 2)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(2, 1)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 1)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("Cells(2, 2)\Borders(7)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(8)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(9)\Weight = 2") ;2 = xlThin
  ExcelObject\SetProperty("Cells(2, 2)\Borders(10)\Weight = 2") ;2 = xlThin
  
  ExcelObject\SetProperty("DisplayToolbar = #False")
  ExcelObject\SetProperty("ScreenUpdating = #True")
  ExcelObject\SetProperty("ViewOnlyMode = #True") ;Schreibschutz
  ExcelObject\SetProperty("DisplayOfficeLogo = #False")
  ExcelObject\SetProperty("DisplayTitleBar = #False")
  ExcelObject\SetProperty("ActiveWindow\ViewableRange = 'A1:B2'")
  

ExcelObject\SetProperty("ActiveWindow\DisplayWorkbookTabs = #False") 
  
  ;##############################################################
  
  ExcelObject1=COMate_CreateActiveXControl(0,400,800,400,"OWC11.ChartSpace")
  ExcelObject1\SetProperty("DisplayOfficeLogo = #True")
  ExcelObject1\SetProperty("DisplayToolbar = #True")
  ExcelObject1\SetProperty("AllowPropertyToolbox = #True")
  
  ExcelObject1\SetProperty("HasChartSpaceTitle = #True")
  ExcelObject1\SetProperty("ChartSpaceTitle\Caption = 'Overview'")
  ExcelObject1\SetProperty("ChartSpaceTitle\Font\Bold = #True")
  ExcelObject1\SetProperty("ChartSpaceTitle\Font\Underline = #True")
  
  ;Hier komm ich nicht weiter
  
  ExcelObject1\SetProperty("Type = 6") ;6=chChartTypeLine
  ExcelObject1\SetProperty("DataSource = 'Spreadsheet1'")
  ExcelObject1\SetProperty("SeriesCollection\Add")
  
  ExcelObject1\SetProperty("SeriesCollection(0)\SetData 0, 0, 'B1'")  ;0 = chDimSeriesNames
  ExcelObject1\SetProperty("SeriesCollection(0)\SetData 1, 0, 'A1:B1'") ;1 = chDimCategories
  ExcelObject1\SetProperty("SeriesCollection(0)\SetData 2, 0, 'A2:B2'") ;2=chDimValues
  
  
  ;ChartSpace1.Charts(0).Type = chChartTypeLine
  ;ChartSpace1.DataSource = Spreadsheet1
  ;ChartSpace1.Charts(0).SeriesCollection.Add
  
  ;ChartSpace1.Charts(0).SeriesCollection(0).SetData chDimSeriesNames, 0, "B1"
  ;ChartSpace1.Charts(0).SeriesCollection(0).SetData chDimCategories, 0, "A1:B1"
  ;ChartSpace1.Charts(0).SeriesCollection(0).SetData chDimValues, 0, "A2:B2"
  
  HideWindow(0,0)
  
  If ExcelObject 
    Repeat 
    Until WaitWindowEvent()=#PB_Event_CloseWindow
    ExcelObject\Release()
  EndIf
  CloseWindow(0)
EndIf
Das Chart wird erfolgreich erstellt. Da wo die Probleme anfangen, habe ich mit dem Kommentar " ;Hier komm ich nicht weiter" versehen. Die folgenden Zeilen führen nicht zum Erfolg. In VB funktioniert das Ganze (siehe auskommentierte Funktionen). Eventuell liegt es am fehlenden Object, das bei VB mit "Charts(0)." mitgegeben wird. Ohne diese Angabe funktioniert das Ganze auch in VB nicht. Wie übergeb ich das am Besten in PB?. Einfach "Charts(0)\" zu verwenden funktioniert nicht, wäre ja auch zu einfach gewesen ...
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

CNESM hat geschrieben:Und ich muss ebenfalls zugeben, das deine Methode mit der Nutzung der .pbi auch die richtige Entscheidung war, auch wenn ich dazu Excel benötigte. Durch die Einfachheit, VBA zu nutzen, lassen sich deutlich einfacher und schneller Ergebnisse erzielen, als dies mit der OLE COM Generator wohl möglich gewesen wäre.
Thomas hat es zwar schon erwähnt, aber hier noch einmal: so oder so
hättest Du auf jeden Fall ein installiertes Excel auf dem Rechner benötigt,
auf dem Dein Programm laufen soll. Der OLE COM Generator macht nix
anderes, als die Aufrufe der von Excel zur Verfügung gestellten
Funktionalitäten in eine PB-Syntax zu überführen. Ohne Excel läuft also
nix. :-)
CNESM hat geschrieben:Ich bin nun gerade dabei, das Spreadsheet mit einem Chart zu verbinden. Ich habe bereits mal ein bissle rumgetüftelt, komme aber beim Setzen der Diagrammendaten nicht wirklich weiter.
mh, das erste, was mir direkt auffällt ist, dass Du keine Beziehung
zwischen den beiden Controls herstellst. Das Chart soll ja seine Daten auf
dem Sheet holen. Da fehlt also noch was.

Ich bin jetzt auch nicht so der Excel-Experte (eher im Gegenteil: Wo es
möglich ist, da vermeide ich den Einsatz von Excel). Das müsste ich mir
also noch genauer anschauen.

Grüße ... Kiffi

// Edit: Da habe ich mich verguckt. DataSource wird von Dir gesetzt
(wenn auch falsch ;-))
a²+b²=mc²
Nach oben
CNESM
Beiträge: 311
Registriert: 29.08.2004 15:16
Kontaktdaten:
Kontaktdaten von CNESM

Beitrag von CNESM »

Code: Alles auswählen

// Edit: Da habe ich mich verguckt. DataSource wird von Dir gesetzt 
(wenn auch falsch )
Und was ist falsch? :-)

VBA:

Code: Alles auswählen

ChartSpace1.DataSource = Spreadsheet1
PB:

Code: Alles auswählen

ExcelObject1\SetProperty("DataSource = 'Spreadsheet1'")
Nach oben
Antworten

Zurück zu „Anfänger“