Pozivanje slike u VB

Tabela ima id(autonumber),opis(text) i slika(ole object).Podatke iz tabele treba prikazati u Power Pointu tako da se sa promenom vrste menja sadrzaj slajda.Iskoristio sam Access2Power Point skinut sa interneta i to lepo funkcionise.tabele je napunjena ,ali ne mogu da nadjem nacin da u kodu(on click) pozovem sliku i posaljem je na slajd. ima li neko ideju.Deo kod u kome je problem resen za tekst izgleda ovako


Private Sub Command1_Click()

Dim db As Database, rs As Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation

On Error GoTo err_cmdOLEPowerPoint

' Open up a recordset on the Table1 table.
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)

' Open up an instance of Powerpoint.
Set ppObj = New PowerPoint.Application
Set ppPres = ppObj.Presentations.Add

' Setup the set of slides and populate them with data from the
' set of records.
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade


With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With
.Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50
End With
rs.MoveNext
Wend
End With

' Run the show.
ppPres.SlideShowSettings.Run

Exit Sub

err_cmdOLEPowerPoint:
MsgBox Err.Number & " " & Err.Description
End Sub

Zna li neko kako bi koristeci ovo
With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With

mogao da pozovem slike smestene u tabelu kao ole object.

Ko će kome ako neće svoj svome. Lepo je sresti nekoga ko je iz Kragujevca kao ja.

Bio si blizu rešenja, falio ti je samo jedan redić. Implementirao sam tvoj kod i dodao malo svog i dobio konačno rešenje. Dodao sam polje Velicina u koje treba upisati Velicinu fajla da bi se isti takav mogao izvuci iz ole field.

Pozdrav i javi ako vam zatreba radnik

Potpis

Ozbiljan i odgovoran mladić

Evo prosirenje zadatka za Nikolu: daj obrnutu operqaciju, sliak iz tabele da ide na disk (valjda se samoGetChunk promeni u PutChunk ili tako nesto, ima u BooksOnLine za MS SQL server).

Jos jedno moguce prosirenje: sta ako je tabela gde se slike smestaju linkovana ODBC tabela (MS SQL, ORACLE), da li ce kod da radi?

Kad sve to zavrsis, da dodas post u Bazu Znanja. Unapred hvala.

A ovi iz Zastave zaista ne znaju sta gube. Nikola je jedan od glavnih majstora na forumu i gubitak je za svaku firmu koja ga nema na spisku zaposlenih.

Nikola,
Hvala na pomoci i ovo ce mi mozda koristiti. U principu nije mi bitno kako cu razlicite slike da unosim u tabelu(insert object on form,copy paste ili naredbom na dugme(pomocu koda),ali je bitno da su to razlicite slike(do 10 slika) i odgovarajuci text u polju opis. Treba da pozivam text i sliku i da ih direktno saljem na power point slajd.Polazi se od prvog sloga u tabeli i prikazuje sadrzaj (text + slika) sve dok ima slogova u tabeli.evo kako to otprilike funkcionise sa textom i tabelom.Molim te da probas i nadjes resenje za pozivanje slike (po id-u iz tabele). Ima li veze sto sam slike insertovao kao jpg i to insert object na formi. Ako treba u tabelu da ih ubacim sa dogadjajem on click i ckodom -napisi da mora tako. Javi cu ti za posao,a ti javi znas li internet programiranje jer jedan moj drugar non stop trazi programere i lepo placa.

U slobodno vreme radim na rešavanju problema koji sam uočio tek kada sam i ja instalirao Microsoft Photo Editor. Problem je u tome što kada se to učini Access doda gomilu podataka za renderovanje slike u OLE field (overhead data), tako da ne znam od kog offseta treba da snimim sliku u file. Biće ti jasnije kada klikneš na dugme i pogledaš Immediate Window, tamo sam napisao koliko prostora zauzima slika na disku, a koliko u OLE field.

Svejedno je kako dodaješ sliku u Access, trenutno moramo da se zadovoljimo sledećom improvizacijom. Kada prevučeš sliku na formu u polje Slika, popuni TAČNO polje velicina.

Kada sliku ubaciš jednom, napravi kopiju slike na HDD sa izmenjenom extenzijom (umesto NekaSlika.jpg snimi file kao NekaSlika.jp) i ubaci je u polje obeleženo kao SlikaRAW. To je polje iz koga će se slika snimiti na HDD, a promena extenzije slike će sprečiti Access da u to polje ubaci taj Overhead (pogledaj Immediate Window pa će ti biti jasnije).

Znaci da ponovim, sliku ubacuješ DVA puta, jednom sa ekstenzijom .JPG (.BMP) u polje Slika i Access će je prikazati na formi. Drugi put je ubaci sa ekstenzijom .JP (.BM) u polje SlikaRAW.

Dok ne smislim nešto bolje pozdrav

Potpis

Ozbiljan i odgovoran mladić

Hvala na pomoci! Tek sada pregledam mejl posto sam bio odsutan. Primer koji si mi ti poslao prvi put funkcionise,ali samo za tri slike koje si ti ubacio u tabelu.prihvata da na slajdu pokaze i sliku iz tabele koju menjam(tvoje slike),ali kada u tabelu na tom mestu ubacim novu sliku sa istim nazivom i odgovarajucom velicinom kaze da ne moze da nadje fajl. molim te provali ovu glupost i veliko HVALA za dosadasnju pomoc. VELIKI POZDRAV

Pošalji mi bazu sa slikama koje si ti ubacio pa ću probati nešto da iskombinujem. Kada se slika insertuje u bazu preko koda koji ću okačiti čim ga nađem onda nema problema da se snima direktno iz OLE polja. Kada Access insertuje sliku preko OLE objekta onda dodaje overhead data za renderovanje, treba samo razgraničiti šta je slika a šta overhead data. Jesi li snimio sliku dva puta, jednom sa promenjenom extenzijom?

Potpis

Ozbiljan i odgovoran mladić

izvini sto se tek sada javljam.Bio sam na odmoru,a i pokusavao sam da resim problem sam.Okacicu ti bazu.kod za smestanje slike u tabelu(click na dugme sam nasao i nije mi problem da tabelu napunim na taj nacin). treba mi resenje kako da sliku koja je u tabeli ole object pozovem i posaljem na slajd. Kako da ovaj deo koda

With .Shapes(2).TextFrame.TextRange


.Text = CStr(rs.Fields("opis").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With

kojim se poziva tekstualno polje iz tabele primenim na pozivanje slike. unapred velikop hvala i veliki pozdrav za zemu.

Izvini, ali ti ne koristiš kao osnovu bazu koju si dobio od mene, ne znam kako očekuješ da kod radi ?

Tabela Table1 iz tvog poslednjeg attacha ima kolone :

1) id
2) slika
3) opis
4) opise

Tabela Table1 iz mog poslednjeg attacha ima kolone :
1) id
2) slika
3) SlikaRAW
4) opis
5) opise
6) Velicina

Znači, DVA POLJA VIŠE. Ja odavno sumnjam da ti i ne gledaš detaljno bazu koju ja okačim, što me iskreno pomalo i vređa i neću ti više pomagati oko ovog projekta, posebno zato što sam ubeđen da već imaš rešenje.

Pozdrav.

Potpis

Ozbiljan i odgovoran mladić