로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
엑셀일반 위첨자 자동변환 관련 질문 [1]
엑셀수식 조건부서식과 "숫자"&"문자" 글자 높이 문제 [2]
pivot 기본 수식 질문이요 _ 피벗테이블을 사용하면 간단히 해결되는 경우 [2]
몇 가지 질문입니다~! (회계표시형식, 셀맞춤-세로로 가운데 등) [3]
엑셀일반 시트별 비교 관련 : VIP 재등장 횟수 찾는 방법 [1]
VBA SUMPRODUCT 질문 !! [1]
엑셀수식 수식 탭-수식 분석-수식계산 단축키 [2]
엑셀일반 정렬해서 평균을구하고 차이 여쭤봅니다. [5]
도형회전각도 메크로 조정 [3]
엑셀일반 자동채우기 기능(급합니다...ㅠㅠ) [2]
엑셀수식 이름 범위를 여러열에 걸쳐 지정 후 조건문 수식 만들기 [1]
엑셀일반 기초질문 3개 드립니다. 감사합니다. [3]
엑셀2007 자동필터 문의 [2]
엑셀수식 엑셀 수식?질문 드려요 [3]
엑셀수식 품목별 자재사용내역서에서 조회 원하는 날 이전 근접값 조회하기
엑셀수식 indirect ,address함수 관련 문의 [4]
엑셀일반 프린트시 여백설정방법에 대하여 질문합니다. [4]
엑셀일반 엑셀함수중 일수구하기 질문입니다. [2]
VBA 닫혀있는 다른파일 데이터 어떻게 참조하나요? [1]
엑셀일반 rnd함수 질문입니다.. [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
어차피.. 유저폼에 이미지를 집어넣을때,
이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..
확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.
도움이 되셨기를..