Vložení obrázku v Excelu pomocí vzorce nebo makra Vyřešeno

[tomasholecek]

Ahoj,
prosím poraďte, jestli lze v excelu do určitého místa vložit obrázek, který je umístěn v jiném listu téhož souboru na základě nějaké podmínky. Příklad: V buňce A1 mám rozbalovací seznam 1,2,3 a potřebuji vložit např do buňky A2 obrázek 1, 2 nebo 3 z druhého listu. Může to být buď vzorec nebo klidně i pomocí kódu VBA. Děkuji za pomoc

[Reklama]

[Poki]

Jde to makrem, ale procedura volana pri zmene hodnoty bunky se nema rada s rozeviracim seznamem s ovladacich prvku ani se seznamen z overeni dat - kdybys cisla psal rucne, jde to timhle makrem (predpoklada, ze na listu1 nejsou zadny obrazky (krome toho, kterej tam vlozi) a na listu2 jsou obrazky poradim odpovidajici cislu 1-3

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
 
  For Each Shape In Worksheets("list1").Shapes
     Shape.Delete
  Next
 
  If Target.Address = "$A$1" Then
    Worksheets("list2").Select
    Worksheets("list2").Shapes(Target.Value).Select
    Selection.Copy
    Sheets("List1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
  End If
 
End Sub

[tomasholecek]

Díky moc. To je ono