로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
특정 text를 포함한 데이터 나열하기!! (다시 질문합니다 파일포함) [4]
VBA sub과function차이 [4]
[엑셀초보]질문 올립니다... [2]
다량데이터 일부분씩 저장하기 [1]
예전 툴에서 셀의 값변경 하는것은 이번버전에서 사용못하나요?? [2]
셀서식(표시형식) 아별님 복사관련해서 문의 사항이 있습니다 [7]
[문의] 아별설치시 엑셀 충돌현상 [3]
엑셀수식 기본적인 질문인데 답변부탁드립니다. - 십원(10원) 단위 절사 방법 [1]
자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? [2]
2007사용자 메뉴 [1]
자동 표 테두리 설정 확인 창 - 안뜨게 하는 법 궁금합니다. [2]
엑셀일반 아별님 큰일 났습니다.ㅠㅠ [1]
질문있습니다. [5]
인사관리 [2]
VBA 개체와 컬렉션 [2]
VBA 빠른실행도구모음 외 [2]
행열 바꿈 질문좀 드릴께요~ [1]
VBA vba 에러처리 [2]
VBA 셀병합 효과 [2]
셀서식(표시형식) 아별님 다시 질문드려요, [2]
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:237point (54%), 레벨:1/30"){kind=icon}
박상민
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142255point, 레벨:30/30"){kind=icon}
아별
박상민님..
안녕하세요?
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