198188

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2024-9-13 13:02 | 只看該作者

[發問] 求救：爲何無法插入QR Code 圖片

之前是用 google api 來做QR code, 但是由於中國地區不能打開Google, 所以使用 Microsoft Barcode control 16.0 來做QR code.
但是用幾次就出現無法插入QR code 圖片。請問是什麽問題導致？

barcode1.rar (34.33 KB)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2024-9-15 22:27 | 只看該作者

之前是用 google api 來做QR code, 但是由於中國地區不能打開Google, 所以使用 Microsoft Barcode con ...
198188 發表於 2024-9-13 13:02

那個網址好像不能用了,
你可以考慮換一個網址,
請參考這一篇 :
EXCEL QRcode or 條碼
底下的 7#

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

3^#

發表於 2024-9-16 10:33 | 只看該作者

那個網址好像不能用了,
你可以考慮換一個網址,
請參考這一篇 :

底下的 7#
luhpro 發表於 2024-9-15 22:27

試過很多地址都不行，所以才使用Excel 内部的開發軟件，Miscrosoft BarCode Control 16.0, 剛剛開始的時候，還可以使用，但是運行幾次后，就會出現無法插入圖片這個問題。
一直找不出問題在哪裏。

TOP

xyz66217

中學生 Rank: 2

帖子: 16
主題: 2
精華: 0
積分: 66
點名: 85
作業系統: win7
軟體版本: excel
閱讀權限: 20
註冊時間: 2016-8-24
最後登錄: 2024-11-14

4^#

發表於 2024-9-17 09:21 | 只看該作者

看起來自已下載 Barcode 字型應該比較有效 (附件有下載的字型 Libre Barcode 128)

Sub Create_BarCode()
Dim K As Long, I As Long

K = ActiveSheet.Range("C65536").End(xlUp).Row
For I = 2 To K
Cells(I, 2) = Cells(I, 3)
Range("B" & I).Select
With Selection.Font
      .Name = "Libre Barcode 128 Text"
      .Size = 62
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ThemeColor = xlThemeColorLight1
      .TintAndShade = 0
      .ThemeFont = xlThemeFontNone
End With
With Selection
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlTop
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
End With
Next I
End Sub

000.JPG (100.33 KB)

Barcode file and font.zip (40.31 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-10-24

5^#

發表於 2024-9-17 09:33 | 只看該作者

看起來自已下載 Barcode 字型應該比較有效 (附件有下載的字型 Libre Barcode 128)

Sub Create_BarCode() ...
xyz66217 發表於 2024-9-17 09:21

謝謝前輩指導。
不過我的問題是　QR Code 不能插入，Bar Code 只是轉一下字體就可以，這個問題不大。
前輩有什麽好方法？

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

6^#

發表於 2024-9-18 23:15 | 只看該作者

本帖最後由 luhpro 於 2024-9-18 23:17 編輯

謝謝前輩指導。
不過我的問題是　QR Code 不能插入，Bar Code 只是轉一下字體就可以，這個問題不大 ...
198188 發表於 2024-9-17 09:33

你提供的檔案裡找不到 : Sub create_all_qrcode(),
找了一下最相近的應該是 : Sub QRCODE(),
姑且以此為嘗試的標的.

1. 你的程式少個點多個括弧 :

2. End Sub 底下也多一行指令 :

若直接從 QRCODE 這個 Sub 開始執行的話,

3. 底下這幾行因為會使用到你自己電腦的 OneDrive 內容, 所以其他人測不了:

ChDir "C:\Users\User\OneDrive - Innomet International Limited\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\User\OneDrive - Innomet International Limited\Desktop\barcode1.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

複製代碼

4. 程式若跑單步執行到這一行