vba를 이용하여 excel의 그림 링크를 그림으로 직접 변환합니다

Sub test()
Dim rg As Range, shp As Shape
Rem ---------------------------------------------------
Rem  
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
Rem ---------------------------------------------------
Rem  
Rem  ， A 
For I = 2 To Cells(Rows.Count, "A").End(3).Row
Set rg = Cells(I, "B")
Rem  ， 
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select
Rem  ， 
Selection.ShapeRange.Fill.UserPicture rg.Offset(0, -1).Value
Next
End Sub

Alt+F8을 눌러 매크로를 실행합니다.