☰

如何在 Excel 中将单元格链接到形状或图片？

tag-icon • tag-icon microsoft-excel hyperlink
如何在 Excel 中将单元格链接到形状或图片？

我想知道是否可以将单元格链接到形状或图片，这样当我单击单元格时，无论形状/图片在工作簿中的什么位置，它都应该找到它。这是一个与其他人共享的文档，他们可以通过 Excel 在线编辑它。我想要一种不会造成问题并且也适用于在线版本的方法。

我尝试过的：

我将单元格命名为 ->“更新”。然后我右键单击形状 -> 超链接 -> 工作簿中的位置 -> 并选择“更新”。因此，当我单击该形状时，它会将我带到我命名为“更新”的单元格。我实际上想要的恰恰相反，即通过单击单元格来定位形状。对我来说，问题是，我尝试命名该形状，但它没有像单元格一样显示在超链接选项中。

谢谢！

答案1

要解决这个问题，你需要一个 VBA（宏）：

Option Explicit

Sub SelectShape1()

 Sheets("Sheet1").Activate
 ActiveSheet.Shapes("Oval 1").Visible = True
 ActiveSheet.Shapes("Oval 1").Select

End Sub

Sub SelectShape2()

 Sheets("Sheet2").Activate
 ActiveSheet.Shapes("Smiley Face 1").Visible = True
 ActiveSheet.Shapes("Smiley Face 1").Select

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Selection.Count = 1 Then

      If Not Intersect(Target, Range("A1")) Is Nothing Then
        Call SelectShape1
      End If

      If Not Intersect(Target, Range("A2")) Is Nothing Then
       Call SelectShape2
      End If
      End If

 End Sub

笔记：

  • 将这些宏复制并粘贴为标准模块。

  • 您可能在多个工作表中拥有多个形状，因此我使用单元格A1&A2单击来选择它们。

  • 在单击单元格A1或A2之前，在相应的工作表中插入形状Sheet 1。

  • 如上所示，宏 Range("A1")、Range("A2")& .Shape("Oval 1")&.Shape("Smiley Face 1")是可编辑的。

  • Worksheet Change event记录点击单元格A1& A2，然后执行相关宏来选择形状。

  • 您可以扩展代码来定位其他形状，因为我仅为两个创建了宏。

相关内容