如何将Excel工作表中图片的名称转换为VBA变量

Sub ConvertImageNamesToVariables()
    Dim rng As Range
    Dim pic As Picture
    Dim i As Integer
    
    ' 设置图片名称的起始单元格范围
    Set rng = Range("A1:A10") ' 修改为实际的单元格范围
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 检查单元格是否包含图片
        If cell.Pictures.Count > 0 Then
            ' 遍历每个图片
            For Each pic In cell.Pictures
                ' 将图片名称作为VBA变量名
                i = i + 1
                Dim varName As String
                varName = "pic" & i ' 修改为适当的变量名前缀
                
                ' 将图片名称赋值给VBA变量
                ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString "Public " & varName & " As Picture"
                
                ' 将图片对象赋值给VBA变量
                ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString varName & " = " & cell.Pictures(1).Name
            Next pic
        End If
    Next cell
End Sub