高手帮解决一下这个FOR环出错了？

咸味

Sub SH()
  Dim C As Range, SH As Shape ' 定义单元格对象 定义图片对象
  Dim f%, k%, t%, b$

  f = ActiveCell.Column
  k = f - 1
  
   For t = 1 To ActiveSheet.Shapes.Count   

        b = C(t, k).Value   
        C(t, f).CopyPicture
          With ActiveSheet.ChartObjects.Add(0, 0, C.Width, C.Height).Chart
            .Paste
            .Export "E:\图片\" & b & ".jpg", "JPG"
            .Parent.Delete
          End With
       Next
   
End Sub

咸味

呵呵！刚看到理想哥帮某网友解决的求助贴！思路突然开了！山不过来我过去！问题已经解决！谢谢关注此贴的网友高手！