No third-party plugins or messy workarounds required—we’ll use Windows Image Acquisition (WIA) (a built-in Windows system component) and Office’s native object models to handle rotation, cropping, scaling, and flipping for JPEGs and other common image formats directly in VBA.

1. Rotate a Local JPEG (or Image File) #

WIA makes standard rotation (90/180/270 degrees) dead simple. This example loads a JPEG, rotates it, and saves the result to a new file:

Sub RotateJPEG(ByVal sourcePath As String, ByVal destPath As String, ByVal rotationDegrees As Integer)
    Dim img As Object
    Set img = CreateObject("WIA.ImageFile")
    
    ' Load the source image
    img.LoadFile sourcePath
    
    ' Apply rotation (WIA only supports 90/180/270 increments)
    Select Case rotationDegrees
        Case 90: img.Rotate = 1
        Case 180: img.Rotate = 2
        Case 270: img.Rotate = 3
        Case Else: MsgBox "Rotation must be 90, 180, or 270 degrees", vbExclamation
    End Select
    
    ' Save the rotated image
    img.SaveFile destPath
    
    Set img = Nothing
    MsgBox "Image rotated successfully!", vbInformation
End Sub

' Example usage:
' RotateJPEG "C:\MyPhotos\source.jpg", "C:\MyPhotos\rotated_90.jpg", 90

2. Crop a Local Image #

Define a pixel-based rectangular region to crop from your source image:

Sub CropImage(ByVal sourcePath As String, ByVal destPath As String, _
              ByVal cropLeft As Long, ByVal cropTop As Long, _
              ByVal cropWidth As Long, ByVal cropHeight As Long)
    Dim img As Object
    Dim cropRegion As Object
    
    Set img = CreateObject("WIA.ImageFile")
    img.LoadFile sourcePath
    
    ' Define the area to keep
    Set cropRegion = CreateObject("WIA.Rectangle")
    cropRegion.Left = cropLeft
    cropRegion.Top = cropTop
    cropRegion.Width = cropWidth
    cropRegion.Height = cropHeight
    
    ' Apply crop and save
    img.Pictures(1).Crop cropRegion
    img.SaveFile destPath
    
    Set cropRegion = Nothing
    Set img = Nothing
    MsgBox "Image cropped successfully!", vbInformation
End Sub

' Example usage:
' CropImage "C:\MyPhotos\source.jpg", "C:\MyPhotos\cropped.jpg", 150, 150, 600, 400

3. Scale/Resize an Image #

Resize while optionally maintaining the original aspect ratio:

Sub ScaleImage(ByVal sourcePath As String, ByVal destPath As String, _
               ByVal newWidth As Long, ByVal newHeight As Long, _
               Optional ByVal maintainAspect As Boolean = True)
    Dim img As Object
    Dim origWidth As Long, origHeight As Long
    
    Set img = CreateObject("WIA.ImageFile")
    img.LoadFile sourcePath
    
    origWidth = img.Width
    origHeight = img.Height
    
    ' Calculate proportional dimensions if needed
    If maintainAspect Then
        If newWidth > 0 Then
            newHeight = (origHeight / origWidth) * newWidth
        ElseIf newHeight > 0 Then
            newWidth = (origWidth / origHeight) * newHeight
        End If
    End If
    
    ' Apply scaling
    img.Resize newWidth, newHeight
    
    ' Save resized image
    img.SaveFile destPath
    
    Set img = Nothing
    MsgBox "Image scaled successfully!", vbInformation
End Sub

' Example usage (resize to 800px wide, keep aspect ratio):
' ScaleImage "C:\MyPhotos\source.jpg", "C:\MyPhotos\scaled.jpg", 800, 0, True

4. Flip an Image (Horizontal/Vertical) #

Flip images along either axis with WIA's built-in effect:

Sub FlipImage(ByVal sourcePath As String, ByVal destPath As String, ByVal flipHorizontal As Boolean)
    Dim img As Object
    Dim flipEffect As Object
    
    Set img = CreateObject("WIA.ImageFile")
    img.LoadFile sourcePath
    
    Set flipEffect = CreateObject("WIA.FlipEffect")
    flipEffect.FlipHorizontal = flipHorizontal
    flipEffect.FlipVertical = Not flipHorizontal ' Set to True for vertical flip instead
    
    ' Apply flip and save
    img.Pictures(1).ApplyEffect flipEffect
    img.SaveFile destPath
    
    Set flipEffect = Nothing
    Set img = Nothing
    MsgBox "Image flipped successfully!", vbInformation
End Sub

' Example usage (horizontal flip):
' FlipImage "C:\MyPhotos\source.jpg", "C:\MyPhotos\flipped.jpg", True

Handling Embedded Images (Excel/Access) #

If you need to manipulate images already inserted into an Excel worksheet or Access form/report, use Office's native Shape or Image controls:

Rotate an Embedded Excel Image #

Sub RotateEmbeddedExcelImage()
    Dim targetShape As Shape
    ' Replace "Sheet1" and "Picture 1" with your worksheet and shape name
    Set targetShape = ThisWorkbook.Worksheets("Sheet1").Shapes("Picture 1")
    
    ' Rotate 90 degrees clockwise (adjust value as needed)
    targetShape.Rotation = targetShape.Rotation + 90
End Sub

Crop an Embedded Access Form Image #

Sub CropAccessFormImage()
    Dim targetImg As Access.Image
    ' Replace "Form1" and "Image1" with your form and control name
    Set targetImg = Forms("Form1").Controls("Image1")
    
    ' Set crop margins (left, top, right, bottom in twips)
    targetImg.PictureCrop = "1000,1000,1000,1000"
End Sub

Quick Notes: #

• WIA is supported on all modern Windows versions (XP and later) and requires no additional installations.
• For arbitrary rotation angles (e.g., 45 degrees), you’d need to use GDI+ APIs—let me know if you need that more advanced code!
• Always test macros on backup copies of your images first to avoid accidental data loss.

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