Menuefarbe von Corel Draw Graphics Suite X6

[koter]

hallo pitnet,

Wie kann ich das ändern?

ich befürchte, dass man das nicht ändern kann.

Du kannst aber eine Eigene Menü-Leiste erstellen.
Das geht auch per Makro:



Du musst eine CDR-Datei erstellen oder öffnen, bevor das Makro ausgeführt wird. Sonst klappt es nicht.

Code:

Sub Start()
   Dim HM1 As CommandBar
   Dim ErsatzLeiste As CommandBar
   Dim C As Control
   Dim itm
   erstellen
   Set HM1 = Application.MainMenu
   Set ErsatzLeiste = Application.CommandBars("ErsatzLeiste")
   For itm = 1 To HM1.Controls.Count - 1
       ErsatzLeiste.Controls.Add HM1.Controls.Item(itm).ID
   Next itm
   ErsatzLeiste.Visible = True
End Sub
Sub erstellen()
   Dim oToolbar As CommandBar
   Set oToolbar = FindCommandBarByName("ErsatzLeiste")
   If oToolbar Is Nothing Then
       Set oToolbar = Application.CommandBars.Add("ErsatzLeiste", cuiBarTypeMenuBar, False)
   End If
End Sub
Private Function FindCommandBarByName(cName As String) As CommandBar
   Dim nIndex As Long
   For nIndex = 1 To Application.CommandBars.Count
       If (Application.CommandBars.Item(nIndex).Name = cName) Then
           Set FindCommandBarByName = Application.CommandBars.Item(nIndex)
           Exit Function
       End If
   Next nIndex
   Set FindCommandBarByName = Nothing
End Function

Gruß

Koter