updating linked images in coreldraw x5

in previous versions of coreldraw, updating externally linked image/s is as easy as selecting the linked image/s in Link Manager, then pressing Update the selected out of date object.

however, i cant seem to do this anymore in x5. do i really have to update the linked images 1 by 1?

is there a way i can update linked images like on the previous version of coreldraw, ie x4?

  • ice said:
    is there a way i can update linked images like on the previous version of coreldraw, ie x4?

    there is different docker:

    • the new links and bookmarks docker let me update just 1 link at a time.

      the old link manager docker let me update selected links and update them simultaneously.

      is there any way i could select and update multiple links in x5?

       

      if i select only 1 link, there's no problem:

      if i select more than 1 link, the update button is not available.

       

       

    • ice said:

      in previous versions of coreldraw, updating externally linked image/s is as easy as selecting the linked image/s in Link Manager, then pressing Update the selected out of date object.

      however, i cant seem to do this anymore in x5. do i really have to update the linked images 1 by 1?

      is there a way i can update linked images like on the previous version of coreldraw, ie x4?

      Hi.

      I didn't test this but hopefully it should work for you.

      It will update links in all bitmaps on page.

      -John

       

      Sub updateLinks()

          Dim s As Shape, sr As ShapeRange
         
          Set sr = ActivePage.Shapes.FindShapes(, cdrBitmapShape)
          For Each s In sr
              If s.Bitmap.ExternallyLinked Then
                  s.Bitmap.UpdateLink
              End If
          Next s
      End Sub

       

      • can you pls give me a step by step procedure. i have no knowledge in programming.
        • ice said:
          can you pls give me a step by step procedure. i have no knowledge in programming.

          Hi.,

          You can assign a shortcut to it. See this page. Scroll down to the "How do you use the code" part.

          -John

           

          • thanks sir john for the help.

            can the code be modified to update only outdated linked images throughout the whole document, just like coreldraw x4?

            • ice said:

              thanks sir john for the help.

              can the code be modified to update only outdated linked images throughout the whole document, just like coreldraw x4?

              Hi.

              -John

               

              Sub updateLinks()

                  Dim s As Shape, sr As ShapeRange
                  Dim p As Page
                 
                  Set sr = ActivePage.Shapes.FindShapes(, cdrBitmapShape)
                  For Each p In ActiveDocument.Pages
                      p.Activate
                      For Each s In sr
                          If s.Bitmap.ExternallyLinked Then
                              If DateDiff("s", FileDateTime(s.Bitmap.LinkFileName), s.ExternalLinkTime) <> 0 Then
                                  s.UpdateLink
                              End If
                          End If
                      Next s
                  Next p
              End Sub

               

              • i've only modified your code a bit:

                Sub updateLinks()

                    Dim s As Shape, sr As ShapeRange
                    Dim p As Page
                  
                    For Each p In ActiveDocument.Pages
                    p.Activate
                    Set sr = ActivePage.Shapes.FindShapes(, cdrBitmapShape)
                        For Each s In sr
                            If s.Bitmap.ExternallyLinked Then
                                  If DateDiff("s", FileDateTime(s.Bitmap.LinkFileName), s.Bitmap.ExternalLinkTime) <> 0 Then
                                    s.Bitmap.UpdateLink
                                  End If
                            End If
                        Next s
                    Next p
                End Sub

                 

                once again, thanks for the help

            • Hello, this is an old post, is anybody still seeing it?

              The script works perfectly with "free" pictures, is it possible to automatically update also pictures that are embedded within powerclips?