기 타 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 | - | - |
14767 | 서버 / IT| 사무실 네트워크 구성에 대해 문의 [5] | 재즈피아 | 404 | 08-14 |
14766 | 윈 도 우| 검색어 탐색기 기록 안 남기기 [2] | aqz | 404 | 06-27 |
14765 | 윈 도 우| UEFI 메뉴 편집 관련 문의드립니다. [7] | engka | 404 | 06-25 |
14764 | 윈 도 우| Win + Pause 단축키 | 빈손 | 404 | 08-04 |
14763 | 하드웨어| LAN 확장포트에서 나온 랜선을 다시 확장포트에 꽂아도 괜... [7] | joe | 404 | 12-29 |
14762 | 윈 도 우| INF파일 설치방법 [3] | Greinke | 404 | 11-24 |
14761 | 소프트웨어| oCam 같은 프로그램 뭐가 있을까요? [4] | windowsandromeda | 404 | 03-07 |
14760 | 윈 도 우| 포멧 완료시 D드라이브(분활 파티션)<-> E드라이브(c... [3] | dlawlsfhr | 404 | 02-16 |
14759 | 윈 도 우| [SK T 인터넷문제]윈도우 10 시간 동기화 관련 문의드립니다. [2] | 아입비 | 404 | 10-15 |
14758 | 윈 도 우| wim 로 설치시 uefi 모드에서 에러가 납니다, [2] | 빨간별 | 404 | 09-25 |
14757 | 소프트웨어| Launcher 프로그램? [2] | knada | 404 | 09-05 |
14756 | 게 임| 게임 한글자막 설정 궁금합니다. locale_config.xml [9] | blackrains | 404 | 08-03 |
14755 | 윈 도 우| 윈도우 PE 부팅중 배경사진 흐리게 만드는 [2] | 다부로 | 404 | 05-24 |
14754 | 윈 도 우| win10 rs5 17763.402 에서.. [5] | 메인보드 | 404 | 05-04 |
14753 | 윈 도 우| 절전 모드가 없어졌어요. [7] | 토니™짱야 | 404 | 04-22 |
14752 | 윈 도 우| 다른분 컴인데 조언 부탁드립니다 [5] | 포코리민 | 404 | 04-11 |
14751 | 윈 도 우| DREAM_WTG_M.vhd 용량 [2] | rose2 | 404 | 03-09 |
14750 | 윈 도 우| chkdsk보다 엄청 빠른 프로그램 있나요? [1] | ksire | 404 | 03-06 |
14749 | 윈 도 우| 저사양용으로 윈도우7 thin pc 설치해보려고 하는데요~ [3] | 0101 | 404 | 03-02 |
14748 | 윈 도 우| 노트북에서도 앱을 사용할 수가 있나요? [1] | joe | 404 | 01-07 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"