Když si otevřeš ten vzorový soubor co sem tady vložil a klikneš na obrázek auta tak se vedle řádku vzorců ukáže název obrázku "dop_zdarma"
a tento název obrázku použiješ v kódu
ActiveSheet.Shapes("dop_zdarma").Visible = True
Else
ActiveSheet.Shapes("dop_zdarma").Visible = False