로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
어차피.. 유저폼에 이미지를 집어넣을때,
이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..
확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.
도움이 되셨기를..
2013.12.17 15:01:48 *.162.55.41
2013.12.17 15:29:09 *.162.55.41
새 창으로
선택한 기호
VBA 병합효과 [3]
VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결
VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ [2]
VBA 엑셀 랜덤돌리기 질문입니다 [2]
VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2]
VBA win7 64bit / 64bit 엑셀 / 32bit DLL의 사용법이 궁금합니다.
VBA 2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다! [3]
VBA 엑셀 vba 함수 질문드릴게요. [4]
VBA 파일&폴더 ExecuteExcel4Macro로 다른 파일 열지않고 셀 데이터 가져오기 시 실패
VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1]
VBA 외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법 [7]
VBA 수식이 입력된 셀은 자동으로 색상이 들어가게 하는 방법 [5]
VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기
VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. [3]
VBA VBA 서적 추천좀 해주세요 [1]
VBA 아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리) [3]
VBA vba로 서식정렬 [4]
VBA 진행바 응용(다른 메뉴 실행중) _ 작업 진행바 Progress bar [3]
VBA 파일&폴더 엑셀파일명으로 검색하여 링크걸기 [1]
VBA 현재 선택 된 셀을 기준으로 같은방식의 연산결과 값을 산출하는 법 [1]
비베초보님..
안녕하세요? ^^
첨부파일을 살펴봤는데요..
다이얼로그 시트를 사용하신 것 같네요? ^_^;;
다이얼로그 시트는 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
어차피.. 유저폼에 이미지를 집어넣을때,
이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..
확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.
도움이 되셨기를..