Do you save the photos with the proper/desired orientation?
I found this link and code via Google
and tried it with this code
Code:
Sub testRotate()
'thanks to Daniel Pineault ...devhut
Dim inImage As String: inImage = "C:\users\jack\documents\MsgBox-VbaRef.png"
Dim outImage As String: outImage = "C:\users\jack\documents\MsgBox-VbaRef-OUT.png"
Call WIA_RotateImage(inImage, outImage, 90)
End Sub
Before image
After image
I also found this link that describes the various filters available with the Windows Image Acquisition (WIA) .