0

我有一个简单的电话列表，其中包含姓名、地址、电话号码等形式的列。在最后一列中，我希望有一个相当于评论翻转的功能，它会自动弹出个人照片（有很多人只是偶尔来这个小组，这将有助于识别他们并记住他们的名字）

1）我曾尝试更改评论框Shapes属性，但当然没有msoPicture shape类型。

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

有什么想法吗？

4

1 回答 1

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
于 2009-11-24T21:02:05.590 回答