로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2014.02.20 01:17:17 *.130.73.21
박상민님..
안녕하세요?
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
2014.02.20 21:49:02 *.251.203.199
새 창으로
선택한 기호
742
741
740
739
738
737
736
735
734
733
732
731
730
729
728
727
726
725
724
723
박상민님..
안녕하세요?
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