使用vba 写入一个 excel 加载项 实现图片批量导出 按某一列批量导入图片

可以使用 VBA 的 Excel 对象模型来编写一个加载项来实现这个功能。

首先，我们需要创建一个菜单项，用于触发图片批量导出和导入的功能。在 Excel 中，可以通过添加一个自定义 Ribbon 来实现此目的。

以下是一个基本的 VBA 代码示例，用于创建一个自定义 Ribbon 和菜单项：

' 定义一个 Ribbon XML 字符串，用于创建自定义 Ribbon
Const ribbonXml As String = "<customUI xmlns='http://schemas.microsoft.com/office/2009/07/customui'>" & _
    "<ribbon><tabs><tab id='customTab' label='My Tools'>" & _
    "<group id='customGroup' label='Image Tools'>" & _
    "<button id='exportImagesButton' label='Export Images' size='large' onAction='ExportImages' imageMso='ExportExcel'/>" & _
    "<button id='importImagesButton' label='Import Images' size='large' onAction='ImportImages' imageMso='ImportExcel'/>" & _
    "</group></tab></tabs></ribbon></customUI>"

' 在加载项启动时创建自定义 Ribbon
Private Sub Workbook_Open()
    ' 创建一个自定义 Ribbon
    Call RibbonX.Create(ribbonXml)
End Sub

以上代码会在加载项打开时创建一个自定义 Ribbon，其中包含一个名为“Image Tools”的菜单组，其中包含两个菜单项：“Export Images”和“Import Images”。

接下来，我们需要编写菜单项的处理程序，以实现图片批量导出和导入的功能。

以下是一个示例代码，用于实现图片批量导出的功能：

' 处理“Export Images”菜单项的单击事件
Private Sub ExportImages(control As IRibbonControl)
    ' 获取当前活动的工作表
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 定义图片保存目录
    Dim folderPath As String
    folderPath = Application.GetSaveAsFilename("", "JPEG Files (*.jpg), *.jpg")
    
    ' 获取要导出的图片列
    Dim imageColumn As Range
    Set imageColumn = Application.InputBox("Please select the column containing image names", Type:=8)
    
    ' 循环处理每个单元格
    Dim cell As Range
    For Each cell In imageColumn.Cells
        ' 跳过空单元格
        If IsEmpty(cell.Value) Then GoTo NextCell
        
        ' 获取图片文件名
        Dim imageName As String
        imageName = cell.Value & ".jpg"
        
        ' 获取图片对象
        Dim image As Shape
        Set image = ws.Shapes(imageName)
        
        ' 保存图片为 JPEG 文件
        image.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        Dim savePath As String
        savePath = folderPath & imageName
        With New MSForms.DataObject
            .SetData image
            .PutInClipboard
            With New MSForms.DataObject
                .GetFromClipboard
                .SaveAsFile savePath
            End With
        End With
        
NextCell:
    Next cell
End Sub

以上代码会展示一个输入框，提示用户选择包含图片文件名的列，然后将该列中每个单元格中的图片导出为 JPEG 文件。

而以下是一个示例代码，用于实现图片批量导入的功能：

' 处理“Import Images”菜单项的单击事件
Private Sub ImportImages(control As IRibbonControl)
    ' 获取当前活动的工作表
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 定义图片目录
    Dim folderPath As String
    folderPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
    
    ' 获取要导入图片的列
    Dim imageColumn As Range
    Set imageColumn = Application.InputBox("Please select the column to insert images", Type:=8)
    
    ' 循环处理每个单元格
    Dim cell As Range
    For Each cell In imageColumn.Cells
        ' 跳过空单元格
        If IsEmpty(cell.Value) Then GoTo NextCell
        
        ' 获取图片文件名
        Dim imageName As String
        imageName = cell.Value & ".jpg"
        
        ' 插入图片
        Dim image As Shape
        Set image = ws.Shapes.AddPicture(folderPath & imageName, msoFalse, msoTrue, cell.Left, cell.Top, -1, -1)
        image.Name = imageName
        
NextCell:
    Next cell
End Sub

以上代码会展示一个输入框，提示用户选择包含要插入图片的列，然后将该列中每个单元格中的图片文件插入到工作表中。