如何调整输入二维码的大小自适应

suyonghan96

感谢“yuanhongly”及“ddmc”无私分享，因要生成二维码到指定的表格image控件，但生成的二维码无法自适应大小，烦请各位帮忙解决，谢谢，如图如附件。


Private Sub Command1_Click()
    Dim b2() As Byte
    Dim s As String
    Dim i As Long, m As Long
   
        If Cmb1.ListIndex < 0 Then Exit Sub
        If Cmb2.ListIndex < 0 Then Exit Sub
        If CMB3.ListIndex < 0 Then Exit Sub
        If CMB4.ListIndex < 0 Then Exit Sub
    Select Case CMB4.ListIndex
        Case 1
        s = Text1.Text
        m = Len(s)
        i = m * 3 + 64
        ReDim b2(i)
        m = WideCharToMultiByte(CP_UTF8, 0, ByVal StrPtr(s), m, b2(0), i, ByVal 0, ByVal 0)
        Case Else
        s = StrConv(Text1.Text, vbFromUnicode)
        b2 = s
        m = LenB(s)
    End Select
    Set Image1.Picture = obj.Encode(b2, m, Cmb1.ListIndex, Cmb2.ListIndex + 1, CMB3.ListIndex - 1)
     ActiveSheet.OLEObjects("Image1").Object.Picture = obj.Encode(b2, m, Cmb1.ListIndex, Cmb2.ListIndex + 1, CMB3.ListIndex - 1)

End Sub

如下图：

02761752696

调整控件属性

suyonghan96

谢谢楼上的帮忙，二维码是变自适应了，但是不清楚，只有点击图片时变清楚，这是为什么呢。。。如下楼所示，第一张图是不点击时糊，图二点击时变清楚。

suyonghan96

不点击图片时糊

点击时变清楚

02761752696

suyonghan96 发表于 2022-12-28 13:17

应该是二维码分辨率的问题吧，我也不懂
我这边试了Image1控件插入图片正常

02761752696

suyonghan96 发表于 2022-12-28 13:17

刚下了你的程序，我这边无法运行，测试不了

suyonghan96

02761752696 发表于 2022-12-28 13:36
刚下了你的程序，我这边无法运行，测试不了

下载测试过，正常呀。

02761752696

suyonghan96 发表于 2022-12-28 13:57
下载测试过，正常呀。

可能我电脑的问题吧

suyonghan96

是不是Office版本2016/2019问题

suyonghan96

02761752696 发表于 2022-12-28 13:33
应该是二维码分辨率的问题吧，我也不懂
我这边试了Image1控件插入图片正常

奇怪的是点击这个二维码时跳动一下变清楚了。。。