OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #21  
Old 31-05-2010, 22:21
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 165
Default

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.
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?
Reply With Quote
  #22  
Old 01-06-2010, 10:28
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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

-John

Code:
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
Reply With Quote
  #23  
Old 01-06-2010, 18:07
gorgo2 gorgo2 is offline
Senior Member
 
Join Date: Feb 2010
Posts: 107
Default

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
Reply With Quote
  #24  
Old 01-06-2010, 19:10
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

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.

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
                    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
Reply With Quote
  #25  
Old 02-06-2010, 00:30
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 165
Default

I begin to wonder if Alex is watching all of this and laughing to himself...
Reply With Quote
  #26  
Old 02-06-2010, 08:12
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.

Actually I was kinda wondering the same.

-John
Reply With Quote
  #27  
Old 12-05-2017, 02:33
olympiatr's Avatar
olympiatr olympiatr is offline
Junior Member
 
Join Date: Oct 2009
Location: izmir
Posts: 14
Send a message via ICQ to olympiatr Send a message via MSN to olympiatr Send a message via Yahoo to olympiatr Send a message via Skype™ to olympiatr
Default so, what about if we need to use another way?

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 )
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 16:04.


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