批量复制图片并移动到指定文件夹的宏代码

批量复制图片并移动到指定文件夹的宏代码通常用于Microsoft Office程序，如Excel或Word中，它涉及到VBA（Visual Basic for Applications）。以下是一个简单的例子，假设我们是在Excel中操作：

Sub CopyAndMoveImages()
    Dim rng As Range '范围对象，包含要复制的图片
    Dim imgPath As String '图片路径变量
    Dim targetFolder As String '目标文件夹路径

    '设置目标文件夹路径
    targetFolder = "C:\Users\YourUsername\Pictures\" '将"YourUsername"替换为你实际的用户名

    '选择含有图片的单元格区域
    Set rng = Selection.SpecialCells(xlCellTypePicture)

    '遍历每个选中的图片
    For Each cell In rng.Cells
        imgPath = cell.Picture.Path '获取图片路径
        '复制图片
        ActiveSheet.Pictures(cell).Copy PicturesDestination:=targetFolder '复制到目标文件夹
        '删除原位置的图片（可选）
        cell.Picture.Delete '如果你不想保留源位置的图片，可以加上这一行
    Next cell

    MsgBox "所有图片已成功复制并移动至指定文件夹", vbInformation
End Sub

运行此宏前，请确保已在Excel的开发者选项卡启用宏，并将其保存为具有.vbext后缀名的个人宏工作簿。