如何获取PowerPoint幻灯片中粘贴图片的具体格式（PNG/JPG等）

你的原代码仅能判断选中对象是图片类型（msoPicture），无法区分PNG/JPG等具体格式。以下提供两种可行方案：

方案1：利用PictureFormat.FileFormat属性 #

通过Shape对象的PictureFormat.FileFormat属性获取图片格式枚举值，再转换为易读的格式名称：

Sub GetImageFormat()
    Dim osh As Shape
    Set osh = ActiveWindow.Selection.ShapeRange(1)
    
    ' 先判断是否为图片形状
    If osh.Type = msoPicture Then
        Dim picFormat As PpPictureFormat
        picFormat = osh.PictureFormat.FileFormat
        
        Dim formatName As String
        ' 匹配枚举值对应的格式名称
        Select Case picFormat
            Case ppPictureFormatBMP: formatName = "BMP"
            Case ppPictureFormatJPEG: formatName = "JPG/JPEG"
            Case ppPictureFormatPNG: formatName = "PNG"
            Case ppPictureFormatGIF: formatName = "GIF"
            Case ppPictureFormatTIFF: formatName = "TIFF"
            Case ppPictureFormatEMF: formatName = "EMF"
            Case ppPictureFormatWMF: formatName = "WMF"
            Case Else: formatName = "未知格式"
        End Select
        
        MsgBox "图片格式: " & formatName
    Else
        MsgBox "选中的不是图片形状"
    End If
End Sub

优点：代码简洁、执行速度快；局限性：部分剪贴板粘贴的无原始文件信息的图片，可能无法返回准确格式。

方案2：读取图片文件头判断格式 #

通过临时导出图片，读取文件头字节来判断格式，准确性更高：

Sub GetImageFormatByHeader()
    Dim osh As Shape
    Dim tempPath As String
    Dim fileNum As Integer
    Dim headerBytes(0 To 3) As Byte
    Dim formatName As String
    
    Set osh = ActiveWindow.Selection.ShapeRange(1)
    If osh.Type <> msoPicture Then
        MsgBox "选中的不是图片形状"
        Exit Sub
    End If
    
    ' 生成临时文件路径
    tempPath = Environ("TEMP") & "\temp_image_check.tmp"
    
    ' 以原始格式导出图片
    osh.Export tempPath, ppShapeFormatOriginal
    
    ' 读取文件前4个字节
    fileNum = FreeFile()
    Open tempPath For Binary Access Read As #fileNum
    Get #fileNum, , headerBytes
    Close #fileNum
    
    ' 根据文件头特征判断格式
    Select Case True
        Case headerBytes(0) = &HFF And headerBytes(1) = &HD8: formatName = "JPG/JPEG"
        Case headerBytes(0) = &H89 And headerBytes(1) = &H50 And headerBytes(2) = &H4E And headerBytes(3) = &H47: formatName = "PNG"
        Case headerBytes(0) = &H42 And headerBytes(1) = &H4D: formatName = "BMP"
        Case headerBytes(0) = &H47 And headerBytes(1) = &H49 And headerBytes(2) = &H46 And headerBytes(3) = &H38: formatName = "GIF"
        Case headerBytes(0) = &H49 And headerBytes(1) = &H49 And headerBytes(2) = &H2A And headerBytes(3) = &H0 Or _
             headerBytes(0) = &H4D And headerBytes(1) = &H4D And headerBytes(2) = &H0 And headerBytes(3) = &H2A: formatName = "TIFF"
        Case Else: formatName = "未知格式"
    End Select
    
    MsgBox "图片格式: " & formatName
    
    ' 删除临时文件
    Kill tempPath
End Sub

优点：不受PPT内部属性限制，判断更准确；局限性：需要生成临时文件，执行步骤稍多。

内容的提问来源于stack exchange，提问作者Miguel de las Nieves