TExcelApplication: Kako podesiti poziciju slike unutar sheet-a

[ Bokacio @ 29.03.2012. 21:30 ] @

Pozdrav,

Imam jedan problem za koji jos uvek nisam nasao resenje (a ni na Embarcadero forumu mi niko ne odgovara).

Kopirao sam sliku u Clipboard i onda uz pomoc Paste metoda TExcelWorksheet-a je postavim unutar Excel fajla. To sve lepo radi, ali slika se pojavi na nekom random mestu , a ja zelim da je postavim na tacnu lokaciju - medjutim to ne znam kako :(

Da li mozda postoji neki niz sa slikama kojem mogu da pristupim i tako postavim sliku na zeljenu lokaciju.

Kao sto znate nema mnogo help-a o ovim OLE komponentama na web-u, tako da ne znam sta da radim.

Hvala puno.

[ captPicard @ 30.03.2012. 10:44 ] @

probaj ovo:

Code:
procedure insertImages(ActiveSheet: OleVariant; ImageFilePath: String; ImageHeight, PictureTop, PictureLeft: Integer);
var
  Picture: OleVariant;
begin
    try
       Picture := ActiveSheet.Pictures.Insert(ImageFilePath);
       Picture.Width := ImageHeight * Picture.Width /Picture.Height;
       Picture.Height := ImageHeight;
       Picture.ShapeRange.Left := PictureLeft;
       Picture.ShapeRange.Top := PictureTop;
       Picture.Placement := xlMove;
    except
    end;
end;

[ Bokacio @ 30.03.2012. 15:34 ] @

Hvala puno,

Posto ja ne ucitavam slike sa diska, vec iz clipboarda (on verujem napravi TBitmap), da li mozda znas kako da ubacim tu bitmapu unutar sheet-a? Verovatno nesto slicno kao ova Insert metoda. Nazalost inteli-sense ne radi kod OLE komponenti, pa ne mogu da isprobavam :(

Ako takva metoda ne postoji, mozes li mi reci kako da pristupim recimo prvoj slici unutar Pictures propertija od sheet-a? Sad cu da probam da li postoji Item pod-properti, ali eto da pitam unapred.

Hvala

[ savkic @ 30.03.2012. 20:05 ] @

> Posto ja ne ucitavam slike sa diska, vec iz clipboarda (on verujem napravi TBitmap), da li mozda znas kako da ubacim tu bitmapu unutar sheet-a? Verovatno nesto
> slicno kao ova Insert metoda. Nazalost inteli-sense ne radi kod OLE komponenti, pa ne mogu da isprobavam :(

Paste će sliku ubaciti u aktivnu ćeliju, dakle pre ubacivanja samo podesi aktivnu ćeliju, Npr. FXLS.Cells.Item[1, 1].Activate;
Za moguće propertije i metode možeš pogledati VBA Excel help koji se instalira uz Office, fajl je VbaxlXX.chm gde je XX verzija Excela.