{quote}{login=LightZ}{date=17.06.2012 11:54}{thema=Открытие jpeg файлов}{post}В сети доступа на установку "левого_ПО" нет{/post}{/quote}Спасибо, EducatedFool.  
Но, к сожалению, у нас суровые сис.админы, которые заблочили всё что могли, даже юсб-порты :(

Сисадмины - это не злодеи, мешающие вам работать, а люди, которым платят за то, чтобы у вас всё работало.  
 
Вместо того, чтобы их бояться, и изобретать велосипеды, обратитесь к сисадминам (или к начальству со служебной запиской) с просьбой установить ПО для пакетной обработки фото  
 
И всё - через день у вас на компе будет готовая программа, идеально подходящая для ваших нужд.

Работает именно так как надо, даже в разы лучше чем история с Пэинтом.  
Пример: исходное фото, размер - 6,85мб, после форматирования - 0,212мб  
Т.е. размер уменьшился на 96,91%  
Супер, спасибо! :)  
 
Чуть дописал под свои нужды (2 кнопки на форме):  
 
Private Sub CommandButton1_Click() 'выбираем файлы  
   Dim Pict As Variant  
   With Application.FileDialog(msoFileDialogFilePicker)  
       .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1  
       .Show  
       For Each Pict In .SelectedItems  
           ActiveSheet.Pictures.Insert (Pict)  
       Next  
       MsgBox "Файлов успешно загружено: " & .SelectedItems.Count, vbInformation, "Information"  
   End With  
End Sub  
 
Private Sub CommandButton2_Click() 'удаляем все фото  
   Dim Foto As Shape  
   For Each Foto In ActiveSheet.Shapes  
       Foto.Delete  
   Next  
End Sub