Corel Draw X6 Verknüpfungen

[koter]

Hallo Marcus,

Besteht die Möglichkeit alle Verknüpfungen irgendwie umzuwandeln?

Ich habe das mit einem Makro versucht, das alle Bild-Adressen entfernt und dann neu einfügt.

Ich habe X5, ich kann also nicht sagen, ob es auch mit X6 geht.

Das Makro kann den Adressen einen Pfad hinzufügen:



Wenn Du auf Abbrechen klickst oder das Eingabefeld leer bleibt, fügt das Makro die Adressen ohne Pfad neu ein.

Nachdem ich das Makro ausgeführt hatte waren die Verknüpfungen Grün abgehakt (also OK):



Allerdings sind die Hotspot-Schraffuren danach hinüber.
Die exportierte HTML habe ich lokal und online getestet, beides hat funktioniert.

Falls Du es ausprobieren möchtest, hier der Code:

Code:

Sub HypLNeu()
    Dim s As Shape, PFix As String, a As String, b As String, c As String
      
    Pfad = InputBox("Pfad zu den Bildern:", "Pfad angeben", ActivePage.Properties("Netzpfad", 1))
    If Pfad <> "" Then ActivePage.Properties("Netzpfad", 1) = Pfad
    
    For Each s In ActivePage.Shapes
        If s.URL.Address <> "" Then
            If Not s.Properties.Exists("originalAdresse", 1) Then
                a = s.URL.Address
                b = InStr(1, a, ".jpg", 1)
                c = Left(a, b + 3)
                s.Properties("originalAdresse", 1) = c
            End If
        End If
    Next
    For Each s In ActivePage.Shapes
        If s.Properties.Exists("originalAdresse", 1) Then
            s.URL.Address = ""
        End If
    Next
    For Each s In ActivePage.Shapes
        If s.Properties.Exists("originalAdresse", 1) Then
            s.URL.Address = Pfad & s.Properties("originalAdresse", 1)
            s.URL.Region = cdrURLRegionShape
        End If
    Next
End Sub

Gruß

Koter