thumbnailer macro

is there one for X6?

  • I have the one from Oberonplace for x5.  I cannot go through a day without it.  Someone on here was kind enough to modify it to run on x6 64 bit  for me.  I can't remember who it was though.  Maybe they will respond to your post.

    • That would be me. I have made a unofficial release that will work for X6, you can find it here:

      Oberon Thumbnailer and X6

      Hope you find it useful, 

      -Shelby

      • Thanks for this Shelby Beer

      • I wanted to repost to this topic to ask if this thumbnailer macro could have a defect or if it was just the nature of its operation.  What I'm seeing is..the more items I import with it the slower it operates. For example...I create shelf tags that are 3" wide x 1.25 ' tall with a image or logo and a price.  All tags are in the neighborhood of 400-600 kb.  Some are a little larger but none over 993 kb.  But in any instance..say I have 75 to place on a page to print....as the macro starts placing the images..it runs very fast.....but starts to slow down the more it has to place...down to a couple or 3 seconds each toward the end.  Just wondering if there was a problem with it.  I never noticed it being this bad before.  Maybe Shelby or John could take a look at it....fingers crossed?

        • Beggers can't be choosers, but is there an x8 version? it crashes all of x8 for me once I select a folder using browse.
          • Are you using Shelby's updated version of the Thumbnailer macro? He posted a link in this thread for it. It works for me in X7, X8 and 2017.

            Patti

            • Hi

              It was posted quite a long time ago, but does it really work for you in Corel Draw X8 because mine crashes as soon as I run it.

              • try add small fix to GMS - Module - Utils 

                change Long to LongPtr in 2 place

                Public Sub UpdateForm(f As Object)
                Dim hwnd As LongPtr
                hwnd = GetFormHandle(f)
                If hwnd <> 0 Then UpdateWindow hwnd
                End Sub

                Public Sub EnableForm(f As Object, ByVal bState As Boolean)
                Dim hwnd As LongPtr
                hwnd = GetFormHandle(f)
                If hwnd <> 0 Then
                EnableWindow hwnd, -bState
                SetFocus hwnd
                End If
                End Sub

              • Commenting on this 10 year old post to see if Thumbnailer for X6 is still around.  Oberon Place seems to be gone??? :(