TExcelChart - początkujący prosi o pomoc

0

Czy ktokolwiek z obecnych na tym forum używał tego komponentu z delphi?
Jeśli tak, czy mógłby podać jakiś przykład wykorzystania?
o ile znalazłem przykłady w sieci dla TExcelApplication, tExcelWorkbook i tExcelWorksheet w ilości umożliwiającej sensowne wykorzystanie - o tyl e przy TExcelChart sieć wydaje sie być pozbawiaona jakichkolwiek wskazówek co do używania wymienionego w tytule komponentu.
Ewentualnie kto zna jakąs DOSTĘPNĄ w handlu pozycję książkową bądź jakąś stronę chocby i płatną - będe wdzięczny.

0

Witaj,
Ja nie korzystam z komponentów jesli chodzi o dostep do excela, lepiej korzystać z modułu ComObj i za jego posrednictwem bezposrednio sie komunikowac z Excelem.

Pobieznie spojrzalem i tak sobie mi wyszło:
http://msdn.microsoft.com/en-us/library/aa203725%28office.11%29.aspx
Tu masz w VBA jak dodać wykres. Kwestia tego przetlumaczenia na Delphi metoda prob i bledow.

Ale chciałbym ci zwrocic na druga mozliwosc jeszcze, ktora ja stosuje w PPT. Mianowicie generuje wykresy w komponencie TChart, zapisuje do Tempa jako WMF, a potem wstawiam to do PPT.

Stanąłem na tym, bo spadam :-P
Jeśli umiesz kombinowac, to dasz rade moze przeprawic dalej.
I tak jak mowilem, lepiej korzystac bezposrednio z dostepu, bez komponentu, bo w necie sa rozne kody czy to w C# czy VBA ktore wymagaja tylko przetlumaczenia i dostosowania pod Delphi. Tak jak spojrzalem na owy link z MS.
Uses ComObj

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.DisplayAlerts := False;
  Excel.WorkBooks.Open('C:\Excel.xls');

  Excel.Charts.Add;
  Excel.Charts.Item(1).ChartType := 2;
  Excel.Charts.Item(1).PlotBy := 1;
  Excel.Charts.Item(1).SetSourceData.Sheets[1].Range['A1:A4'];

  Excel.Charts.Item(1).SeriesCollection(1).Formula := '=SERIES(""First Data"",{""a"",""b"",""c"",""d""},{2,3,4,5},1)';
  Excel.Charts.Item(1).SeriesCollection(2).Formula := '=SERIES(""Second Data"",{""a"",""b"",""c"",""d""},{6,7,8,9},2)';
  Excel.Charts.Item(1).SeriesCollection(3).Formula := '=SERIES(""Third Data"",{""a"",""b"",""c"",""d""},{10,11,12,13},3)';

  Excel.Save;
  Excel.Quit;
  Excel := UnAssigned;
end;

Wywala sie na Item(1), gad jeden :-D

0

No właśnie:( Czyli jest czy nie ma możliwość stworzenia wykresu w delphi pod excela?
Od września zrobiłem makra w VBA, przygotowałem dane, zrobiłem program zbierajacy dane i wrzucający w excela - na dzień dzisiejszy praca wygląda tak: program w delphi robiacy dane, zapisujący w XLS, przejście do excela i odpalenie makr.
A miłoby było w jednym programie - tylko jak u licha zrobic te wykresy excelowe przez delphi?

0

Dzięi za odpowiedź. Poradziłem sobie z wykresami excelowymi ( w razie czego pomogę chętnym:) ) . Natomiast ciągle nie moge dogrzebać się do informacji czy i jak zrobic etykiety przy punktach inne niż wartość y.
Konkretnie mam takie coś:
w jednej tablicy X - okres pracy w miesiącach oddziału
druga Y - wyniki.
Z tego robi się ładny wykres punktowy XY (TChartem) i widac jak się oddziały plasują w zależności od czasu pracy. Ale opis punktu powinien być wg. trzeciej tablicy (stringów) nazw oddziałów.
Da się to zrobic tChartem?
Jak nadać etykietę punktowi tak by np. punkt w wykresie XY w TPointSeries miał opis SŁOWNY...

1 użytkowników online, w tym zalogowanych: 0, gości: 1