objectmodul
Georg
wenn ich folgenden Code in den VBA-Editor in ein Modul einfüge,
Dim WithEvents objPane As NavigationPane
Private Sub Application_Startup()
' Get the NavigationPane object for the
' currently displayed Explorer object.
Set objPane = Application.ActiveExplorer.NavigationPane
End Sub
Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule)
' Check if the currently selected navigation module
' has changed.
If Not (CurrentModule Is objPane.CurrentModule) Then
' Set the IsCollapsed property to
' ensure that the Navigation Pane
' is visible.
If Not (objPane Is Nothing) Then
objPane.IsCollapsed = False
End If
End If
End Sub
kommt immer die Meldung
Nur in Objektmodul zulässig
Warum und was ist ein Objektmodul
bin für alle Hinweise dankbar
Gruß
Georg
Anzeige