0

名前、住所、電話番号などの形式の列を持つ単純な電話リストがあります。最後の列には、人物の写真を自動的にポップアップするコメントロールオーバーに相当するものが必要です（多くの人がいますたまにこのグループに来るだけで、これは彼らを認識し、彼らの名前を覚えるのに役立ちます）

1）コメントボックスのShapesプロパティを変更しようとしましたが、もちろんmsoPictureシェイプタイプはありません。

2）セルに画像を配置してクリック可能にし、もう一度クリックして折りたたむようにしました。しかし、スケール幅を変更するためにソース画像を特定することは私を困惑させました。

何かご意見は？

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 に答える