🚀 go-pugleaf

Have a look at this code: 

Dim myInDesign As InDesign.Application  
Dim myDocument As InDesign.Document  
Dim myPage As InDesign.Page 
Dim dblScalFac As Double 
dblScaleFac = 50 

Set myInDesign = CreateObject("InDesign.Application.2.0")  
����Set myDocument = myInDesign.Documents.Open(path_vierge)  
����Set myPage = myDocument.Pages.Item(1)  
����myFile = path_photos & "vp_1.eps"  
����Set myImage = myPage.Place(myFile, Array(10, 5)) 
Set currentSelection = myPage.PageItems.Item(1) 
Rem PageItem.Item(1) will select the most recently placed item on the page 
��������������currentSelection.Resize dblScalFac, dblScalFac, Indesign.idTopLeftAnchor 

Essentially, the problem came from the fact that you were trying to use GeometricBounds instead of Resize. In this example, I used a scaling factor of 50% to resize each image dimension, so the images will be half of their original size. You can change this to suit your needs. 

Does this help? 

Thanks, 

-Benny