- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
7#
發表於 2024-9-13 23:29
| 只看該作者
圖片無法顯示出來?是什麽原因?
另外如果在中國地區,無法登入GOOGLE 有什麽辦法可以取 ...
198188 發表於 2024-9-13 12:53 
那個網址好像不能用了,
你試試改用這個看看 :
https://api.excelapi.org/other/qrcode?text=- Function QR_Code(Target As Range, MyURL As String)
- MyURL = "abc"
- With ActiveSheet
- For Each pic In .Shapes
- If pic.TopLeftCell.Address = Target.Address Then pic.Delete
- Next
- With .Pictures.Insert("https://api.excelapi.org/other/qrcode?text=" & MyURL)
- .Top = Target.Top
- .Left = Target.Left
- End With
- End With
- End Function
複製代碼
QR_Code-2.zip (15.19 KB)
|
|