Pomoc s makrem

[giitzzz]

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! :)

[Reklama]

[atari]

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.

[giitzzz]

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á.

[MePExG]

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).

[elninoslov]

Pr. ???

Kód: Vybrat vše

Private Sub Worksheet_Calculate()
Obrazky
End Sub

Sub Obrazky()
Dim OBR() As String, Obrazek As String
    On Error Resume Next
    Range("D4").Comment.Delete
    Err.Clear
    OBR = Split("real0f35.png,wer1cd14.png,tres0x72.png", ",")
    Obrazek = "d:\Dokumenty\Obrázky\Graphics\icons\icons\" & OBR(Range("D4").Value - 1)
    With Range("D4").AddComment
        .Shape.Fill.UserPicture Obrazek
        .Shape.Height = 250 ' vyska
        .Shape.Width = 350 ' sirka
        .Visible = True
    End With
    If Err.Number <> 0 Then Range("D4").Comment.Delete
End Sub

[giitzzz]

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