Oberon Thumbnailer - Image positioning

[gorgo2]

Hi there macro monsters. I'd like to know if there is a way to allow off-center positioning of the thumbnail array where you could set a .5" offset at the left edge and 2" offset at the right edge?

Basically I am looking for a left and right margin setting for what I want. Thanks you for your time.

-Greg

[gorgo2]

Is no one answering because they don't know or just don't have time to reply?

-Greg

[runflacruiser]

Sorry.
I've been pretty busy..TGIF.

Margins in Alex's macro are used as a calculation for how many thumbnails will fit. The easiest way to do it, without re-writing the advanced code he uses would be to use

ActiveDocument.ReferencePoint = cdrBottomLeft
ActivePage.Shapes.All.SetPosition x, y

where x and y are the bottom corner of where you want to position the entire pages of thumbs.

You could even simply use

ActivePage.Shapes.All.Move x, y

where x would represent say -1 for odd page numbers and 1 for even page numbers.
I think this is what your trying to do.

l'll have to do some digging as to where to put the small code addition but it's time for dinner...!

-John

[runflacruiser]

Ok.
If you want to try that method I decribed above here's were I think you can add the code.
I didn't test it yet. Find it in the main form.

        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
                ActiveDocument.Pages(n).Delete
            Next n
        End If
        
        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
                'enter code here begin -----------------
                
                
                'enter code here end -----------------
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bProcessing Then
        bAborted = True
    End If
End Sub

-John

[gorgo2]

Okay...will try this. Thanks much John.

[gorgo2]

While I'm working on the changes to the thumbnailer....I'd like to assign a object ID to each photo that is imported like the page numberer does. This way I can make a "Clear" button that will wipe out all of the imported photos so the user can tweak their settings and try again if they aren't happy with the first try.

I think I might need something like this planted somewhere in the code:

strLabelName = "thumbNail"

Private Sub cmdClear_Click()

  Call DeleteLabels("thumbNail")

End Sub

-Greg

[gorgo2]

Originally Posted by runflacruiser

Ok.
If you want to try that method I decribed above here's were I think you can add the code.
I didn't test it yet. Find it in the main form.

        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
                ActiveDocument.Pages(n).Delete
            Next n
        End If
        
        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
                'enter code here begin -----------------
                
                
                'enter code here end -----------------
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bProcessing Then
        bAborted = True
    End If
End Sub

-John

This might be a silly question, but how does this new code work with the current GUI? Should I make a left and right margin setting box?

[runflacruiser]

Originally Posted by gorgo2

While I'm working on the changes to the thumbnailer....I'd like to assign a object ID to each photo that is imported like the page numberer does. This way I can make a "Clear" button that will wipe out all of the imported photos so the user can tweak their settings and try again if they aren't happy with the first try.

I think I might need something like this planted somewhere in the code:

strLabelName = "thumbNail"

Private Sub cmdClear_Click()

  Call DeleteLabels("thumbNail")

End Sub

-Greg

It may be better just to create a new catalog. But depending on the size of your catalog you could use activedocument.begincommandgroup and activedocument.endcommandgroup to create an undo.

-John

[gorgo2]

Originally Posted by runflacruiser

Ok.
If you want to try that method I decribed above here's were I think you can add the code.
I didn't test it yet. Find it in the main form.

        If nPageCount < nPageCount2 Then
            For n = nPageCount2 To nPageCount + 1 Step -1
                ActiveDocument.Pages(n).Delete
            Next n
        End If
        
        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
                'enter code here begin -----------------
                
                
                'enter code here end -----------------
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bProcessing Then
        bAborted = True
    End If
End Sub

-John

Hi John. I plugged this in and I don't see what it's suppose to do. What's the next step please?

-Greg

[runflacruiser]

Hi.

After creating all of the thumbnails on the page, and before moving to the next page to begin creating more, it should take the entire pages shapes (activepage.shapes.all) and either move them (.move x,y) or set their position (.setposition x,y)

Did you test it?

-John