로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
탭 병합하기 질문 ==> 시트 병합, 시트 합치기 [1]
엑셀 통계표 작성시 함수 좀.... (2가지 조건 이상을 만족하는 데이터의 카운팅 방법) [4]
엑셀일반 셀안의 텍스트에....... [6]
셀 서식에서 원하는 서식으로 고정하기 [3]
시트별 합계 방법 [4]
VLookup vlookup을 이용하여 하이퍼링크 가져오기 [2]
VBA 조건문을 변수화 하는 방법 [2]
피벗테이블 팁부탁드립니다. [1]
피벗테이블 월별 합계 금액 구하는 법 [1]
VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패
엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1]
SUBTOTAL 행 갯수 세기 [4]
엑셀일반 최대값, 최소값 범위 지정
엑셀에서 어떤셀값의 중간부분만 봐서 중간값에 따라 앞셀의 값이 변하게 하려면 [5]
엑셀일반 2교대 근무표 엑셀로 작성하려고 하는데 도와주세요
셀서식(표시형식) 사용자 정의 셀서식에 대해서 [1]
VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2]
VLookup Vlookup 사용 시 수식이 걸려 있는 데이터의 #N/A 표시 해결 [1]
SUMIF 특정문자 포함하는 셀에서 값을 더할 때 관련 질문입니다. [3]
엑셀일반 안녕하세요 재고의 연령분석에 대해 질문드립니다. [2]
박상민님..
안녕하세요?
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