Question

我有一个简单的电话列表，其中包含名称，地址，电话号码等形式的列。在最后一栏中，我希望有一个相当于评论翻转的内容，它会自动弹出人物照片（有许多人偶尔会来到这个团体，这将有助于识别他们并记住他们的名字）

1）我试图更改注释框Shapes属性，但当然没有msoPicture形状类型。

2）我试图将图片放在单元格中并使其可单击，然后再次单击它以使其折叠。但识别源图片以改变其比例宽度让我很难过。

有什么想法吗？

Answer 1

好的，我找到了答案。将图片以小格式放置在与人名相邻的单元格中，并为其指定以下宏。所有图片都指向同一个宏。点击图片将其切换为大/小。

Sub Picture_Magnify_Click()
  With ActiveSheet.Shapes(Application.Caller)
    If .Height < 20 Then
      .Height = .Height * 4
      Else
      .Height = .Height / 4
      End If

    End With
  End Sub

试图在Excel中弹出手机列表的图片

1 个答案: