Note: The other languages of the website are Google-translated. Back to English

여러 그림을 삽입하고 Excel에서 한 번에 크기를 조정하는 방법은 무엇입니까?

한 장의 그림을 Excel에 삽입하는 것은 쉽지만 한 번에 여러 장의 그림을 삽입해야 많은 시간을 절약 할 수 있다면 어떻게 할 수 있습니까?


그림 삽입 기능을 사용하여 여러 그림을 삽입하고 대량으로 크기 조정

Excel의 (삽입) 그림 기능을 사용하여 여러 그림을 한꺼번에 삽입 한 다음 동시에 크기를 조정할 수 있습니다. 다음과 같이하십시오 :

1. 워크 시트에서 끼워 넣다 > 그림.

2. 그림 삽입 대화 상자에서 삽입 할 그림이 포함 된 폴더를 열고 필요에 따라 여러 그림을 선택한 다음 끼워 넣다 단추. 스크린 샷보기 :
주의 사항: 홀딩 Ctrl 키 키를 사용하면 인접하지 않은 여러 사진을 하나씩 클릭하여 선택할 수 있습니다. 보유 변화 키를 사용하면 첫 번째 사진과 마지막 사진을 클릭하여 인접한 여러 사진을 선택할 수 있습니다.

이제 그림이 대량으로 삽입되고 워크 시트에 쌓입니다.

3. 이 사진을 선택한 상태로 유지하고 두 사진에 새 번호를 입력하여 대량으로 크기를 조정합니다. 높이 상자에 크기 그룹에 형성 탭. 스크린 샷보기 :

이제 삽입 된 모든 그림이 동시에 같은 크기로 변경됩니다.

4. 현재 각 사진을 개별적으로 적절한 위치로 수동으로 이동해야합니다.

주의 사항: 수십 장의 사진이 쌓여있는 경우 수동으로 원하는 위치로 이동하려면 시간이 많이 걸립니다.

Excel에서 셀 내용과 일치하는 여러 그림을 일괄 삽입

또한 가져 오기 사진 일치 Excel 용 Kutools의 기능은 셀 내용을 기반으로 여러 그림을 일괄 가져 오기 및 삽입하고 가져온 그림의 크기를 셀 크기와 동일하거나 지정된 크기로 쉽게 조정할 수있는 환상적인 도구입니다.


광고 일치 가져온 사진 01

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

OneNote를 사용하여 여러 그림을 삽입하고 대량으로 크기 조정

그림을 하나씩 겹치는 것을 방지하기 위해이 방법은 OneNote의 도움으로 여러 그림을 삽입하는 또 다른 트릭을 도입합니다. 다음과 같이하십시오 :

1. OneNote를 시작하고 새 페이지를 만듭니다. 그런 다음 끼워 넣다 > 그림.

2. 그림 삽입 대화 상자에서 삽입 할 그림이 포함 된 폴더를 열고 필요에 따라 여러 그림을 선택한 다음 끼워 넣다 단추. 스크린 샷보기 :
주의 사항: 홀딩 Ctrl 키 키를 사용하면 인접하지 않은 여러 사진을 하나씩 클릭하여 선택할 수 있습니다. 보유 변화 키를 사용하면 첫 번째 사진과 마지막 사진을 클릭하여 인접한 여러 사진을 선택할 수 있습니다.

문서 여러 그림 삽입 OneNote 032

3. 프레스 Ctrl 키 + A 키를 눌러 OneNote에 삽입 된 모든 그림을 선택한 다음 Ctrl 키 + C 키를 복사합니다.

4. Excel에서 워크 시트로 이동하고 Ctrl 키 + V 키를 눌러 워크 시트에 그림을 붙여 넣습니다. 이제 모든 사진이 왼쪽 스크린 샷과 같이 세로로 붙여 넣어집니다.

5. 사진 중 하나를 선택하고 Ctrl 키 + A 키를 모두 선택합니다. 그런 다음 양쪽에 새 번호를 입력하여 사진의 크기를 대량으로 조정합니다. 높이 상자에 크기 그룹에 형성 탭. 스크린 샷보기 :

이제 지정된 모든 그림이 Excel에 삽입되고 대량으로 동일한 크기로 크기가 조정됩니다.


