Полагаю, для этого вам нужна пользовательская функция.К счастью, это просто.Убедитесь, что он находится внутри модуля.
Function ShowPic(PicFile As String) As Boolean
Dim AC As Range
On Error GoTo Done
Set AC = Application.Caller
ActiveSheet.Shapes.AddPicture PicFile, True, True, AC.Left, AC.Top, 200, 200
ShowPic = True
Exit Function
Done:
ShowPic = False
End Function
Затем вы можете вызвать эту функцию с помощью = ShowPic ("pathtofile.jpg").Вы также можете использовать его в выражении IF.Итак = IF (A2 = "желтый", ShowPic ("caution.jpg"), IF (A2 = "зеленый", ShowPic ("greenlight.jpg") ...
Цвет фона можно изменитьс условным форматированием.