返回列表 上一主題 發帖

EXCEL QRcode or 條碼

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2024-9-13 23:29 | 顯示全部帖子
圖片無法顯示出來？是什麽原因？
另外如果在中國地區，無法登入GOOGLE 有什麽辦法可以取 ...
198188 發表於 2024-9-13 12:53

那個網址好像不能用了,
你試試改用這個看看 :

https://api.excelapi.org/other/qrcode?text=
  1. Function QR_Code(Target As Range, MyURL As String)
  2. MyURL = "abc"
  3. With ActiveSheet
  4. For Each pic In .Shapes
  5.    If pic.TopLeftCell.Address = Target.Address Then pic.Delete
  6. Next
  7.   With .Pictures.Insert("https://api.excelapi.org/other/qrcode?text=" & MyURL)
  8.   .Top = Target.Top
  9.   .Left = Target.Left
  10.   End With
  11. End With
  12. End Function
複製代碼
QR_Code-2.zip (15.19 KB)

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題