OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   Feature requests/wishlist (http://forum.oberonplace.com/forumdisplay.php?f=33)
-   -   Oberon Thumbnailer - Image positioning (http://forum.oberonplace.com/showthread.php?t=6905)

gorgo2 25-03-2010 17:53

Oberon Thumbnailer - Image positioning
 
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 26-03-2010 18:59

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

-Greg

runflacruiser 26-03-2010 20:51

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

Code:


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

Code:


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 27-03-2010 12:17

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.

Code:


        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 29-03-2010 18:12

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

gorgo2 29-03-2010 18:25

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:
Code:

strLabelName = "thumbNail"

Private Sub cmdClear_Click()

  Call DeleteLabels("thumbNail")

End Sub

-Greg

gorgo2 29-03-2010 18:40

Quote:

Originally Posted by runflacruiser (Post 16178)
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.

Code:


        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 29-03-2010 18:46

Quote:

Originally Posted by gorgo2 (Post 16185)
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:
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 31-03-2010 17:07

Quote:

Originally Posted by runflacruiser (Post 16178)
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.

Code:


        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 01-04-2010 14:30

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


All times are GMT -5. The time now is 10:40.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com