로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
VBA 엑셀 일괄암호저장 [1]
VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select [1]
VBA 추가기능 파일 수정 관련 [1]
VBA 매크로 질문 드립니다.
VBA 컴파일 에러가 나요?
VBA 매크로를 이용한 exe 파일 자동 실행 방법 문의~
VBA 셀 복사 후 아래셀에 수식 및 메모 붙여넣기 관련
VBA 사용자 정의 함수에서 변수의 행번호 추출하기
VBA .Find 재고 입고월 분석(vba) [3]
VBA 셀에 맞춰 그림 삽입하기 [1]
VBA 파일&폴더 파일 만들기 _ 파일 생성, 폴더 생성, 파일 존재하는지 여부 확인 등 [4]
VBA .Find ListBox1 에 추가가 되지를 않습니다. [3]
VBA .Find 매크로 질문입니다.~ [2]
VBA vba질문하나 올리겟습니다.ㅠㅠ [3]
VBA 특정개체 수정 관련 [5]
VBA 랜덤 출력 관련 짧고 간결(?)한 3가지 질문입니다. _ 중복 없는 랜덤 패스워드 생성하는 방법.. [4]
VBA 조건문을 변수화 하는 방법 [2]
VBA 프로그램바 질문 _ 작업 진행바 Progress bar [2]
VBA VBA로 정렬하는 법 문의 [6]
VBA 한셀안의 서식을 다르게 지정할 수 있는 방법 없을까요? [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