Да, такая возможность есть.  
 
Пример можно поглядеть в этой теме:  
http://www.programmersforum.ru/showpost.php?p=435207&postcount=2  
 
 
Можно даже обрезать изображения перед вставкой:  
 
Private Sub test0982039482()  
   Dim cell As Range: Set cell = ActiveCell  
   Dim sh As Worksheet: Set sh = ActiveSheet  
   Dim filename As String, ph As Picture  
   filename = "C:\Documents and Settings\Игорь\Рабочий стол\img_1857716.jpg"  
   Set ph = ВставитьКартинку(cell, filename)  
   CropPicture ph, cell, 19, 12, 110, 6  
End Sub  
 
Function CropPicture(ByRef pic As Picture, ByRef cell As Range, _  
                    Optional ByVal CropLeft As Integer = 0, Optional ByVal CropRight As Integer = 0, _  
                    Optional ByVal CropTop As Integer = 0, Optional ByVal CropBottom As Integer = 0) As Shape  
 
   Dim sha As Shape: Set sha = pic.TopLeftCell.Worksheet.Shapes(pic.Name)  
   h = sha.Height: w = sha.Width  
   If CropTop Then sha.PictureFormat.CropTop = CropTop / 100 * h  
   If CropBottom Then sha.PictureFormat.CropBottom = CropBottom / 100 * h  
 
   If CropLeft Then sha.PictureFormat.CropLeft = CropLeft / 100 * w  
   If CropRight Then sha.PictureFormat.CropRight = CropRight / 100 * w  
   sha.Top = cell.Top: sha.Left = cell.Left  
   sha.Width = cell.Width: sha.Height = cell.Height  
End Function

Ваш последний пример (изображение) как раз то, что нужно. Речь идет о следующем: делаются фотографии объектов. Естественн, чтобы не путаться, каждый объект в свое папке. При этом фотки могут иметь разное разрешение (размер), и разное расположение (ландшафтная или вертикальн).    
Возможно ли автоматизаровать процеесс вставки фоток в лист таким образом, чтобы пользователь только указывал путь к папке, а процесс происходил автоматически по следующим параметрам: уменьшение размера фоток с тем, чтобы на одной странице размещалось определенное пользователем число, ландшафтные располагались бы с ландшафтными, а вертикальные с вертикальными?