로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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]
다른시트의 도형색깔 바꾸기 [3]
칸나누기?? [1]
원하는 데이터만 가져오려면? [1]
자동으로 잡히는 인쇄영역 [1]
피벗테이블 팁부탁드립니다. [1]
유효성검사로 목록2개 만들기 [3]
단축키에 대해서 여쭈어 봐용 ^0^ [3]
엑셀일반 [엑셀 연결관련] 파일을 열때 "연결중:￦￦ ???￦ ???￦ ~ " 류의 메세지 [1]
엑셀 매크로 작성입니다. [1]
엑셀에서 sheet 보호를 한상태로는 셀병합이라던지 그런건 할수 없는건가요? [1]
초보자지만 함수 질문 올려봅니다. [2]
각 시트의 2개이상 조건값이 같을 때 해당값을 찾는 함수??? [1]
셀서식(표시형식) 사용자 정의 셀서식에 대해서 [1]
VLookup 두 개의 조건이 일치하는 값 찾기. [3]
자동으로 계산할 수 있는 방법이 있나요? [2]
VBA 프로그램바 질문 _ 작업 진행바 Progress bar [2]
차트안의 데이타 자동 변경방법 알려주세요^^ [3]
SUMIF 특정문자 포함하는 셀에서 값을 더할 때 관련 질문입니다. [3]
VBA 특정개체 수정 관련 [5]
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:317point (84%), 레벨:1/30"){kind=icon}
비베초보
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141719point, 레벨: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
어차피.. 유저폼에 이미지를 집어넣을때,
이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..
확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.
도움이 되셨기를..