Oberon Thumbnailer - Image positioning

[gorgo]

one little glitch i created...trying to fix.
I was trying to group all thumbs on the page after importing and scaling down before going to the next page. it work...but it groups all objects on each page which could be a problem since there is the titleblock and such. see goofup code.

        nPageCount2 = ActiveDocument.Pages.Count
        On Error GoTo 0
        If ActiveShape Is Nothing Then
            sr.add ActiveLayer.CreateLineSegment(X, Y, X + cfg.Width, Y + cfg.Height)
            sr.add ActiveLayer.CreateLineSegment(X, Y + cfg.Height, X + cfg.Width, Y)
            sr.Group
            sr.RemoveAll
        Else
            If ActiveSelection.Shapes.Count > 1 Then
                Set s = ActiveSelection.Group
                bGrouped = True
            Else
                Set s = ActiveShape
                bGrouped = True
            End If

Apart from the whole thumb positioning...this should be simple, right? I suppose it's a small change somewhere to tell the macro to group only the thumbs...hmmm and ideas?

[runflacruiser]

Hi.
Group all thumbs on page?
This will, and set size too.
I think this is what you meant.

-John

Private Sub myAdjust() 'added this whole sub
    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
End Sub

[gorgo2]

do this for me please John. Set your drawing page to 11 x 17 tabloid size. Draw a rectangle 2" wide x 10" height.
Now use the thumbnailer with matrix of 4 x 4 thumbs and see what happens.
The macro is now selecting the rectangle as well as the thumbs (this is probably because of shapes.all I suppose) and moving it around....would you test the gms I sent you when you get a chance...?

-Greg

[runflacruiser]

Hi.


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

-John

[gorgo]

I begin to wonder if Alex is watching all of this and laughing to himself...

[runflacruiser]

Hi.

Actually I was kinda wondering the same.

-John

[olympiatr]

hi folks, many times i just surfin around forum, and surely Thumbnailer is my favourite and i just think what if we need another way instead of folder? can we use way of csv or txt files list? (i just asked, if i have a spare time, i will do it and share here promise / not workin on graphics many times )