VBA 草料二维码

youngkqs · 发表于 2018-9-22 11:23

本帖最后由 youngkqs 于 2018-9-22 11:29 编辑

各位大神好，我想调用草料二维码的二维码。代码如下，但是调用之后，总是空白的。

草料二维码接口地址：https://cli.im/api/

材料二维码网址：https://cli.im/

Sub 生成二维码()
Dim r As String
Dim RngY As Range
Set RngY = Range("B" & 1)
r = 生成二维码Fun(Range("A" & 1) & "20180922", RngY)
Range("A1").Select
End Sub
Function 生成二维码Fun(ByVal Str As String, ByVal Rng As Range)
批量删除条码
Dim i%, str1$, str2$, str3$, D As Object
Set D = New DataObject
Application.ScreenUpdating = False
str1 = "<table><img src=""https://cli.im/api/qrcode/code?text="
str2 = "&mhid=sELPDFnok80gPHovKdI"" > "
str3 = str3 & str1 & Str & str2 & Chr(10)
D.SetText str3
D.PutInClipboard
Rng.Select
ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False
Selection.ShapeRange.Height = 42
Application.ScreenUpdating = True
End Function
Sub 批量删除条码()
Dim myshape As Shape
Application.ScreenUpdating = False
For Each myshape In ActiveSheet.Shapes
If myshape.Type = msoPicture Then
myshape.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

youngkqs · 发表于 2018-9-22 11:23

敬期各位大神指导

zpy2 · 发表于 2018-9-22 12:46

img src="https://qr.api.cli.im/qr?data=%2F%2Fcli.im&level=H&transparent=0&bgcolor=%23FFFFFF&forecolor=http%3A%2F%2Fstatic-develop.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Ffg1.jpg&blockpixel=12&marginblock=2&logourl=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Flogo%2F01.png&size=400&text=&logoshape=no&fontsize=46&fontfamily=msyh.ttf&fontcolor=%23000000&incolor=&outcolor=%23368af4&background=http%3A%2F%2Fstatic.clewm.net%2Fcli%2Fimages%2Fbeautify%2Ftpl%2Fbg1.png&qrcode_eyes=&wper=0.86&hper=0.86&lper=0.07&tper=0.07&eye_use_fore=1&qrpad=10&kid=cliim&key=1d4951bb16ffd9e147fbf907eafd90fc"