기 타 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 | - | - |
96402 | 윈 도 우| 바탕화면 기본아이콘 고정 방법 문의 [2] | wxyzb | 259 | 03-16 |
96401 | 소프트웨어| 부팅 usb 삭제 문의 [7] | 강남역5번 | 314 | 03-16 |
96400 | 하드웨어| 문의)) 사진 출력 가능한 컬러 레이저 복합기 추천 부탁드... [9] | chobits | 375 | 03-16 |
96399 | 윈 도 우| 윈도우 LTSC 1809를 21H2로 업데이트 할 수 있나요? [7] | 꽃핌 | 917 | 03-15 |
96398 | 소프트웨어| PECMD에서 해상도 설정이 안됩니다 | sunshine | 195 | 03-15 |
96397 | 하드웨어| 인텔 쿨러 파손 [8] | dtmsp | 610 | 03-15 |
96396 | 서버 / IT| 무선 네트워크 어뎁터 보안때문에 사용안함을 하고싶은데 | 봉황빈 | 284 | 03-15 |
96395 | 윈 도 우| 날씨 위젯이 저는 표시가 안되네요.. [7] | 그린보이 | 394 | 03-15 |
96394 | 윈 도 우| [스크립트] 특정 IP대역에 있는 공유폴더 내 파일 삭제 질문 [4] | 마로야 | 296 | 03-15 |
96393 | 하드웨어| 노트북 백라이트 교체... [4] | 최동안 | 516 | 03-15 |
96392 | 기 타| 네이버웨일의 모든 설정을 백업하고자 하는데요 [3] | #cortana# | 401 | 03-14 |
96391 | 소프트웨어| 오피스365 평생 버전에서 비번을 바꾸면? [2] | 루나헌터 | 710 | 03-14 |
96390 | 윈 도 우| 윈도우 10 탐색기 메뉴 사라짐 [1] | Mac111 | 354 | 03-14 |
96389 | 기 타| 오토핫키 파일명 이름변경 31부터 시작하는 법좀 알려주세... [2] | 평화 | 197 | 03-14 |
96388 | 하드웨어| hp probook 450 g3, 무선랜모듈 단선된 안테나선 문의입니다 [9] | 개울소리 | 328 | 03-14 |
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 |
myFolder = "파일경로" 부분에서 파일 경로를 실제 경로로 명시하십시오.
예) myFolder = "d:\pictures"