Zkus si na list vložit tvar obdélník (velikosti fotky) někde v jisté složce si pak ulož obrázky s konkrétním jménem (identickým s jedním z těch dalších 4 údajů, nebo jejich sloučeninou) a pak při změně buňky s jedním z těch údajů volej načtení obrázku, např:
ActiveSheet.Shapes("Rectangle 1").Fill.UserPicture "C:\cesta\" & cells(1,1) & ".jpg"
kdy v buňce A1 bude název souboru bez přípony.
Rectangle 1 je název objektu, který si můžeš přejmenovat dle libosti a toto jméno pak dosadíš i do kódu.
Přejmenování dělám tak že k objektu přiřadím makro s kódem:
ActiveSheet.Shapes(application.caller).name = "Fotka" 'třeba
M@citovat
ActiveSheet.Shapes("Rectangle 1").Fill.UserPicture "C:\cesta\" & cells(1,1) & ".jpg"
kdy v buňce A1 bude název souboru bez přípony.
Rectangle 1 je název objektu, který si můžeš přejmenovat dle libosti a toto jméno pak dosadíš i do kódu.
Přejmenování dělám tak že k objektu přiřadím makro s kódem:
ActiveSheet.Shapes(application.caller).name = "Fotka" 'třeba
M@citovat
RSS nejnovější články