1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

사진 삽입

VBA 조회 수 2778 추천 수 0 2013.12.16 22:05:16

안녕하세요...

 사례집을 하나 만들고 있는데요...

실행 단추를 클릭 하면 이미지 폼의 사진이 상세 사례 Sheet에 삽입 될 수 있도록 하려고 합니다.

도저히 넣을 수가 없어 도움을 요청드립니다.


댓글 '3'

profile

[레벨:30]아별

2013.12.17 13:15:58
*.104.126.21

비베초보님..

안녕하세요? ^^


첨부파일을 살펴봤는데요..

다이얼로그 시트를 사용하신 것 같네요? ^_^;;

다이얼로그 시트는 MS에서 더 이상 지원하지 않기로 결정했으니 더이상 사용하지 않는게 좋겠습니다.


특정 파일을 불러오거나 저장할때는 Application.FileDialog를 사용하시면 됩니다.


아래 샘플 코드를 참고하세요..

Sub sampleFilePicker()

    Dim i As Integer

    With Application.FileDialog(msoFileDialogFilePicker)

        .Filters.Add "jpg 파일", "*.jpg", 1

        .InitialFileName = "*.*"

        .Title = "Select image Files to insert..  "

        If .Show = vbTrue Then

            For i = 1 To .SelectedItems.Count

ActiveSheet.Shapes.AddPicture(FileName:=.SelectedItems(i), _

                    LinkToFile:=msoFalse, _

                    SaveWithDocument:=msoTrue, _

                    Left:=ActiveCell.Left, _

                    Top:=ActiveCell.Top, _

                    Width:=ActiveCell.Width, _

                    Height:=ActiveCell.Height)

            Next i

        End If

    End With

End Sub




어차피.. 유저폼에 이미지를 집어넣을때,

이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..

확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.


도움이 되셨기를..

[레벨:1]비베초보

2013.12.17 15:01:48
*.162.55.41

확인 감사드려요...

인터넷 검색으로 만든 거라 답변을 이해 하기가 어렵네요 ^^;;

좀더 공부를 해봐야 겠어요...ㅠ.ㅜ

[레벨:1]비베초보

2013.12.17 15:29:09
*.162.55.41

아래 구문 부터는 컴파일 오류라고 나오는데 어떻게 변경 해야 할까요? ㅠ.ㅜ

ActiveSheet.Shapes.AddPicture(FileName:=.SelectedItems(i), _

LinkToFile:=msoFalse, _

SaveWithDocument:=msoTrue, _

Left:=ActiveCell.Left, _

Top:=ActiveCell.Top, _

Width:=ActiveCell.Width, _

Height:=ActiveCell.Height)

 

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40268

엑셀일반 경력 합산 file [4]

pivot 기본 수식 질문이요 _ 피벗테이블을 사용하면 간단히 해결되는 경우 file [2]

  • [레벨:4]요셉
  • 2014-01-02
  • 조회 수 2617

아별툴관련질문 이미지 일괄삽입기능에서 옵션을 주고 나면 2번째 그림부터 밀려남 file [1]

VBA 도와주세요,,, 아별님... file

엑셀일반 안녕하세요 재고의 연령분석에 대해 질문드립니다. file [2]

기타 컨트롤서식 질문이요 file [1]

  • [레벨:4]요셉
  • 2013-12-19
  • 조회 수 1964

VBA 사진 삽입 file [3]

엑셀일반 엑셀값 중간에 : 삽입 _ 문자열 수식, 텍스트 가공하여 합치기 [3]

  • [레벨:1]chan
  • 2013-12-13
  • 조회 수 5789

엑셀일반 값더하기 단축기는 없나요? [4]

  • [레벨:1]azess
  • 2013-12-12
  • 조회 수 3135

VLookup 참조범위의 셀에 '~' 글자가 들어가도 조회하는 방법 file [2]

고급필터 판매 자료 정렬 관련 질문드려요 _ 피벗테이블과 고급필터를 이용한 데이터 추출방법 file [4]

엑셀일반 도움 부탁드려요 ㅜㅜ 정렬 질문입니다. [2]

아별툴관련질문 특수기능 에러에 대해서 [2]

이미지,도형 등 안녕하세요! 처음으로 드리는 질문입니다! imagefile [1]

엑셀일반 엑셀 관련 질문입니다. imagefile [2]

  • [레벨:1]JYK
  • 2013-11-11
  • 조회 수 2439

아별툴관련질문 오류 - 셀서식이 너무 많습니다 [2]

VBA 안녕하세요 아별님! file

  • [레벨:2]북곰
  • 2013-11-07
  • 조회 수 2146

엑셀일반 행열 변환 관련 file [1]

피벗테이블 피벗테이블 정렬 문의입니다 file [4]

엑셀일반 엑셀 수식이 바로 적용이 안됩니다. [1]