Question

我的Excel电子表格中有几个单元格的下拉列表，其中包含一些选项。我想知道是否可以根据列表中选择的选项显示图像。理想情况下，当您将鼠标悬停在图像上时，此图像会显示出来。

我尝试将图片作为注释，但注释与特定单元格相关联，因此您无法根据显示的选项更改图像。

感谢。

Answer 1

我已经弄清楚了。这是以下代码

If method = "Spaced" Then
    Range("B29").Select
    Range("B29").Comment.Visible = False
    Range("B29").Comment.Text Text:="" & Chr(10) & ""
    Range("B29").Select
    ActiveCell.Comment.Visible = True
    Range("B29").Comment.Shape.Select True
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 225)
    Selection.ShapeRange.Fill.UserPicture "C:\Users\SESA363648\Pictures\Demo.PNG"
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.Height = 60
    Selection.Width = 35
    Range("B29").Select
    ActiveCell.Comment.Visible = False
End if

要显示多张图片，您只需要进行不同的检查，对于特定情况，您可以使用不同的图片

根据Excel中的输入显示不同的图像

1 个答案: