Option ExplicitImplements IImportResampleHandlerPrivate Function IImportResampleHandler_Resample(Options As IStructImportResampleOptions) As Boolean Dim s As String s = "Original Settings: " & vbCr s = s & "DpiX: " & Options.DpiX & vbCr s = s & "DpiY: " & Options.DpiY & vbCr s = s & "FileName: " & Options.FileName & vbCr s = s & "Filter: " & Options.FilterID & vbCr ' Display the original settings in a message box MsgBox s ' If the custom data is set to 8, then resample half of the original; otherwise 1.5 If Options.CustomData = 8 Then Options.Height = Options.Height / 2 Options.Width = Options.Width / 2 Else Options.Height = Options.Height / 1.5 Options.Width = Options.Width / 1.5 End IfEnd Function