VBA 코드를 사용하여 Excel에 여러 그림 삽입

다음 VBA 코드를 사용하면 여러 그림을 셀 단위로 Excel 파일에 삽입 할 수 있습니다.

1. 그림을 삽입 할 대상 범위의 첫 번째 셀을 선택하십시오.

2. 누르고 ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 매크로를 모듈 창.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. 그런 다음 F5 이 코드를 실행하는 키입니다.

5. 열기 대화 상자에서 삽입 할 그림이있는 폴더를 열고 삽입 할 그림을 여러 개 선택한 다음 엽니다 단추. 그리고 선택한 모든 그림을 셀 크기에 따라 선택 항목으로 가져 왔습니다. 스크린 샷보기 :


Excel 용 Kutools로 여러 그림을 삽입하고 자동 조정

Excel 용 Kutools사진 가져 오기 유틸리티를 사용하면 셀 크기 또는 그림 크기에 따라 Excel에 여러 그림을 빠르게 삽입 할 수 있습니다. 필요에 따라 그림의 높이와 너비를 지정할 수도 있습니다.

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

1. 딸깍 하는 소리 쿠툴즈 플러스 > 수입 수출 > 사진 가져 오기, 스크린 샷 참조 :

2. 에서 사진 가져 오기 대화 상자에서 다음과 같이하십시오.
(1) 사진의 표시 순서를 지정합니다. 수입 주문 드롭 다운 목록에서 선택할 수 있습니다. 셀 뒤에 세로로 셀 채우기 or 셀 뒤에 가로로 셀 채우기.
(2) 클릭 추가 버튼을 눌러 사진 목록에 사진을 추가 할 이미지 파일 또는 폴더를 선택합니다. 그리고 선택한 모든 사진이 목록 상자에 나열됩니다.
(3) 가져 오기 크기 단추;

3. 지금 사진 크기 가져 오기 대화 상자에서 필요에 맞는 사진 크기를 선택할 수 있습니다. 스크린 샷보기 :

4. 사진 크기를 지정한 후 클릭하세요 OK 이 대화 상자를 닫고 사진 가져 오기 대화 상자에서 수입 버튼을 눌러 이미지를 가져옵니다.

5. 새 사진 가져 오기 대화 상자에서 사진을 삽입 할 대상 범위의 첫 번째 셀을 선택하고 OK 버튼을 클릭합니다.

현재 선택한 모든 그림이 활성 셀에서 세로 또는 가로로 셀에 삽입되었습니다. 오른쪽 스크린 샷보기 :

또한 사진 가져 오기 Excel 용 Kutools의 기능은 Excel에서 일치하는 셀 크기, 지정된 크기 또는 그림의 자체 크기로 그림 배치를 동시에 삽입하도록 설계되었습니다. 무료 평가판을 받으십시오!


Excel 용 Kutools를 사용하여 이름과 일치하는 여러 그림 삽입

Excel 용 Kutools는 극적으로 가져 오기 사진 일치 그림과 셀 내용을 일치시키고 일치하는 그림을 Excel에서 대량으로 삽입하는 기능입니다.

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

1. 일치하는 그림을 삽입 할 그림 이름 셀을 선택하고 쿠툴즈 플러스 > 수입 수출 > 가져 오기 사진 일치. 스크린 샷 참조 :

2. 튀어 나온 일치 가져 오기 그림 대화 상자에서 다음과 같이하십시오.
(1) 사진의 표시 순서를 지정합니다. 수입 주문 드롭 다운 목록;
(2) 클릭 추가 버튼을 눌러 사진 목록 상자에 사진을 추가합니다. 참고로 일치하는 사진 만 나열됩니다.
(3) 그런 다음 가져 오기 크기 버튼을 클릭합니다.

3. 이제 사진 크기 가져 오기 대화 상자에서 필요에 맞는 사진 크기를 선택하고 Ok 단추. 스크린 샷보기 :

4. 이제 당신은 사진 가져 오기 대화 상자에서 수입 버튼을 눌러 이미지를 가져옵니다.

5. 그림 가져 오기 일치 대화 상자가 나타나면 그림을 삽입 할 대상 범위의 첫 번째 셀을 지정하고 OK 단추. 스크린 샷보기 :

