로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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]
엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1]
자동채우기 기능 [1]
if 에서 and, or , not 함수에 대해서 문의여..? 다시파일 올렸어여..부탁드려여..? [2]
질문있습니다. [2]
엑셀 만게가 넘는 데이타에서 원하는 이하의 값 찾아내기 [3]
여러 시트가 있는 파일을 작업하다보면 옆 시트에 맘대로 셀에 색깔이 들어감. [1]
필터링 설정후 복사와 관련된 질문 드립니다. [1]
엔터 눌렀을때 이동 [2]
이기능 어떻게 사용하는건가요??? [2]
매크로 없애는 방법 [1]
sumif 함수에 대해서 [1]
셀 색깔별 정렬 [1]
셀 곱하기 [3]
함수가 들어간 셀의 합 [1]
갯수 구하기 [5]
페이지 고정이요 [1]
AK18101*2 으로 되어 있는 셀을 빈셀에 AK18101 AK18101 으로 나열하는 방법 [2]
서식 추가질문 [1]
power 공식 관련 [5]
![[레벨:1]](http://www.abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:317point (84%), 레벨:1/30"){kind=icon}
비베초보
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141891point, 레벨:30/30"){kind=icon}
아별
비베초보님..
안녕하세요? ^^
첨부파일을 살펴봤는데요..
다이얼로그 시트를 사용하신 것 같네요? ^_^;;
다이얼로그 시트는 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
어차피.. 유저폼에 이미지를 집어넣을때,
이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..
확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.
도움이 되셨기를..