HOlaa amigos, tengo problemas con este macro de Jeff Harrison, el macro se encarga de actualizar todas las imágenes enlazadas exteriormente , es decir, si tenemos una carpeta donde almacenamos esas imágenes vinculadas, y posteriormente hacemos cambios a dichas imagenes, sobre todo de tamaño , proporción, etc, el macro actualiza las imágenes en Corel, pero no actualiza su tamaño, simplemente deja la proporción de la que imagen que tenía anteriormente, es decir, que la nueva imagen vinculada y actualizada se deforma.... hay una manera de corregir este problema.....
Sub FixOutdatedLinkedBitmaps()
' concept: Jeff Harrison
' Programmer: Shelby Moore
' This Macro refreshes linked bitmaps throughout a CorelDRAW document
' Thumbnails need to be refreshed in the Link Manager Docker manually
Dim s As Shape
Dim sr As ShapeRange
Dim p As Page
Optimization = True
For Each p In ActiveDocument.Pages
p.Activate
Set sr = p.Shapes.FindShapes(, cdrBitmapShape, True)
For Each s In sr
If s.Bitmap.ExternallyLinked = True Then
s.Bitmap.UpdateLink
End If
Next s
Next p
Optimization = False
Application.Refresh
ActiveWindow.Refresh
End Sub
Aqui dejo Otra idea relacionada al tema de Enlazar o vincular, mismo que ayudaría mucho a los usuarios de Corel en todo el mundo, algún macro con el que se pueda actualizar alguna imagen, re-enlazar, o reubicar la imagen sin tener que agregarla desde el menu de enlaces, sino que seleccionas la imagen , y buscas el lugar o ruta donde está ubicada la imagen, no sé si la idea se pueda aplicar al macro de arriba o algún nuevo macro, a ver que nos pueden decir los chicos expertos del foro, muchas gracias un saludo....