기 타 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 | - | - |
1848 | 기 타| cpu i5-2500k 소음 질문 [4] | 로탄스 | 406 | 03-30 |
1847 | 기 타| Driver.Booster를 이용한 드라이버 설치 실패 [4] | 날마다청춘 | 406 | 12-31 |
1846 | 기 타| 포토샵 이미지에 파도치는 효과 질문이요. [2] | 빗소리 | 406 | 06-14 |
1845 | 기 타| MBTI 검사 해본사람???? [4] | 하얀또잉 | 406 | 11-17 |
1844 | 기 타| 배치파일, cmd창 보이지 않게 부탁드려요. [6] | UU自適 | 405 | 09-26 |
1843 | 기 타| 혹시 음악 좀 부탁드립니다. 45RPM [1] | 하회탈 | 405 | 12-21 |
1842 | 기 타| 토렌트 파일 문의해요 [4] | 홍낄똥 | 405 | 10-04 |
1841 | 기 타| Win10XPE93 ->찾습니다. [4] | 비우리 | 405 | 10-30 |
1840 | 기 타| 유튜브 동영상편집... [6] | 深泉[三神 | 405 | 02-09 |
1839 | 기 타| 크롬에서 우클릭 검색 두개이상 설정 할 수 있나요? [2] | 하이 | 404 | 11-19 |
1838 | 기 타| 궁금합니다 LG 타블렛을 가지고 WINDOWS7을 설치 할수 있나요 [2] | 착한천사1 | 404 | 06-16 |
1837 | 기 타| pe 제작 방법 [1] | 이엠프 | 404 | 03-01 |
1836 | 기 타| CMD 명령어로 특정폴더의 파일명, 확장자 이름만 변경하는 ... [2] | 易모地뗀思 | 404 | 02-18 |
1835 | 기 타| 겔럭시탭 A7 Wifi 이가격이 싸제나온건지요? [4] | 구리시 | 404 | 02-15 |
1834 | 기 타| [참고] 20H2 아이콘 변경시 문제가 생기는 부분 [2] | 스티어 | 404 | 04-09 |
1833 | 기 타| 사타케이블 속도 질문 [2] | 퀵보드소년 | 404 | 04-02 |
1832 | 기 타| 받아놓은 jpg 파일이 자꾸 손상됨. [1] | 그냥그렇다 | 404 | 03-10 |
1831 | 기 타| 급도움요청드립니다 [3] | 하늘소 | 404 | 01-16 |
1830 | 기 타| https://krakenfiles.com/ 에서 다운은 어떻게 하는건가요? [5] | 좋게멋지게 | 404 | 01-15 |
1829 | 기 타| 쿠팡등에서 크롬 인터넷 쇼핑 불가? [1] | asklee | 403 | 05-09 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"