使用VBA复制/粘贴多张图片(Excel到Outlook)

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的编程语言。它可以通过编写宏来自动化各种任务，包括在Excel中复制和粘贴多张图片到Outlook。

在Excel中复制/粘贴多张图片到Outlook，可以按照以下步骤进行操作：

首先，确保已经在Excel中插入了多张图片，并且这些图片位于不同的单元格中。
打开Visual Basic编辑器，可以通过按下Alt + F11快捷键来打开。
在Visual Basic编辑器中，插入一个新的模块。可以通过点击插入菜单，然后选择模块来完成。
在新的模块中，编写以下VBA代码：

Sub CopyPasteImages()
    Dim olApp As Object
    Dim olMail As Object
    Dim olInspector As Object
    Dim olSelection As Object
    Dim rng As Range
    Dim pic As Picture

    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建新邮件
    Set olMail = olApp.CreateItem(0)
    
    ' 显示邮件窗口
    olMail.Display
    
    ' 获取邮件窗口的选择对象
    Set olInspector = olMail.GetInspector
    Set olSelection = olInspector.WordEditor.Application.Selection
    
    ' 遍历Excel中的每个图片
    For Each rng In ActiveSheet.Pictures
        ' 复制图片
        rng.CopyPicture xlScreen, xlPicture
        
        ' 在邮件窗口中粘贴图片
        olSelection.Paste
        
        ' 插入一个空行
        olSelection.TypeParagraph
        
        ' 移动到下一行
        olSelection.MoveDown
    Next rng
    
    ' 释放对象
    Set olSelection = Nothing
    Set olInspector = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub