🚀 go-pugleaf

Thanks for the heads-up. You might want to fix page 460 in the scripting guide:


Rem myPolygon.Move moveBy:=array(0, "12p")


Actually, I should have used moveBy instead of moveTo. Here's the corrected code (note the change in the object reference in the Move line, as well):


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
                    objDuped.Move , 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