기 타 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 | - | - |
96268 | 기 타| 페이스북 이전 계정으로 변경할 수 없나요 ? [2] | 커피한잔 | 168 | 03-01 |
96267 | 윈 도 우| amd 5600G 화면 리프레시 딜레이 [4] | 토르망치 | 494 | 03-01 |
96266 | 소프트웨어| Snagit 편집기 최근항목 [4] | 단디™ | 339 | 03-01 |
96265 | 윈 도 우| CLSID 값이 어떻게 될까요? [2] | dreamsbk1 | 301 | 03-01 |
96264 | 기 타| 배치 파일에서 폴더의 용량 단위 변환 표시 [24] | 가로등 | 863 | 02-28 |
96263 | 소프트웨어| 사진 4장씩 보이게 해서 4A 사이즈로 설정하고 jpeg 등으로... [4] | 예스어데이 | 721 | 02-28 |
96262 | 윈 도 우| 11.22621 설정의 에너지 사용량 경고 없엘 수 있을까요? | DarknessAn | 208 | 02-28 |
96261 | 윈 도 우| ghost spectre 아시는분 질문 드려봅니다. [5] | 이제부터아 | 474 | 02-28 |
96260 | 하드웨어| GPU 메모리는 작업 후 메모리 반환이 안되나요? [7] | feynman | 625 | 02-28 |
96259 | 기 타| 매개 변수 이름:value | 쌘돌 | 181 | 02-27 |
96258 | 소프트웨어| 리눅스 간단한거 하나만 여쭤볼게요. [13] | reg | 698 | 02-27 |
96257 | 소프트웨어| 포토샵 사용하는 방법 [4] | 맨션에살자 | 872 | 02-27 |
96256 | 윈 도 우| 윈도우 11 에서 더 이상 부팅 메뉴 레거시(고전 검정) [10] | 로락이 | 923 | 02-27 |
96255 | 소프트웨어| CPU 이름 출력하는 C/C++ 프로그램 [7] | 나는나다 | 915 | 02-26 |
96254 | 하드웨어| 라이젠 3700X와 5600과의 차이? [8] | 개척자 | 1174 | 02-26 |
96253 | 하드웨어| Usb 포맷 [1] | 양말 | 695 | 02-26 |
96252 | 소프트웨어| ventoy 관련 문의 [3] | 한스 | 712 | 02-26 |
96251 | 윈 도 우| wifi 자동연결 질문 [3] | 네오틱 | 604 | 02-26 |
96250 | 소프트웨어| SSD S.M.A.R.T 오류뜨면 윈도우 재설치 해야 하나요? | 바이오스 | 300 | 02-26 |
96249 | 윈 도 우| 안녕하세요~멀티 등록에 관한 질문 입니다~ [1] | 거스 | 232 | 02-26 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"