在B列已有图片的链接地址，要在C列显示相应的图片，下面是代码

Sub 把B列图片链接在C列生成图片()
    '以第2-4行为例，设定单位格宽度（图片宽度）
    Columns("C:C").ColumnWidth = 36.22
    Rows("2:4").RowHeight = 150
    '插入图片（假设图都是4：3的，否则还涉及要取得原始尺寸，如果图小，可以直接把200，150改为-1，-1）
    For i = 2 To 4
        ActiveSheet.Shapes.AddPicture(Cells(i, 2).Value, msoCTrue, msoCTrue, Range("C" & i).Left, Range("C" & i).Top, 200, 150).AlternativeText = "Error"
    Next
End Sub