TExcelApplication: Kako podesiti poziciju slike unutar sheet-a

TExcelApplication: Kako podesiti poziciju slike unutar sheet-a 29.03.2012. u 22:30 · pre 177 meseci #1

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.

Re: TExcelApplication: Kako podesiti poziciju slike unutar sheet-a 30.03.2012. u 11:44 · pre 177 meseci #2

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;

Potpis

F

Re: TExcelApplication: Kako podesiti poziciju slike unutar sheet-a 30.03.2012. u 16:34 · pre 177 meseci #3

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

Re: TExcelApplication: Kako podesiti poziciju slike unutar sheet-a 30.03.2012. u 21:05 · pre 177 meseci #4

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Forum kao aplikacija na telefonu

Srodne teme