WPS插入图片方法在部分电脑失效

XuHeng925

需求
在wps中用vba插入二维码图片，实现思路是写了一个函数，把二维码文本和尺寸等信息传给这个函数，然后函数去qrserver服务去生成二维码图片，然后把返回的二维码图片插入到指定的单元格。

问题
插入图片在一些电脑可行，在另外一些电脑失效。

过程
pictures.insert方法失效
刚开始我先是用了pictures.insert方法，这个方法在一些电脑成功了，但是在另外一些电脑报错，报错信息是：


以下是我的用pictures.insert的代码

1. 
   
2. Sub GenQRCode(ByVal data As String, ByVal color As String, ByVal bgcolor As String, ByVal size As Integer, sht As Worksheet, rng As Range)
   
3. 
   
4. On Error Resume Next
   
5. 
   
6.     For i = 1 To sht.Shapes.Count
   
7.         If sht.Shapes(i).Name = "QRCode" Then
   
8.             sht.Shapes(i).Delete
   
9.             Exit For
   
10.         End If
    
11.     Next i
    
12. 
    
13.     surl = "https://api.qrserver.com/v1/create-qr-code/?" + "size=" + Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + "&bgcolor=" + bgcolor + "&data=" + data
    
14.       
    
15.     Debug.Print surl
    
16. 
    
17.     sht.Pictures.Insert(sURL + sParameters).Select
    
18.    
    
19.     With selection
    
20.         .Name = "QRCode"
    
21.         .Left = rng.Left
    
22.         .Top = rng.Top
    
23.         .Placement = xlMoveAndSize
    
24.     End With
    
25. 
    
26. End Sub

复制代码

Shapes.AddShape.Fill方法失效
因为是WPS，所以我没有在外网搜解决办法，百度了一下发现这里有人遇到类似的问题，里面提到的解决思路是先添加形状，然后在形状中添加图片。于是我也尝试了这个思路，在一些电脑也跑成功了，但是在另外一些电脑（和上面那些不行的电脑是一拨）却只添加了形状但是图片没过来。





以下是用Shapes.AddShape.Fill的代码：

1. 
   
2. Sub GenQRCode(ByVal data As String, ByVal color As String, ByVal bgcolor As String, ByVal size As Integer, sht As Worksheet, rng As Range)
   
3. 
   
4. On Error Resume Next
   
5. 
   
6.     For i = 1 To sht.Shapes.Count
   
7.         If sht.Shapes(i).Name = "QRCode" Then
   
8.             sht.Shapes(i).Delete
   
9.             Exit For
   
10.         End If
    
11.     Next i
    
12. 
    
13.     surl = "https://api.qrserver.com/v1/create-qr-code/?" + "size=" + Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + "&bgcolor=" + bgcolor + "&data=" + data
    
14.       
    
15.     Debug.Print surl
    
16.    
    
17.     sht.Shapes.AddShape(msoShapeRectangle, 40, 80, 40, 40).Fill.UserPicture (surl)
    
18. 
    
19.     With sht.Shapes(sht.Shapes.Count)
    
20.         .Name = "QRCode"
    
21.         .Left = rng.Left
    
22.         .Top = rng.Top
    
23.         .Placement = xlMoveAndSize
    
24.     End With
    
25. 
    
26. End Sub

复制代码

XuHeng925

换了个思路解决了：先用http把图片下载到本地，然后用shape add picture从本地把图片插入到电子表