OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #11  
Old 01-04-2010, 22:58
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

I'll give it a go tomorrow on this macro and let you know what happens. Thanks much.

-Greg
Reply With Quote
  #12  
Old 30-05-2010, 22:16
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

Hey! I just can’t seem to work this out with the THUMBNAILER macro you helped me with a while back. I’m still trying to get the thing to make the thumbnails be referenced to the bottom left corner of the 11 x 17 page so check out the attached gms wont’ you please? I used your code from the Oberon forums but it does not work….



Also, see image example of what I’m trying to achieve.

Thanks a bunch John or others that can help with this!
Attached Images
 
Reply With Quote
  #13  
Old 30-05-2010, 22:35
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Here's the modified section code that sets position of all thumbnails on the page(s). (lightly tested)
Notice the comments.
This is a fix to reposition thumbnails on page. Modifying someone else's code, especially Alex's, is not always easy...lol

-John


Code:
        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 line
                    ActiveDocument.AddPages 1
                End If
            End If
        End If
    Next f
    myAdjust 'added this line
    bProcessing = False
    lblProgress.Caption = ""
    cmAbort.Visible = False
    cmOK.Visible = True
    cmCancel.Visible = True
End Sub

Private Sub myAdjust() 'added this whole sub
    ActiveDocument.ReferencePoint = cdrBottomLeft
    ActivePage.Shapes.All.SetPosition 0, 0 'adjust position here.
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
-John
Reply With Quote
  #14  
Old 30-05-2010, 23:21
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Talking

YES! We're almost there and making progress. As I understand this, the thumbs are positioned after the fact at 0,0 cdrbottomleft. That's what I was trying to achieve...so now I want to set up the form so the user can enter a value and finally position them thumbs centered vertically yet offcenter horizontally like my sample image above. I can set this by entering something like 1,4 or something like that but if the user wants a different config then I'll have to keep changing the code...not too smooth I suppose. So using a textbox value to have control over exactly where to put the array of thumbs would be most excellent and complete my request. If not, then I could attempt somethings....end if.

-Greg
Reply With Quote
  #15  
Old 31-05-2010, 01:23
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Question

also, trying to get control over vertical spacing between images as shown...
Attached Images
 
Reply With Quote
  #16  
Old 31-05-2010, 03:34
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

**update**
I got it how I want it...but still some glitches.
something weird happens if I change cdrBottomLeft to cdrTopLeft which is really what I wanted but go confused. The unwanted positionion happens when the next page is inserted and there are maybe three or so thumbnails left and they are moved to the bottom and I want them to go to the top area hence the cdrTopLeft. Check it out when you can good sir.

-Greg
Attached Images
 
Reply With Quote
  #17  
Old 31-05-2010, 09:35
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
If you change reference point to top left you can adjust position like this(untested):

Code:
Private Sub myAdjust() 'added this whole sub
    ActiveDocument.ReferencePoint = cdrTopLeft
    ActivePage.Shapes.All.SetPosition 0, ActivePage.SizeHeight 'adjust position here.
End Sub
-John
Reply With Quote
  #18  
Old 31-05-2010, 10:09
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

Okay, I'm on it...I've added some fun features besides that I've always wanted but didn't know how...boy did I lose some sleep but it was worth it!

_Greg
Reply With Quote
  #19  
Old 31-05-2010, 10:24
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

Quote:
Originally Posted by runflacruiser View Post
Hi.
If you change reference point to top left you can adjust position like this(untested):

Code:
Private Sub myAdjust() 'added this whole sub
    ActiveDocument.ReferencePoint = cdrTopLeft
    ActivePage.Shapes.All.SetPosition 0, ActivePage.SizeHeight 'adjust position here.
End Sub
-John
Okay...looks real good! I had to do this
Code:
    ActivePage.Shapes.All.SetPosition 0.5, ActivePage.SizeHeight - 1 'adjust position here
so that the thumbs are spaced away from the top but the last remaining are top justified....now if I could set the form to make these changes I'll be complete....if you don't want to bother, that's fine.

-Greg
Reply With Quote
  #20  
Old 31-05-2010, 10:50
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
Just create a couple textboxes and reference them in code like this:

Code:
ActivePage.Shapes.All.SetPosition MainForm.myTextBoxValueX.value, MainForm.myTextBoxValueY.value
-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 04:26.


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