IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
 
MICROSOFT EXCEL 2007 - umetanje slike u tekstni okvir (shape) u Excelu 2007 - insert images in txtBox

Umetanje slike u tekstni okvir u Excelu
(insert picture in Text Box)

Search This Web Site

Adsense sponzor



 




Kako umetnuti (insertirati) sliku (picture, image) u tekstni okvir (txtBox)

U ovom primjeru pokazat ću kako možemo pomoću macro koda u VBE umetnuti sliku u tekstni okvir ali tako da u određenu ćeliju upišemo naziv slike (broj) i nakon klika na gumb (button) slika se insertira u u tekstni okvir (text box).

Za ovaj primjer potrebno je slike koje želimo insertirati pozicionirati u folder C:\temp

Uzmimo da imamo situaciju kao na slici ispod. Nakon upisa broja slike i klika na button želimo da se slika insertira u dotični TxtBox (Shape)



Dakle kreirajmo predložak odredimo ćeliju u koju unosimo broj slike (u ovom slučaju to je ćelija C2). Klikom na tab Insert => Insert Text Box kreirajmo txtBox na Sheetu.

Ovaj Macro kod ispod kopirajte i zalijepite u VBE (ALT+F11) u Sheet1. U koliko su vam slike u JPG formatu tada promijeniti dio koda za format images  ".jpg"

---------------------------
Sub InsertShapePicture()
'naziv subprocedure
Dim Sh As Shape
'deklariranje varijable Sh => txtBox kao Shape
Dim txtIme As String
'deklariranje varijable txtIme

Range("C2").Select
'celija u kojoj upisujemo broj slike
txtIme = "C:\Temp\" & Range("C2") & "
.gif" 'pronalazi sliku sa brojem iz C2 plus format GIF u Temp folderu
Set Sh = Sheets("Sheet1").Shapes(1) '
postavlja textbox kao "Sh"
Sh.Fill.UserPicture txtIme
'popunjava txtBox sa txtIme tj. insertira sliku sa brojem iz celije C2

End Sub
'kraj subprocedure
-------------------------

Kreirajte button (gumb) preko taba Developer => Insert => Forms Control => Button.
Odmah mu pridružite Macro kod i kliknite na OK. Izmjenite tekst na buttonu po želji

Adsense sponzor



Ako ste smjestili slike u folder C:\temp tada možete upisati u ćeliju C2 broj neke slike => Enter => klik na button i tada će vam se slika insertirati u Text Box. Ako želite slike smjestiti u neki drugi folder tada izmijenite dio makronaredbe za folder

Adsense sponzor




Download ovog primjera možete izvršiti OVDJE
Kako umetnuti transparentnu sliku ispod teksta u Excelu (KLIKNI OVDJE)


Adsense sponzor




©- 2006 - 2018 - IvanC  - Sva prava pridržana.  ic.ims.hr