Change the active image DPI
I have used the following macro to change the image DPI values.
Public Sub SetDPI
Dim i As Integer, s As String
If ThisApplication.ActiveImage IsNot Nothing Then
i = .DotsPerInchX
s = InputBox("Enter new DPI value:", "Set DPI", i.ToString)
If Not String.IsNullOrEmpty(s) Then
If Integer.TryParse(s, i) AndAlso i > 0 Then
.DotsPerInchX = i
.DotsPerInchY = i
MsgBox("Invalid DPI value!")
The macro works (or seems to work) correctly but if I save the image (Tiff format) with the new DPI value (eg 1200 dpi) and reload it inside IPP7, the dpi reported are always set to 100 .