Excel의 전화 목록에 팝업 사진을 표시하려고합니다.

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