excel vba 编程，当单元格是某一个值的时候，显示相对应的图片

以下是一个示例VBA代码，当单元格A1中的值为“Apple”时，在B1单元格中显示一个苹果的图像：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then '检查更改的单元格是否是A1
        If Target.Value = "Apple" Then '如果A1的值是“Apple”
            Range("B1").Select '选择B1单元格
            ActiveSheet.Pictures.Insert("C:\Images\apple.jpg").Select '插入图像
        End If
    End If
End Sub

请注意，此代码应该放置在工作表的代码模块中（右键单击工作表选项卡，选择“查看代码”）。如果要检查多个单元格的值，请使用类似的逻辑和代码。还需要更改图像文件的路径和文件名。