Excel_VBA_manual
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Za povezivanje trenutno aktivnog <strong>Excel</strong> dokumenta s umetnutim Word dokumentom potrebno je<br />
ukljuĉiti opciju Link To File.<br />
Sl. 2.3.2 Umetnuti Word dokument u <strong>Excel</strong>u<br />
Najjednostavniji naĉin prijenosa manje koliĉine podataka ili grafike iz jedne aplikacije u drugu je<br />
korištenje Copy/Paste tehnike. U tom sluĉaju oba dokumenta moraju biti otvorena. Nakon<br />
selektiranja podruĉja sa mišem u dokumentu iz kojeg se kopiraju podaci naredbom Edit–Copy (ili<br />
pomoću tipaka CTRL+C). Podaci su sada kopirani na privremenu lokaciju (clipboard). Za<br />
kopiranje podataka u <strong>Excel</strong> definira se mjesto umetanja u tablici i pomoću naredbe Edit–Paste<br />
podaci se upišu na izabrano mjesto (ili pomoću tipaka CTRL+V).<br />
OLE automatizacija je jedno od najvažnijih svojstava OLE-a. Ona omogućava pisanje makroa u<br />
jednoj aplikaciji za nadgledanje objekata u drugoj aplikaciji. Postoje dva razliĉita naĉina podrške<br />
za OLE automatizaciju: objektna ili kontrolna aplikacija. Objektna aplikacija izlaže svoj model<br />
drugim aplikacijama i dozvoljava kontrolnim aplikacijama da je nadgledaju. U Microsoft Office<br />
paketu samo neke aplikacije mogu biti kontrolne. To su: <strong>Excel</strong>, Access, Project i Visual Basic.<br />
Za nadziranje OLE automatizacijskog objekta putem makroa, potrebno je:<br />
<br />
<br />
<br />
postaviti varijablu koja će predstavljati OLE objekt,<br />
koristiti tu varijablu za pristup objektnom modelu prilikom postavljanja ili dohvaćanja<br />
svojstava objekta i pozivanja metoda,<br />
osloboditi OLE objekt kada više nije potreban.<br />
Primjer pristupanja Word objektu iz <strong>Excel</strong>a: kreiran je makro koji otvara novu datoteku u Wordu,<br />
daje joj naslov Izvještaj, a zatim formatira naslov masno otisnutim pismom, veliĉine 32 i centrira<br />
naslov vodoravno na stranici:<br />
Dim WordAplik As Object<br />
Sub <strong>Excel</strong>makro( )<br />
Set WordAplik = CreateObject(''Word.Basic'')<br />
With WordAplik<br />
If Ucase (Left(Application.OperatingSystem,3))< > ''MAC'' Then<br />
.AppRestore<br />
.AppMaximaze 1<br />
Else<br />
AppActivate ''Microsoft Word''<br />
End If<br />
.FileNewDefault<br />
.InsertPara<br />
20