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

198188

下載 (65.7 KB)

2024-9-13 12:58

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

luhpro

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

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

198188

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

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

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

xyz66217

看起來自已下載 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

198188

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

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

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

luhpro

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

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

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

下載 (60.92 KB)

2024-9-18 23:15

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

下載 (40.65 KB)

2024-9-18 23:16

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

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

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

複製代碼

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

1. ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1").Object.Value = Range("A1").Value

複製代碼

會直接跳出訊息 :

下載 (59.73 KB)

2024-9-18 23:17

按下 "繼續" 按鈕後就關閉並還原了 :

下載 (48.45 KB)

2024-9-18 23:17

>> 我試過 For I = 2 To 2 結果一樣

這個問題導致Excel 檔案故障開不了另存了好幾個新檔後,
才發現是因為這一行的原因 :

1. Selection.Verb Verb:=xlOpen

複製代碼

你把這行拿掉再試試看吧.....
.
實在試不下去了,
Excel 檔案嚴重錯誤重開重存修復好幾次,
不知道是不是版本的關係......

198188

你提供的檔案裡找不到 : Sub create_all_qrcode(),
找了一下最相近的應該是 : Sub QRCODE(),
姑且以此 ...
luhpro 發表於 2024-9-18 23:15

不好意思，模組1是我自己錄製測試，不是真正的程式，忘記上傳前刪掉。
模組2才是真正的程式，現在重新上傳。

xyz66217

回復 7# 198188

供參考 :)
https://moon-half.info/p/1863