기 타 CHAT GPT를 이용한 이미지 일괄 삽입 vba 관련
2023.02.16 00: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 | - | - |
96257 | 소프트웨어| 포토샵 사용하는 방법 [4] | 맨션에살자 | 875 | 02-27 |
96256 | 윈 도 우| 윈도우 11 에서 더 이상 부팅 메뉴 레거시(고전 검정) [10] | 로락이 | 924 | 02-27 |
96255 | 소프트웨어| CPU 이름 출력하는 C/C++ 프로그램 [7] | 나는나다 | 915 | 02-27 |
96254 | 하드웨어| 라이젠 3700X와 5600과의 차이? [8] | 개척자 | 1188 | 02-27 |
96253 | 하드웨어| Usb 포맷 [1] | 양말 | 695 | 02-27 |
96252 | 소프트웨어| ventoy 관련 문의 [3] | 한스 | 712 | 02-26 |
96251 | 윈 도 우| wifi 자동연결 질문 [3] | 네오틱 | 611 | 02-26 |
96250 | 소프트웨어| SSD S.M.A.R.T 오류뜨면 윈도우 재설치 해야 하나요? | 바이오스 | 300 | 02-26 |
96249 | 윈 도 우| 안녕하세요~멀티 등록에 관한 질문 입니다~ [1] | 거스 | 232 | 02-26 |
96248 | 윈 도 우| Edge 동기화를 초기화 방법이 긍금합니다. [4] | 이슬 | 404 | 02-26 |
96247 | 윈 도 우| 윈10에서 윈11 설치 문의 드립니다. [1] | 레드2 | 381 | 02-26 |
96246 | 하드웨어| 경쟁이 심한경우 인터넷속도와 시스템성능 어느게 유리한가요? [7] | 좋은데이 | 672 | 02-26 |
96245 | 윈 도 우| 윈도우10 구형노트북 윈도우11 업데이트하라고 계속 떠요 [1] | slhyou | 597 | 02-26 |
96244 | 윈 도 우| 기괴한 윈11 정품인증 [5] | 포닉 | 1676 | 02-26 |
96243 | 소프트웨어| 엣지 브라우저의 홈페이지 설정문제입니다 [5] | 『ⓖⓤⓝ』 | 842 | 02-25 |
96242 | 윈 도 우| 미사용 후 재사용 시에 윈도우 로그인창이 뜹니다.2 [2] | 『ⓖⓤⓝ』 | 214 | 02-25 |
96241 | 모 바 일| 휴대폰용 토커앱에 네이버 마이박스를 넣을 수 있나요? | brucex | 133 | 02-25 |
96240 | 윈 도 우| 바탕화면에 이상한 아이콘이 가끔 생겨요 [6] | 멍게야 | 646 | 02-25 |
96239 | 하드웨어| 한성노트북 X57K에 윈도우11을 설치했습니다. [4] | 파워클래식 | 380 | 02-25 |
96238 | 윈 도 우| 고스트 배치파일 질문점 자동실행 재부팅까지 [2] | 컴아저씨훈 | 265 | 02-25 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"