如何使用 VBA 更改二维码的高度和宽度？

大佬教程收集整理的这篇文章主要介绍了如何使用 VBA 更改二维码的高度和宽度？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决如何使用 VBA 更改二维码的高度和宽度？？

开发过程中遇到如何使用 VBA 更改二维码的高度和宽度？的问题如何解决？下面主要结合日常开发的经验，给出你关于如何使用 VBA 更改二维码的高度和宽度？的解决方法建议，希望对你解决如何使用 VBA 更改二维码的高度和宽度？有所启发或帮助；

我从这个链接获得了这个二维码生成器 QR Code Generator

并根据我的要求对其进行了修改。 （但不想在这里提到它，因为它是不必要的）

一切正常，但我无法像图片一样调整生成的 QR 码的大小。因为生成的二维码有点小。

最糟糕的是，每次通过输入框手动选择单元格范围非常烦人。

一切都应该一键完成。

我的代码如下。

Sub setQR()

    On Error Resume Next

    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjolE As oLeobject
    
    Set xSRg = Application.inputBox("Please SELEct the cell you will create QR code based on","Choose Cell",10)
    
    If xSRg Is nothing Then Exit Sub
    Set xRRg = Application.inputBox("SELEct a cell to place the QR code",10)
    
    If xRRg Is nothing Then Exit Sub
    Application.Screenupdating = false
       
    Set xObjolE = ActiveSheet.oLeobjects.Add("barCODE.barCodeCtrl.1")
    xObjolE.object.Style = 11

    xObjolE.object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjolE.Name).copy
    ActiveSheet.Paste xRRg
    xObjolE.delete
    Application.Screenupdating = True

End Sub

二维码的数据源是Sheet1.Range("N3")

和二维码目的地是Sheet1.Range("P20")

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的如何使用 VBA 更改二维码的高度和宽度？全部内容，希望文章能够帮你解决如何使用 VBA 更改二维码的高度和宽度？所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。