abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2014.02.20 01:17

박상민님..

안녕하세요?

VBA에 문외한이시라면 답변 드리기가 힘들것 같습니다.

제가 대신 만들어드리기엔 시간도 없고, 엑셀의 기본 기능으로는 원하시는 기능을 구현하실 수 없기때문입니다.

공부하실 방향을 알려드린다면..

매크로 기록기로 아래의 과정을 기록해서..

자동으로 발생된 코드를 수정해서 만들어보세요..

1. F3:S21 영역을 복사한 다음,

"연결하여 그림 붙여넣기"를 합니다.

Range("F3:S21").Select

Selection.Copy

Range("B23").Select

ActiveSheet.Pictures.Paste(Link:=True).Select

2. Worksheet 이벤트에서 웍북 셀렉션 체인지 이벤트를 추가하고..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

선택된 셀(Target)의 셀 주소가 A열이면 위에서 기록한 코드가 작동하도록 해줍니다.

3. 기존에 붙여넣은 이미지가 워크시트에 남아 있다면.. 계속 증가해서 보기 안 좋으니까요..

2번 스텝의 붙여넣기를 실행하기 전에 Worksheet상의 이미지 개체를 모두 제거하는 코드를 추가해줍니다.

ActiveSheet.Shapes.SelectAll

Selection.Delete

위 코드들을 참고하여 직접 만들어보세요..

공부해보시면 재밌습니다. VBA..

도움이 되셨기를..

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능