🚀 go-pugleaf

Hi Brian,

Here the code: I create a folder with 3 images, Img1.jpg, Img2.jpg and Img3.jpg
open a document and create 3 empty pictures rectangles frame (F) any where in the document

The script with place the images there after,

Now just personalize the counter as you need and meabe some error rutine in case the images is not found.

Is important first count how many rectangles you have in the document and after insert the images inside, two loops and is quite fast.

Roberto

===========================

Dim InD As InDesign.Application

Private Sub Command1_Click()
    Dim myRectangles As New Collection
    Dim i As Integer

Counter = 1
    InDFilePattern = "Img"
    IndPath = "C:\Test\"
    InDExt = ".jpg"

Set InD = CreateObject("InDesign.Application.2.0")

If InD.Documents.Count <> 0 Then

Set InDWindow = InD.ActiveWindow
        Set InDSpread = InDWindow.ActiveSpread
        Set InDDocument = InD.ActiveDocument
        Set InDPage = InDDocument.Pages.Item(1)

InDImageNumber = InputBox("How many images do you want placed into the composite?", _
                "Composite Image Count", "15")

For InDCounter = 1 To InDDocument.AllPageItems.Count
            Set InDPageItem = InDDocument.AllPageItems.Item(InDCounter)
            a = TypeName(InDPageItem)
            If TypeName(InDPageItem) = "Rectangle" Then
                myRectangles.Add InDPageItem
            End If
        Next

For i = 1 To myRectangles.Count
            myNumber = Str(i)
            myImage = IndPath & InDFilePattern & Mid$(myNumber, 2, Len(myNumber)) & InDExt
            myRectangles.Item(i).Place myImage
        Next

End If

End Sub