How can I update all linked pictures that are embedded in PowerClips?

Marco1113
10 months ago

I found this script by GDG_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

It works fine with pictures that are not set into PowerClips, those will not update. Is it possible to add this feature?

All pictures shall be updated.

Thanks

Parents
No Data
Reply
  • 0 10 months ago

    Sub UpdateLinksPWC()
    Dim s As Shape, sp As Shape
    Dim pwc As PowerClip
    For Each s In ActivePage.Shapes
    Set pwc = Nothing
    On Error Resume Next
    Set pwc = s.PowerClip
    On Error GoTo 0
    If Not pwc Is Nothing Then
    For Each sp In pwc.Shapes
    If sp.Type = cdrBitmapShape Then
    If sp.Bitmap.ExternallyLinked Then
    sp.Bitmap.UpdateLink
    End If
    End If
    Next sp
    End If
    If s.Type = cdrBitmapShape Then
    If s.Bitmap.ExternallyLinked Then
    s.Bitmap.UpdateLink
    End If
    End If
    Next s
    End Sub

Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.