로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
엑셀일반 중복 IF문 개념잡는법에 대한 질문 [4]
VBA 선택한 영역 랜덤 색 대해서 질문하겟습니다. [4]
엑셀일반 엑셀 2010 인쇄 질문 [3]
엑셀일반 일정표를 하나 만들었는데 도와주세요(긴급)ㅠㅠ [1]
엑셀일반 2010 엑셀로 작업 2003엑셀 시트 복사가 안되요 [1]
셀서식(표시형식) 다른 시트에서 조건을 만족하면 해당시트 셀에서 색칠하거나 글씨 표시하기 [2]
아별님~~도와주세용... [2]
VBA 혹시 어떤 문서에서 특정 단어를 추출하는 것이 가능할까요? [2]
VBA REPORT 형식을 변형하고 싶은데 한번 봐주세요 [7]
아별툴관련질문 error name delete 하면 '1004' 런타임 어류가 발생합니다. [2]
VBA 파일&폴더 자꾸 글올려서 죄송합니다. open문 질문입니다.ㅠㅠ [1]
엑셀일반 아별툴 적용 안됨
엑셀수식 하이퍼 링크 재 문의 입니다. [2]
엑셀일반 경력 합산 [4]
VBA 엑셀에서 웹페이지 종료하는 방법 [3]
엑셀수식 OFFSET함수 수식 오류 문의 드립니다. [3]
엑셀일반 한가지 질문요
VLookup 앞시트에서 지정 값 정하여 계산 할 수 있나요? [5]
함수 질문드립니다. (크거나 같은 값 중 가장 근접한 값 찾기) [2]
피벗테이블 시간표 관리, 피벗 부분합의 활용 질문?? [5]
박상민님..
안녕하세요?
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