View Single Post
Old 01-06-2010, 19:10
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811


The macro should be creating a catalog on a fresh new document.
I tested and this is what happens. The created rectangle would be on the prior document.

It works fine with the added code from above as below. It puts the thumbs on side of page (top left) and groups, sizes them.
Remember you can always put any code to want in the adjust sub, that will move, size, modify the page thumbs. Notice I put the call to myAdjust in 2 spots. One spot is in case the catalog only has a few thumbs and terminates before new page is created, and one right before a new page is created.

        nx = nx + 1
        nCurrent = nCurrent + 1
        If nx >= CountX Then
            nx = 0
            ny = ny + 1
            If ny >= CountY Then
                ny = 0
                If nCurrent < nCount Then
                    myAdjust '<<<<<<<<<<<<<<<<<-------added this
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    myAdjust '<<<<<<<<<<<<<<<<<-------added this
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub myAdjust() 'added this whole sub '<<<<<<<<<<<<<<<<<-------added this
    Dim s As Shape
    ActiveDocument.ReferencePoint = cdrTopLeft
    Set s = ActivePage.Shapes.All.Group
    s.SetPosition 0, ActivePage.SizeHeight 'adjust position here.
    s.SetSize , 5 'change size here, leave one value blank for proportional size '<<<<<<<<<<<<<<<<<-------added this
Reply With Quote