Можно:
objImageFile = Новый COMОбъект("WIA.ImageFile");//objImageFile
objImageProcess = Новый COMОбъект("WIA.ImageProcess");
objImageFile.LoadFile(ПутьКФото);
Коэффициент = objImageFile.Width/МаксимальныйРазмер;
НовоеГоризонтальноеРазрешение = objImageFile.Width / Коэффициент;
НовоеВертикальноеРазрешение = objImageFile.Height / Коэффициент;
objImageProcess.Filters.Add(objImageProcess.FilterInfos("Scale").FilterID);
objImageProcess.Filters.Item(1).Properties.Item("MaximumWidth").Value = НовоеГоризонтальноеРазрешение;
objImageProcess.Filters.Item(1).Properties.Item("MaximumHeight").Value = НовоеВертикальноеРазрешение;
objImageFile = objImageProcess.Apply(objImageFile);
objImageProcess.Filters.Add(objImageProcess.FilterInfos("Convert").FilterID);
objImageProcess.Filters(2).Properties("FormatID").Value = Формат;
objImageProcess.Filters(2).Properties("Quality").Value = Качество;
objImageFile = objImageProcess.Apply(objImageFile);
objImageFile.SaveFile(ИмяФайлаДляСохранения);
где МаксимальныйРазмер - это новая максимальная ширина твоего изображения в пикселях, тип Число
Качество - тип Число, от 0 до 100.