在Excel表格中，用VBA编写一段批量导入照片的程序

在Excel中使用VBA编写批量导入照片的程序，你可以按照以下步骤操作：

1. 打开VBA编辑器：点击Excel菜单栏上的"开发者"选项，然后选择"Visual Basic"。

2. 创建新模块：在VBA窗口左侧，找到并双击"Module 1"或者其他空白区域，开始编写你的代码。

3. 导入图片：你可以使用`Application.GetOpenFilename`函数让用户选择需要导入的照片文件。示例如下：

Sub ImportPhotos()
    Dim FileName As String
    FileName = Application.GetOpenFilename("图片(*.jpg;*.jpeg;*.png),*.jpg;*.jpeg;*.png", , "选择图片")
    
    ' 如果用户选择了文件，则继续导入
    If FileName <> False Then
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为你想要保存图片的工作表名
        
        ' 定义图片位置和名称
        Dim PicRow As Long
        PicRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
        Dim picName As String
        picName = ws.Cells(PicRow, 1) ' 这里假设第一列用于存放图片名称

        ' 读取图片并插入到单元格
        ws.Pictures.AddPicture FileName, msoFalse, PicRow, 1 ' 将图片插入到指定行的第一列
        ws.Cells(PicRow, 1).Value = picName ' 更新图片名称
    End If
End Sub

4. 运行程序：保存代码后，在VBA编辑器中运行`ImportPhotos`宏即可导入图片。