🚀 go-pugleaf

Sorry for the stupid question - I've never used Step and Repeat, so I didn't know what you were talking about.

It doesn't appear there's a built-in function. But if you use the facility a lot, you could write a generic function to give you that functionality. The following has NOT been extensively tested:


Option Explicit

Public Function StepAndRepeat(objDup As Object, nRepeatCount As Long, _
nHorizontalPoints As Single, nVerticalPoints As Single) As Boolean
    Dim nRepeats As Long
    Dim objDuped As Object

On Error GoTo CantStepAndRepeat

Select Case TypeName(objDup)
        Case "EPS", "Group", "Image", "Line", "Oval", "PageItem", _
          "PDF", "Polygon", "Rectangle", "TextFrame"
            If nRepeatCount > 0 Then
                For nRepeats = 1 To nRepeatCount
                    Set objDuped = objDup.Duplicate
                    objDup.Move moveTo:=Array(nHorizontalPoints * nRepeats & "pt", _
                      nVerticalPoints * nRepeats & "pt")
                Next nRepeats
            End If
            StepAndRepeat = True
        Case Else
            ' not a duplicatable object, so raise an error
            ' To use the information passed to the Raise method, remove
            ' the On Error Goto and trap the error in the caller
            Err.Raise vbObjectError + 1000, "StepAndRepeat", _
              "Object type cannot be duplicated"
    End Select
Exit Function
CantStepAndRepeat:
    StepAndRepeat = False
Exit Function
End Function