Excel Userform中Image Control添加图片自动旋转问题求助

问题根源在于图片携带的EXIF方向元数据——Image Control会自动读取该元数据并旋转图片，而非保持原始像素的显示方向。调整控件设置无法解决，必须从图片本身的方向修正入手。

解决方案步骤 #

1. 读取图片的EXIF方向值

添加VBA函数获取图片的EXIF方向属性（属性ID为274，对应不同旋转角度）：

Private Function GetExifOrientation(imgPath As String) As Integer
    Dim objShell As Object, objFolder As Object, objFile As Object
    Dim propVal As Variant
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Left(imgPath, InStrRev(imgPath, "\")))
    Set objFile = objFolder.ParseName(Mid(imgPath, InStrRev(imgPath, "\") + 1))
    
    propVal = objFolder.GetDetailsOf(objFile, 274)
    GetExifOrientation = IIf(IsNumeric(propVal), CInt(propVal), 1) ' 1=正常方向
    
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
End Function

2. 根据EXIF方向旋转图片

利用WIA组件（Windows Image Acquisition）处理图片旋转，确保输出正确方向的图片：

Private Function RotateImageByExif(imgPath As String) As StdPicture
    Dim orientation As Integer
    Dim wiaImg As Object
    
    orientation = GetExifOrientation(imgPath)
    If orientation = 1 Then
        Set RotateImageByExif = LoadPicture(imgPath)
        Exit Function
    End If
    
    Set wiaImg = CreateObject("WIA.ImageFile")
    wiaImg.LoadFile imgPath
    
    Select Case orientation
        Case 3: wiaImg.Rotate 180 ' 旋转180度
        Case 6: wiaImg.Rotate 90  ' 顺时针旋转90度
        Case 8: wiaImg.Rotate 270 ' 逆时针旋转90度
    End Select
    
    Set RotateImageByExif = wiaImg.FileData.Picture
End Function

3. 在Userform中加载修正后的图片

将处理后的图片赋值给Image Control，替代直接加载原始图片：

Private Sub cmdLoadPicture_Click()
    Dim filePath As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "图片文件", "*.jpg;*.jpeg;*.png"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
            Set Me.Image1.Picture = RotateImageByExif(filePath)
            ' 可选：设置图片自适应控件
            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
        End If
    End With
End Sub

注意事项 #

• 确保Excel启用WIA组件：打开VBA编辑器 → 工具 → 引用 → 勾选「Windows Image Acquisition Library v2.0」
• 若WIA不可用，可改用GDI+ API实现旋转，但WIA是更轻量化的方案
• 控件的PictureSizeMode仅控制缩放方式，无法修正EXIF触发的旋转问题

内容的提问来源于stack exchange，提问作者Pasquale Prudente