Corel Draw X6 Verknüpfungen

[koter]

Ich habe das Skript nun mal getestet.
Corel Draw führt das Skript aus und schließt dann das Dokument. Verändert ist aber nichts.

Dann glaube ich nicht, dass es an der alten Datei-Version liegt. Der Bug wird wahrscheinlich auch auftreten, wenn Du die Datei genau so mit X6 neu zeichnest. Den Bug bekommt man nicht weg (es sei denn Corel bietet irgendwann ein Patch an), man kann ihn höchstens umschiffen.

Vielleicht kommt X6 mit der tiefen Gruppierung in Deiner Grafik nicht klar. Du könntest versuchen, eine neue Ebene anzulegen, Rechtecke über die alten Hyperlinks zu legen und diese zu Verknüpfen.

Das tut auch das folgende Makro:

Code:

Sub hyperlinkEbene()
    Dim s As Shape, hl As Layer, al As Layer, r As Rectangle
    Set al = ActiveLayer
    Set hl = ActivePage.CreateLayer("Hyperlinks")
    Dim x As Double, y As Double, w As Double, h As Double
    For Each s In al.Shapes
        If s.URL.Address <> "" Then
            s.GetBoundingBox x, y, w, h
            hl.CreateRectangle2 x, y, s.SizeWidth, s.SizeHeight
            ActiveShape.URL.Address = s.URL.Address
        End If
    Next
    hl.Shapes.All.SetOutlineProperties Color:=CreateCMYKColor(0, 0, 0, 100)
    hl.Shapes.All.SetOutlineProperties 0.003
    hl.Shapes.All.ApplyNoFill
End Sub

X7 ist gerade herausgekommen, vielleicht testet ein Foren-Mitglied Deine Datei mal mit dieser neuen Version, möglicherweise ist der Bug dort nicht mehr vorhanden.

Gruß

Koter