是否可以使用VBA在Excel中选择图像并将其打印为PDF

Sub PrintImageToPDF()
    Dim imageName As String
    Dim pdfName As String
    
    ' 选择图像文件
    imageName = Application.GetOpenFilename("Images (*.jpg;*.jpeg;*.png;*.bmp),*.jpg;*.jpeg;*.png;*.bmp")
    
    ' 如果选择了图像文件
    If imageName <> False Then
        ' 设置PDF文件的保存路径和文件名
        pdfName = "C:\path\to\save\file.pdf"
        
        ' 创建新的工作簿
        Workbooks.Add
        
        ' 将图像插入到工作簿中
        With ActiveSheet.Pictures.Insert(imageName)
            ' 调整图像的大小和位置
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Width = 500
            .ShapeRange.Height = 500
            .ShapeRange.Left = 50
            .ShapeRange.Top = 50
        End With
        
        ' 保存工作簿为PDF文件
        ActiveSheet.ExportAsFixedFormat xlTypePDF, pdfName
        
        ' 关闭工作簿
        ActiveWorkbook.Close SaveChanges:=False
    End If
End Sub