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.
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
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?
tu masz jak odpalić marko w excelu z delphi
http://www.google.pl/search?client=opera&rls=pl&q=delphi+excel+run+macro&sourceid=opera&ie=utf-8&oe=utf-8
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...