IP.Filters(1).Properties('FlipVertical') = Not Horizontal IP.Filters(1).Properties('FlipHorizontal') = Horizontal IP.Filters(1).Properties('RotationAngle') = degreesRotateįlip Sub imgFlip(inFile As String, outFile As String, Optional Horizontal As Boolean = True) IP.Filters.Add IP.FilterInfos('RotateFlip').filterid 'setup filter

Set IP = CreateObject('WIA.ImageProcess') Set Img = CreateObject('WIA.ImageFile') 'create WIA objects Rotate Sub imgRotate(inFile As String, outFile As String, degreesRotate As Long) '90, 180, 270 These procedures are all fairly self-explanatory and are ready to copy/paste as-is (no references required.) These subs were tested in Access & Excel 2016 on Windows 7. Here are the four most common actions Crop, Flip, Rotate and Resize (more to come) I'll save you scrolling through my dialogue by starting with the code. It provides all of the functionality used by Microsoft Paint, Windows Fax & Scan, and the former Windows Camera & Scanner Wizard.WIA is surprisingly intuitive. The Windows Image Acquisition API (WIA) is an ideal solution in this case.

How to flip a jpeg image