試圖讓彈出的圖片在Excel中的電話列表

Question

我有一個簡單的電話列表，名稱，地址，電話號碼等形式的列 在最後一列，我想有相當於一個評論滾動會自動彈出人照片（有很多人偶爾來這個團體，這將有助於識別他們並記住他們的名字）

1）我試圖改變評論框形狀屬性，但當然沒有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