Hilfe, commandbars drehen mir durch!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo nepumuk,
der code ist nach dem muster aus einem "alten" beispiel von hans aufgebaut:
In ThisWorkbook:


Private Sub Workbook_BeforeClose(cancel As Boolean)
Call DeleteCmdBar
End Sub

Public Sub Workbook_Open()
Dim oBar As CommandBar
' buttons
Dim o_import_Btn As CommandBarButton
Dim o_commentActionsADD_Btn As CommandBarButton
' other variables
Dim i As Integer
Dim cBarName As String

Call DeleteCmdBar
' commandBar
Set oBar = Application.CommandBars.Add( _
Name:="Error Mgmt Toolbar", _
temporary:=True, _
Position:=msoBarTop)
oBar.Visible = True
oBar.Enabled = True
' importButton
Set o_import_Btn = oBar.Controls.Add
With o_import_Btn
' .FaceId = 40
.BeginGroup = True
.Caption = "&" & "import from file..."
.OnAction = "importCommand"
.Style = msoButtonWrapCaption
.State = msoButtonUp
.Height = 30
.Width = 50
End With
' commentsActionsInsertButton
Set o_commentActionsADD_Btn = oBar.Controls.Add
With o_commentActionsADD_Btn
.BeginGroup = True
.Caption = "&" & "add comments"
.OnAction = "addCommand"
.Style = msoButtonWrapCaption
.State = msoButtonUp
.Height = 30
.Width = 50
End With
End Sub
da sind noch ein paar buttons, aber sehen alle gleich aus.
nichts ungewöhnliches, hätte ich es anders machen sollen?
gruß,
selma

Hallo Selma,
das Problem liegt darin, dass in der Routine "DeleteCmdBar" die Commandbar über ihren Namen gelöscht wird. Du musst die Anweisung:
Dim oBar As CommandBar
aus der Workbokk_Open - Routine herausnehmen und in einem "normalen" Modul als:
Public oBar As CommandBar
einfügen. Des weitern musst du aus dem Workbook_Open - Ereignis noch die Anweisung:
Call DeleteCmdBar
herausnehme. Die Löschroutine ist, da die Commandbar temporär angelegt wird, komplett unnötig und würde nur zu einem unterdrückten Fehler führen. Die Commnadbar wird beim schließen der Mappe ausgeblendet (Workbook_Deactivate - Ereignis, siehe nächsten Satz) und beim beenden von Excel automatisch gelöscht.
Um zu vermeiden, dass, wenn du mehrere Mappen, die aus der Vorlage hervorgegangen sind, öffnest, die Commandbar mehrfach auftaucht, musst du, über die Routinen Workbook_Activate und Workbook_Deactivate, die Commandbar noch ein- und ausblenden. (schöner Satz?)
Wenn du willst, kann ich dir eine Beispielmappe machen.
Gute Nacht
Nepumuk

Beliebteste Forumthreads (12 Monate)

Hilfe, commandbars drehen mir durch!

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread