将静态图像与来自特定字段的 URL 超链接

Question

我正在尝试完成一个基于单元格的多步骤 vba 函数，该单元格将根据另一个正在更新的字段而动态更改。为了简化：

• 工作表 1 上的单元格 B12 = url（定义的名称是“Company_URL”），当 B11 在工作表 1 上更新时会发生变化。
• 随着此 URL 的更改，我想用该 URL 超链接工作表 2 中的图像。
• 图片标题为“app”

Sub HyperLink()

    ActiveSheet.Hyperlinks.Add _
    Anchor:=Worksheets("Sheet2").Shapes("app"), _
    Address:="http://" & Range("Company_URL").Value

End Sub

这是错误，表明未找到具有指定名称的项目。

如果 Sheet1!b11 = "john" "jim" "doug"，我还想将图像（称为“image2”）添加到 Sheet2!c12:e14 中。

非常感谢您对此的任何帮助。

Answer 1

您的问题是 excel 无法通过名称“app”识别图片。您必须手动按索引选择图片，或者您必须自己将其命名为“应用程序”才能选择它。

Sub HyperLink()

    'Name the shape at index 1 as "app"
    Sheets(2).Shapes(1).Name = "app"

    'Link to the shape previously named "app"
    Sheets(2).Hyperlinks.Add Anchor:=Sheets(2).Shapes("app"), _
        Address:=Sheets(1).Range("B12").Value2

End Sub