PC-HELP.CZ

Zdravíčko,
Potřeboval bych pomoci s makrem. Makro mi funguje tak, že když je určitě hodnota v buňce např. 1 tak mi to vyhodí koment s obrázkem. Já bych potřeboval když v té stejné buňce bude hodnota 2 tak mi to hodí jiný obrázek. Tato buňka je ovlivněna jinou.

Zde je kód:

Sub Obrazky()
For Each cell In Selection
obrazek = Application.GetOpenFilename(FileFilter:="JPEG (*.jpg), *.jpg", Title:="Vyber obrázek")
ThisPicture = obrazek
With cell.AddComment
.Shape.Fill.UserPicture ThisPicture
.Shape.Height = 250 ' vyska
.Shape.Width = 350 ' sirka
End With
Next cell
End Sub

Děkuji za pomoc! :)

To je nesmyslné zadání.
Toto makro "nehází" žádný obrázek. Tak nemůžeš chtít, aby makro "házelo" jiný obrázek.
Obrázek vybírá uživatel, a ten si vybere jaký chce.

Tak v tom případě chci abych ho nevybíral já, ale aby byli nadefinované a podle textu v buňce by to zobrazilo ten daný obrázek...Dělám to v práci zítra pošlu fotku co to dělá.

Dá sa aj bez makra https://www.youtube.com/watch?v=S2885_K1AhI&feature=youtu.be&fbclid=IwAR0uxijTaqynCoPRyTSr34HS8e5Wg0UufjbmjSvnVwyGep5EsVPpcvVtyfQ, iba keby ste chceli Excel používať na prehliadanie fotiek (ale na to sú určené iné programy).

Pr. ???

Posílám obrázek, aby to bylo víc jasný co přesně chci.
https://prnt.sc/qr3d8u
Takže když změním modul z 300 na 400, přepíše se název programu tj. z a111p01 na a111p07. Momentálně jak to mám mi to vyhodí správný obrázek programu u modulu 300, ale když přehodím ten modul na 400 obrázek zůstane stejný.
A ještě dodatek funguje to tak když mám kurzor na té buňce s tím programem. A ještě nevim jeslti se ty miniatury se budou zobrazovat na jiném počítači.
Děkuji mnohokrát