🚀 go-pugleaf

Optimizing ?!

Dim InD As InDesign.Application

Private Sub Command1_Click()

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

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

If InD.Documents.Count <> 0 Then
        Set InDDocument = InD.ActiveDocument
        InDImageNumber = InputBox("How many images do you want placed into the composite?", _
                                  "Composite Image Count", "15")
        On Error Resume Next ' In case than more rectangles that images
        For i = 1 To InDDocument.Rectangles.Count
            Set InDRectangle = InDDocument.Rectangles.Item(i)

myNumber = Str(i)
            myImage = IndPath & InDFilePattern & Mid$(myNumber, 2, Len(myNumber)) & InDExt

InDRectangle.Place myImage
            If i > InDImageNumber Then Exit For
        Next
    End If
End Sub