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)

樓主熱帖

xyz66217

中學生 Rank: 2

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

8^#

發表於 2024-9-27 14:00 | 只看該作者

回復 7# 198188

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

TOP

198188

高中生 Rank: 3 Rank: 3

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

7^#

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

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

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

barcode1.rar (29.85 KB)

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

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

複製代碼

會直接跳出訊息 :

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

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

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

Selection.Verb Verb:=xlOpen

複製代碼

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

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

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)