网页链接插图报错，求老师帮帮忙

晨沐风

1. Sub 网页链接插图()
   
2. 'On Error Resume Next
   
3. Dim MR As Range
   
4. Application.ScreenUpdating = False
   
5. 
   
6. For Each MR In Selection
   
7.   If Not IsEmpty(MR) Then
   
8.     MR.Select
   
9.     ML = MR.Left + 1
   
10.     MT = MR.Top + 1
    
11.     MW = MR.Width - 2
    
12.     MH = MR.Height - 2
    
13. ActiveSheet.Shapes.AddPicture(MR.Value, msoCTrue, msoCTrue, ML, MT, MW, MH).AlternativeText = "Error"
    
14.    End If
    
15. Next
    
16. 
    
17. Application.ScreenUpdating = True
    
18. 
    
19. End Sub
    

复制代码

插图报错，之前还是好好的，今天突然就不行了，求老师救救孩子

LIUZHU

报错？不报错啊，你把鼠标选中单元格B5:B6，还报错吗？

LIUZHU

给一个WPSJS宏的方案，也可以

晨沐风

LIUZHU 发表于 2022-8-24 22:59
给一个WPSJS宏的方案，也可以

也不知道怎么回事，另外一台电脑也不报错，很奇怪，不知道是不是安装有问题