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

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