麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 求救：爲何無法插入QR Code 圖片 [打印本頁]

作者: 198188 時間: 2024-9-13 13:02 標題: 求救：爲何無法插入QR Code 圖片

[attach]37882[/attach]

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

作者: luhpro 時間: 2024-9-15 22:27

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

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

作者: 198188 時間: 2024-9-16 10:33

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

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

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

作者: xyz66217 時間: 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

作者: 198188 時間: 2024-9-17 09:33

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

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

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

作者: luhpro 時間: 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. 你的程式少個點多個括弧 :
[attach]37904[/attach]

2. End Sub 底下也多一行指令 :
[attach]37905[/attach]

若直接從 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. 程式若跑單步執行到這一行

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

複製代碼

會直接跳出訊息 :
[attach]37906[/attach]

按下 "繼續" 按鈕後就關閉並還原了 :
[attach]37907[/attach]

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

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

Selection.Verb Verb:=xlOpen

複製代碼

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

作者: 198188 時間: 2024-9-19 09:33

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

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

作者: xyz66217 時間: 2024-9-27 14:00

回復 7# 198188

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)