Corel Draw 2018 - Anzeige Speicherort

[koter]

Hallo Frank,

das Makro soll neben dem Pfad noch einige Infos in die Titelleiste schreiben.
Weil Die Maßstab-Info bei Maßstäben größer als 1:1 nicht funktioniert hat, habe ich es etwas verändert:

Code:

Option Explicit

Private Sub GlobalMacroStorage_SelectionChange()
    Call TLText
End Sub

Sub TLText()
    Dim i As Integer
    Dim l As Layer
    Dim Infos(7) As String, Titel As String, Maßstab As String
    Dim Doc As Document
    If Documents.Count < 1 Then Exit Sub
    Set l = ActiveLayer
    Set Doc = ActiveDocument
    
    Select Case ActiveDocument.WorldScale
    Case Is < 1
        Maßstab = 1 / Doc.WorldScale & ":1"
    Case 1
        Maßstab = "1:1"
    Case Is > 1
        Maßstab = "1:" & Doc.WorldScale
    End Select
    
    Titel = Application.FrameWork.MainFrameWindow.Caption & " / " & Doc.FilePath & Doc.Name & " "
    
    Infos(0) = Application.Version
    Infos(1) = "Aktive Ebene: " & ActiveLayer.Name
    Infos(2) = "Maßstab: " & Maßstab
    Infos(3) = "Datum: " & Date
    Infos(4) = "Auflösung: " & Doc.Resolution
    
    For i = 0 To UBound(Infos)
        If Len(Trim(Infos(i))) > 0 Then
            Titel = Titel & " / " & Infos(i)
        End If
    Next i
    
    AppWindow.Caption = Titel
    
End Sub

Ich habe X7, kann also nicht testen, ob es mit Deiner Version funktioniert.
Du kannst es ja mal testen, indem Du eine neue GMS mit dem Makro-Manager anlegst und den Code dort in „ThisMacroStorage“ kopierst oder die angehängte GMS in Deinen GMS-Ordner kopierst.

Der Ordner ist bei meiner Version unter:
C:\Users\Benutzername\AppData\Roaming\Corel\CorelDRAW Graphics Suite X7\Draw\GMS
zu finden.

Gruß

Koter