지금까지 모든 그림은 상대 이름을 기준으로 셀에 삽입되었습니다. 오른쪽 스크린 샷보기 :

또한 가져 오기 사진 일치 Excel 용 Kutools의 기능을 사용하면 Excel 사용자가 셀 값을 기반으로 그림을 빠르게 필터링 한 다음 이러한 그림을 대량으로 삽입 할 수 있습니다. 또한 이러한 일치하는 그림은 지정된 크기 또는 셀 크기로 자동으로 크기를 조정할 수 있습니다. 무료 평가판을 받으십시오!


데모 : Excel에서 여러 그림을 삽입하고 한 번에 크기 조정

Excel 용 Kutools 300개 이상의 편리한 Excel용 도구가 포함되어 있으며 제한 없이 무료로 사용할 수 있습니다. 30 일. 지금 무료 평가판!      지금 구입!


관련 기사


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (47)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
제목이 있는 지침: VBA 코드를 사용하여 Excel에 여러 그림 삽입은 간단하고 빠르고 효과적입니다!!! 이것은 플러그인을 구매하고 설치하는 좋은 대안입니다. 이것은 내 첫 온라인 댓글입니다!! 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, InsertPictures 모듈을 사용할 수 있으며 jpg까지 제대로 작동합니다. 그러나 PNG에서는 작동하고 싶지 않습니다. 조언 부탁드려도 될까요? 안부, 로렌스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
첫 번째 항목 "VBA 코드를 사용하여 Excel에 여러 그림 삽입"에서 두 셀에 하나의 그림을 삽입하는 방법을 설명합니다. 예를 들어 첫 번째 그림은 셀 A1과 A2에 삽입되고 두 번째 그림은 셀 A3과 A4에 삽입되는 식입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel에 대한 좋은 지원.....당신 gyus는 시간 절약에 정말 도움이 됩니다. 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 포스트! 하지만 같은 일을 하는 다른 방법이 있습니다..... ==================================== ============= Sub ipic() Dim i를 정수로 I = 2 ~ 10 Cells(i, 1). Dim picname을 문자열로 선택 picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1").Select End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Mac용 Kuttools 버전이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
A4에 pic1, A1에 pic2, B2에 pic3, B1에 pic4와 같이 격자 모양의 패턴으로 2개의 그림을 삽입하도록 해당 vba 코드를 수정할 수 있습니까? 탱크!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 그것을하는 방법을 찾았습니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 수정된 코드를 공유해 주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Sub InsertPictures() '20140513 업데이트 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) 다음 xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Rng = Cells(xRowIndex, xColIndex) 설정 sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoCTrue, , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 다음 End If End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
병합된 열과 행을 삽입하는 코드를 수정하는 데 도움을 주시겠습니까? Sub InsertPictures() '20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Column If IsArray(PicList) then xRowIndex = Application.Act iveCell.Row For loLoop = LBound(PicList) To UBound(PicList) Rng = Cells(xRowIndex , xColIndex) 설정 sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 다음 End If End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
셀을 선택하고 필요에 따라 너비와 높이로 크기를 조정합니다. 11개의 사진이 있는 경우 20140513개의 셀을 선택하거나 더 많이 선택하세요.!! 그런 다음 Alt+F1을 누르고 삽입을 클릭한 다음 모듈을 클릭한 다음 다음 코드를 그대로 붙여넣습니다. Sub InsertPictures() 'Update 5 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList)를 UBound(PicList)로 설정 Rng = Cells( xRowIndex, xColIndex) sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) 설정 xRowIndex = xRowIndex + XNUMX Next End If End Sub AFTER 코드 위의 FXNUMX 키를 누릅니다. 그런 다음 컴퓨터에서 파일이 있는 곳을 선택합니다. 필요에 따라. 그런 다음 통합 문서를 저장하지 않으면 저장하라는 메시지가 표시됩니다. 이미 저장한 경우 . 그렇다면 UR 직업이 도움이 되기를 바랍니다. 알리..!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 EXcel Masters, 저는 엑셀 시트가 2개 있습니다. 40개 이상의 그림과 그 다음 셀에 있는 그림에 대한 설명이 있는 것. 선택 후 다른 시트에는 아마도 그것에 대한 XNUMX개의 설명이 남았을 것입니다. 내 선택에 따라 이 시트에 사진을 어떻게 전송할 수 있습니까? 고마워 알
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
또는 직접 image-xls 를 사용합니다. 이 Excel 추가 기능을 사용하면 무제한의 그림을 Excel 셀에 삽입하거나 주석으로 삽입할 수 있습니다. 그것은 또한 사진의 크기를 조정합니다. 그림을 포함하여 Excel 시트를 주문하고 필터링하는 것이 가능합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저는 Mac 사용자이고 코드를 새 모듈에 복사하고 실행하면 아무 일도 일어나지 않습니다. VBA 코드를 실행하기 위해 Mac에서 해야 할 일이 있습니까? 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용]또는 직접 image-xls 를 사용합니다. 이 Excel 추가 기능을 사용하면 무제한의 그림을 Excel 셀에 삽입하거나 주석으로 삽입할 수 있습니다. 그것은 또한 사진의 크기를 조정합니다. 그림을 포함하여 Excel 시트를 주문하고 필터링하는 것이 가능합니다!아르민[/인용] [인용] 제목이 있는 지침: VBA 코드를 사용하여 Excel에 여러 그림을 삽입하는 것은 정말 빠르고 효과적입니다!!! 이것은 플러그인을 구매하고 설치하는 좋은 대안입니다. 이것은 내 첫 온라인 댓글입니다!! 감사합니다!라훌 굽타[/인용] 나는 이것을 시도했고 잘 작동하는 것 같지만 사진을 포함한 Excel 목록을 주문하거나 필터링할 수 없습니다. 또한 사진은 비례하지 않습니다. 그래서 나는 image-xls를 샀다 - 약간의 비용이 들지만 내가 필요한 것은 다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요! Excel 2003에서 "Sub InsertPictures()"가 작동하지 않는 이유는 무엇입니까? 이미 Microsoft.Scripting.Runtime에 대한 참조를 추가했습니다. 미리 감사합니다 Gilberto
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것은 매우 도움이됩니다. 너무 좋은 작품입니다....... 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 스프레드시트에서 코드를 시도했는데 완벽하게 작동했습니다. 내가 필터를 하려고 할 때까지. 마지막 사진이 항상 필터 결과에 표시됩니다. 도와줄 수 있는 사람?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아래 VBA 프로그램을 사용하면 병합된 셀에 그림을 삽입할 수 없습니다. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Rng = Cells(xRowIndex, xColIndex) 설정 sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub VBA를 수정하도록 조언해 주십시오. .
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이야 여러분, 대단합니다! 나는 얼마 동안 당신의 튜토리얼을 따라 왔습니다. 당신이 저를 도울 수 있기를 바랐던 것은 이미지를 열 아래로 붙이던 것에서 행을 가로질러 붙이기를 어떻게 바꾸나요? 그리고 그 위의 행에 "전체 파일 이름(예: example_image.jpg)"을 추가하는 방법은 무엇입니까? 'A'행 : "Filename.jpg" 'B'행 : "이미지 축소판" 감사합니다!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이봐, 나는 내 자신의 VBE 코드를 사용하여 그림을 삽입했습니다. 그리고 지금 나는 그것을 다른 사람들과 공유하려고 노력했지만 불행히도 그들은 사진을 볼 수 없었습니다..... 누가 내가 무엇을 놓치고 있는지 말해 줄 수 있다면 감사할 것입니다. 감사해요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 ALMOST 내 필요에 맞게 작동합니다. 200개의 이미지가 있으며 각 이미지는 자체 시트에 있어야 합니다. 어떻게 해야 하나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
동일한 열의 연속 행에 있는 연속 셀이 아니라 여러 열과 행에 걸쳐 선택된 셀 범위에 그림이 채워지도록 다음 코드를 수정하려면 어떻게 해야 합니까? Sub InsertPictures() '20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Column If IsArray(PicList) then xRowIndex = Application.Act iveCell.Row For loLoop = LBound(PicList) To UBound(PicList) Rng = Cells(xRowIndex , xColIndex) 설정 sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 다음 End If End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Alguem conseguiu o codigo para a pergunta dele? 에스토 프레시산도 탐벰!
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호