Question

求助，网上摘的excel VBA代码在2013版本中执行不了，要怎么修改？

目的是将excel中已有的url图片链接直接转化为图片，从网上摘了下面这段代码，但是执行的时候提示“错误1004，不能取得类Pictures的Insert属性”，貌似是因为代码是2003的，2013里面用不了，求高手帮忙修改！
代码如下：
Sub Test2()
Dim Rng As Range
Dim Cell As Range
Dim Pic As Picture
Application.ScreenUpdating = False
Set Rng = Range("C1:C" & Range("c" & Rows.Count).End(xlUp).Row)
For Each Cell In Rng
With Cell
Set Pic = .Parent.Pictures.Insert(.Value)
With .Offset(, -1)
Pic.Top = .Top
Pic.Left = .Left
Pic.Height = .Height
Pic.Width = .Width
End With
End With
Next Cell
Application.ScreenUpdating = True
End Sub

Answer 1

Sub Test2()
    Dim Rng As Range
   Dim Cell As Range
   Dim Pic As Picture
   Dim Pat as String‘这里修改成一下
    Application.ScreenUpdating = False
   Pat = "D:\我的桌面\我的照片.jpg"'这里修改成你的图片所存放的路径
    Set Rng = Range("C1:C" & Range("c" & Rows.Count).End(xlUp).Row)
    For Each Cell In Rng
        With Cell
            Set Pic = .Parent.Pictures.Insert(Pat)‘这里修改成一下
            With .Offset(, -1)
                Pic.Top = .Top
                Pic.Left = .Left
                Pic.Height = .Height
                Pic.Width = .Width
            End With
        End With
    Next Cell
    Application.ScreenUpdating = True
End Sub

这样应该就可以了

Answer 2

代码没有错，检查c列数据是否是完整的图片路径，且从第一行到最后一行中间没有空格