Is it possible to insert picture into Data Validation input message instead of text?

[wirat]

Below code from some guy will put the picture that has been select in the work sheet into the comment of active cell, But if i would like to put the picture into data validation message is it possible? we can't do manually in excel that difference with picture in comment that we can, so i thing quite difficult to possible to do it as well.

Option Explicit
' Developed by Contextures Inc.
' www.contextures.com
Sub PictureIntoComment()
Dim ch As ChartObject
Dim dWidth As Double
Dim dHeight As Double
Dim ws As Worksheet
Dim sName As String
Dim cmt As Comment
Dim sPath As String
Dim sFile As String
Dim rng As Range
Set ws = ActiveSheet
Set rng = ActiveCell
sPath = ThisWorkbook.Path & "\"
sName = InputBox("Name for picture file (no extension)", "File Name")
If sName = "" Then sName = "Picture_" & Format(Date, "yyyymmdd")
sFile = sPath & sName & ".gif"

dWidth = Selection.Width
dHeight = Selection.Height

Selection.Cut
Set ch = ws.ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, _
Width:=dWidth, Height:=dHeight)
ch.Chart.Paste
rng.Activate
ch.Chart.Export sFile
ch.Delete
Set cmt = rng.AddComment
cmt.Text Text:=""
With cmt.Shape
.Fill.UserPicture sFile
.Width = dWidth
.Height = dHeight
End With
End Sub