Afbeelding invoegen in Excel via dropdown

[Robvkoppen]

Wie kan mij helpen met het volgende: We zijn bezig een periodieke onderhoudslijst te maken.
Als geheugensteuntje willen we bij de tekst een afbeelding, deze staat onderin de lijst
Daarnaast hebben we een dropdown en berekening van verschillende data (dat werkt allemaal)
Het enige wat ik niet voor elkaar krijg is het plaatje erachter.
Dus wanneer je een andere keuze maakt in de dropdown komt er een ander plaatje bij
Zit een VBA verhaal achter het bestand
Wie oh wie kan mij helpen ? Kom er niet uit

 

[Tech8]

Als je met O365 werkt, zit dit standard ingebouwd.

 

[Robvkoppen]

Ik heb geen 365 ik heb office 2024 !!
De aanpassing werkt blijkbaar niet in office want krijg allemaal meldingen "onbekend"
Maar wel bedankt voor het meedenken !

 

[AHulpje]

Of anders zo, bij het wijzigen van een product wordt het bestaande icoon verwijderd:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 8 And Target.Count = 1 Then
        For Each shp In ActiveSheet.Shapes
            If shp.Top = Target.Top And shp.Type = 13 Then shp.Delete
        Next
        Shapes(Target).Copy
        Target.Offset(, 1).Select
        ActiveSheet.Paste
    End If
End Sub

 

[Tech8]

Of kijk hier eens voor niet O365

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[HSV]

Even de zoekfunctie gebruiken, er staan veel voorbeelden op dit forum, incl. die van mij zonder het gebruik van Vba.

De code van @AHulpje aangepast zodat de shape (plaatje) niet geselecteerd blijft.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 8 And Target.Count = 1 Then
  On Error Resume Next
   Shapes(Target.Offset(, 1).Address).Delete
  On Error GoTo 0
        With Shapes(Target)
          .Duplicate
          .Top = Target.Offset(, 1).Top
          .Left = Target.Offset(, 1).Left
          .Name = Target.Offset(, 1).Address
          End With
    End If
End Sub

 

[Warme bakkertje]

Voorbeeldbestand van T8 in Post#2 werkt uitstekend in Office 2024.

 

[jverkerk]

In een tabel misschien