엑셀 시트에 이미지를 자동으로 넣으십시오.

Question

엑셀 시트에 이미지를 자동으로 삽입하고 싶습니다.

예를 들어 난 2

이 가능이 후, 열 B 행의 이미지를로드 할

2 /pictures/example-file.jpg 열 B 행의 이미지로 표시하고자 또는 할 수없는 것을 위해 노력하고 있습니다.

감사 마이크

Answer 1

말은 세포 B9 같은 전체 스펙이 포함

C를 : \ TestFolder \ sample.jpg 일

다음과 같이하십시오 :

Sub qwertyuiop() 
    Dim MyLogo As Shape 
    MyFileAndPath = Range("B9").Value 
    ActiveSheet.Shapes.AddPicture MyFileAndPath, msoFalse, msoTrue, 100, 100, 70, 70 
End Sub 

을

이로드됩니다.

수정 # 1 :이 링크가 B1B1700를 통해와 사진 열 링크 옆에에 저장됩니다 세포에 저장되어 있다고 가정

Sub PicturePopulator() 
    Dim B As Range, r As Range, a As Range, _ 
     t As Long, l As Long, w As Long, h As Long 
    Set B = Range("B1:B1700") 
    For Each r In B 
     If r.Value <> "" Then 
      MyFileAndPath = r.Value 
      Set a = r.Offset(0, -1) 
      t = a.Top 
      l = a.Left 
      h = a.Height 
      w = a.Width 
      ActiveSheet.Shapes.AddPicture MyFileAndPath, msoFalse, msoTrue, l, t, w, h 
     End If 
    Next r 
End Sub 

위치를 쉽게 수정할 수 있습니다.