XCFormatCleaner geeft foutmelding

[Maurice40]

Ik heb Excess Format Cleaner als invoegtoepassing in excel actief. Bij het opstarten van excel krijg ik de volgende foutmelding in het Private Sub Workbook_Open():

Set cmb = Application.CommandBars("Chart Menu Bar").Controls("File").CommandBar

Weet iemand wat er mis gaat?

 

[edmoor]

Ik zie geen foutmelding, alleen een opdracht.
Welke versie van Office heb je?

 

[Maurice40]

de opdracht zal ongetwijfeld goed zijn, alleen daar blijft hij bij mij hangen.

hij geeft de foutmelding:
fout 5 tijdens uitvoering: Ongeldige procedure-aanroep of ongeldig argument

 

[edmoor]

Daarom vroeg ik ook welke versie van Office je hebt, want die opdracht is voor Office 2003 en zal vanaf Office 2007 niet meer werken. Maar die vraag heb je geen antwoord op gegeven, die heb je net gemist denk ik.

 

[Maurice40]

Sorry, je hebt gelijk. Office Versie 2007.

 

[edmoor]

Dan gaat die opdracht niet werken en kun je hem beter uitschakelen.

 

[Maurice40]

Dat uitschakelen, hoe doe ik dat? Gewoon de regel weghalen?

 

[edmoor]

Die kun je uitschakelen door er een enkel aanhalingsteken (') voor te zetten. De regel wordt dan groen.
Wat staat er nog meer in die Private Sub Workbook_Open() ?

 

[Maurice40]

dit is wat ik zie als ik foutopsporing kies. Als ik in de sub Workbook_Open() de regel uitschakel die de foutmelding geeft, dan geeft vervolgens de volgende regel een foutmelding.

Option Explicit
Dim WithEvents App As Application

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBarButton, cmb As Object
On Error Resume Next
Set cmb = Application.CommandBars("Worksheet Menu Bar").Controls("File").CommandBar
Set cb = cmb.FindControl(Tag:="AJK-XSFmt")
cb.Delete
Set cmb = Application.CommandBars("Chart Menu Bar").Controls("File").CommandBar
Set cb = cmb.FindControl(Tag:="AJK-XSFmt")
cb.Delete
Application.CommandBars("Worksheet Menu Bar").Controls("File").FindControl(ID:=3).BeginGroup = True
Application.CommandBars("Chart Menu Bar").Controls("File").FindControl(ID:=3).BeginGroup = True
End Sub

Private Sub Workbook_Open()
Dim cb As CommandBarButton, cmb As Object
'Set cmb = Application.CommandBars("Chart Menu Bar").Controls("File").CommandBar
Set cb = cmb.FindControl(ID:=3)
cb.BeginGroup = False
Set cb = cmb.Controls.Add(Type:=msoControlButton, before:=cb.Index, Temporary:=True)
cb.OnAction = "'" & ThisWorkbook.Name & "'!ClearExcessRowsAndColumns"
cb.Caption = "Clear Excess Rows/Columns"
cb.Tag = "AJK-XSFmt"
cb.BeginGroup = True
Set cmb = Application.CommandBars("Worksheet Menu Bar").Controls("File").CommandBar
Set cb = cmb.FindControl(ID:=3)
cb.BeginGroup = False
Set cb = cmb.Controls.Add(Type:=msoControlButton, before:=cb.Index, Temporary:=True)
cb.OnAction = "'" & ThisWorkbook.Name & "'!ClearExcessRowsAndColumns"
cb.Caption = "Clear Excess Rows/Columns"
cb.Tag = "AJK-XSFmt"
cb.BeginGroup = True
MenuCaption
Set App = Excel.Application
End Sub

Private Sub App_WorkbookActivate(ByVal wb As Workbook)
MenuCaption
End Sub

Private Sub App_WorkbookDeactivate(ByVal wb As Workbook)
MenuCaption True
End Sub

Private Sub MenuCaption(Optional HideMenu As Boolean = False)
Static cb As CommandBarButton, cb1 As CommandBarButton
Dim cmb As Object
On Error Resume Next
If cb Is Nothing Then
Set cmb = Application.CommandBars("Worksheet Menu Bar").Controls("File").CommandBar
Set cb = cmb.FindControl(Tag:="AJK-XSFmt")
Set cmb = Application.CommandBars("Chart Menu Bar").Controls("File").CommandBar
Set cb1 = cmb.FindControl(Tag:="AJK-XSFmt")
End If
If ActiveWorkbook Is Nothing Or HideMenu Then
cb.Visible = False
cb1.Visible = False
Exit Sub
End If
cb.Visible = True
cb.Caption = "Clear Excess Formats in " & ActiveWorkbook.Name
cb1.Visible = True
cb1.Caption = "Clear Excess Formats in " & ActiveWorkbook.Name
End Sub

 

[edmoor]

Ok. Dat is allemaal duidelijk voor Office 2003 gemaakt en gaat in Office 2007 niet werken.
Je zult moeten kijken of die invoegtoepassing er ook voor Office 2007 is.

 

[Maurice40]

bedankt voor je tip