기 타 CHAT GPT를 이용한 이미지 일괄 삽입 vba 관련
2023.02.15 15:09
안녕하세요
최근 GPT 가지고 이것저것 해보고 있는데요..
이미지 일괄 삽입 VBA 코드를 아래와 같이 받았는데...
Set myPicture = ActiveSheet.Pictures.Insert(myFolder & "\" & myFile)
이 부분에서 1004런타임 오류가 나오네요(pictures 클래스 중 Insert 속성을 구할 수 없습니다. 라고 나오네요)
VBA 관련 지식이 전무해서 그런데 혹시 어느 부분 수정이 필요할까요...
Sub InsertPictures()
Dim myFolder As String
Dim myFile As String
Dim myPicture As Picture
Dim myShape As Shape
Dim myLeft As Double
Dim myTop As Double
Dim myWidth As Double
Dim myHeight As Double
Dim myCount As Integer
' Set the folder path where the pictures are located
myFolder = "파일경로"
' Set the initial position of the pictures
myLeft = 10
myTop = 10
myWidth = 100
myHeight = 100
' Loop through all the files in the folder
myCount = 0
myFile = Dir(myFolder & "\*.jpg")
Do While Len(myFile) > 0
' Insert the picture and resize it to the same size
Set myPicture = ActiveSheet.Pictures.Insert(myFolder & "\" & myFile)
myPicture.Left = myLeft
myPicture.Top = myTop
myPicture.Width = myWidth
myPicture.Height = myHeight
' Convert the picture to a shape and set the name
Set myShape = myPicture.ShapeRange.Item(1)
myShape.Name = "Picture" & myCount
' Increment the position for the next picture
myLeft = myLeft + myWidth + 10
myCount = myCount + 1
If myCount Mod 5 = 0 Then
myLeft = 10
myTop = myTop + myHeight + 10
End If
' Get the next file
myFile = Dir
Loop
End Sub
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
96387 | 하드웨어| 노트북관련질문 [4] | EP-Se | 270 | 03-14 |
96386 | 하드웨어| 컴퓨터 처음 켤때만 부팅이 안되는 증상 [7] | 민트러브 | 779 | 03-14 |
96385 | 윈 도 우| 윈도우 CMD 복구 명령어 오류 [2] | 날아가 | 331 | 03-14 |
96384 | 윈 도 우| 빈자리님자료제공하여주실분 [1] | 고향산천 | 302 | 03-14 |
96383 | 윈 도 우| SSD에서 백업한 윈도우 백업파일 다른 HDD에서 복구해서 쓸... [4] | 좀머씨 | 435 | 03-14 |
96382 | 하드웨어| 하드디스크 문제가 발견되었습니다. 3 [8] | 좀머씨 | 588 | 03-14 |
96381 | 윈 도 우| 하드디스크 문제가 발견되었습니다 2 [2] | 좀머씨 | 414 | 03-14 |
96380 | 기 타| 케이블 방송 선 연결하는 ㄱ 자 이름 알수 있을까요? [3] | 감사합니다 | 394 | 03-14 |
96379 | 하드웨어| 하드 디스크 문제가 발견되었습니다... 이거 어떻게 해야하... [4] | 좀머씨 | 478 | 03-13 |
96378 | 모 바 일| 태블릿에 img 파일을 설치하려는데 인식이 안되네요? [3] | brucex | 258 | 03-13 |
96377 | 윈 도 우| 다운 받은 한글팩 cab 파일 적용? [7] | SHconan | 283 | 03-13 |
96376 | 소프트웨어| quick access popup이 콘텍스트메뉴가 안 나오네요? [2] | brucex | 116 | 03-13 |
96375 | 윈 도 우| 폴더를 지우고 싶은데....못 지우겠어요 [5] | assa | 388 | 03-13 |
96374 | 소프트웨어| ESET 백신 설치가 안돼요. 도와주세요~ [2] | JayJ | 423 | 03-13 |
96373 | 윈 도 우| 구글 검색 결과 [2] | 솔모로 | 280 | 03-13 |
96372 | 하드웨어| HDD 3.5"하드를 분해해 보았습니다. [9] | 아브라함 | 673 | 03-13 |
96371 | 소프트웨어| 집앞의_큰나무님 PE(Wim) 사용 할려고 하는데. | 이슬 | 258 | 03-13 |
96370 | 소프트웨어| PE 만들기++는 어떻게 사용하는 건가요? [1] | ksire | 411 | 03-13 |
96369 | 소프트웨어| 제어판/windows기능에 hyper-v 항목이 없어요 [4] | 1010101010 | 315 | 03-13 |
96368 | 소프트웨어| fastston 이미지 퓨 오류질문입니다 | photo | 104 | 03-12 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"