WIA Object : Image Rotate

Windows Image Acquisition (WIA) adalah model driver dan antarmuka pemrograman aplikasi (API) dari Microsoft yang memungkinkan fungsionalitas akuisisi dan manipulasi gambar dalam sistem operasi Windows

Salahsatu fungsi WIA yang akan kita bahas kali ini adalah untuk merotate gambar dengan memanfaatkan fungsi dari RotateFlip

List Respective Properties dari RotatFlip bisa dilihat dibawah ini.

RotateFlip    {FB912B7A-C57F-479C-9209-4895C1513F2D}
              RotationAngle
              FlipHorizontal
              FlipVertical
              FrameIndex

Salah satu properties yang akan digunakan untuk merotasi gambar adalah menggunakan RotationAngle, scriptnya seperti dibawah ini

Public Sub RotateImage(AlamatGmbr As String, RotDeg As Long)

'-----------------------------------------
' Sctipt VBA    : WIA Image Rotate
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------

Dim oIF As Object
Dim OIP As Object

Set oIF = CreateObject("WIA.ImageFile")
Set OIP = CreateObject("WIA.ImageProcess")

OIP.Filters.Add OIP.FilterInfos("RotateFlip").FilterID
OIP.Filters(1).Properties("RotationAngle") = RotDeg

oIF.LoadFile AlamatGmbr 
Set oIF = OIP.Apply(oIF)

Kill AlamatGmbr 
oIF.saveFile AlamatGmbr 

End Sub

Untuk Contoh penggunaanya

RotateImage LokasiGambar, 90