关于生成Excel图片对象，VBA与VB的编写不同

最新推荐文章于 2022-06-11 21:16:33 发布

原创

最新推荐文章于 2022-06-11 21:16:33 发布 · 488 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vba #vb6

本文探讨了将日本人编写的VBA二维码生成工具移植到VB6.0的过程中，如何在VB6中创建COM组件，并展示了VBA原始代码与VB6正常调用的代码示例，强调了在VB6中需在模块申明公共变量Public excelapp As Excel.Application。

日本人VBA写的二维码生成工具，想移植到vb6.0，写com组件，不废话，直接上代码

vba原代码

Private m_fs As Object

Public Function QR(ByVal s As String, _
                   Optional ByVal charsetName As String = "Shift_JIS") As Variant
    If m_fs Is Nothing Then
        Set m_fs = CreateObject("Scripting.FileSystemObject")
    End If

On Error GoTo Catch
    If Not (TypeOf Application.Caller Is Range) Then Exit Function

    Dim rng As Range
    Set rng = Application.Caller.MergeArea
    Call DeleteShape(rng)

    If Len(s) = 0 Then Exit Function

    Dim sbls As Symbols
    Set sbls = CreateSymbols(charsetName:=charsetName)
    Call sbls.AppendText(s)

    Dim filePath As String
    filePath =  "D:\test.jpg" 
  
    Dim shp As Shape
    Set shp = AddPicture(filePath, rng)
    Call FillShape(shp, vbWhite)

    QR = ""

Finally:
On Error GoTo 0
    Exit Function
Catch:
    QR = CVErr(xlErrValue)
    Resume Finally
End Function

Private Function DeleteShape(ByVal Target As