Vytvoříš si makro obsluhující událost na úrovni listu - Worksheet_Change, kde budeš testovat hodnotu zadanou v buňce. Pokud zadané číslo je v seznamu, vložíš obrázek a pojmenuješ jej (pro snažší přístup k němu):
ActiveSheet.Pictures.Insert("<Plná_cesta_k_souboru>").Select
Selection.Name = "ObrazekX"
Pokud zadané číslo není v seznamu, otestuješ, zda obrázek existuje (nebo můžeš mít nastavenu globální proměnnou True/False, zda je obrázek vložen) a pokud ano, následujícím příkazem ho smažeš:ActiveSheet.Shapes("ObrazekX").Delete
Potřebuješ-li nastavit další parametry obrázku, můžeš se inspirovat třeba zde.