OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Feature requests/wishlist

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 25-03-2010, 17:53
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default 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
Reply With Quote
  #2  
Old 26-03-2010, 18:59
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

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

-Greg
Reply With Quote
  #3  
Old 26-03-2010, 20:51
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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
Reply With Quote
  #4  
Old 27-03-2010, 12:17
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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
Reply With Quote
  #5  
Old 29-03-2010, 18:12
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

Okay...will try this. Thanks much John.
Reply With Quote
  #6  
Old 29-03-2010, 18:25
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

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
Reply With Quote
  #7  
Old 29-03-2010, 18:40
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

Quote:
Originally Posted by runflacruiser View Post
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?
Reply With Quote
  #8  
Old 29-03-2010, 18:46
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Quote:
Originally Posted by gorgo2 View Post
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
Reply With Quote
  #9  
Old 31-03-2010, 17:07
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

Quote:
Originally Posted by runflacruiser View Post
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
Reply With Quote
  #10  
Old 01-04-2010, 14:30
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Oberon Thumbnailer - remember last folder gorgo2 Feature requests/wishlist 0 25-02-2010 17:10
New macros: Oberon Object Tiler & Oberon Color Replacer Alex Site News 1 06-11-2009 19:49
Create Rectangle-Shape with positioning WernerHo CorelDRAW/Corel DESIGNER VBA 2 06-02-2008 03:40
Positioning Cross admold Macros/Add-ons 0 03-01-2008 02:41
Problem with positioning a duplicate knowbodynow CorelDRAW/Corel DESIGNER VBA 3 05-05-2007 09:09


All times are GMT -5. The time now is 19:44.


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