Insert Eigenschaft des Pictures Objektes ....

Sub ExcelAuftrag()
Pfad = "C:\Abfragen"
Workbooks.Open FileName:=Pfad & "\auftrag.xls"
End Sub

rufe ich die Datei auftrag.xls auf
Mit dem Start von Auftrag.xls wird über eine Ereignisprozedur

Private Sub Workbook_Open()
Call NeueSymbolleiste
Call SymbolleisteErstellen
End Sub

eine neue Symbolleiste erstellt.
In die Symbolleiste werden mit ActiveSheet.Pictures.Insert ... Bilder eingefügt.
Das funktioniert ganz gut unter XP. Wenn ich den gleichen Ablauf unter Excel 97 starte, tritt beim ersten Einfügen der Bilder ein Fehler auf. siehe unten.
Starte ich die Datei Auftrag.xls direkt ohne über den Umweg Sub ExcelAuftrag() usw. funktioniert es auch unter Excel 97, nur in der Kombination Sub ExcelAuftrag und SymbolleisteErstellen nicht.
(NeueSymbolleiste und SymbolleisteErstellen sind Makros der Datei Auftrag.xls)
Hat jemand einen Tip für mich, wie ich die Makros auch unter 97 ans Laufen bekomme?
Dem freundlichen Helfer besten Dank
Peter Welbers

Sub SymbolleisteErstellen()
Dim cBar As CommandBar
Dim dat As String
Dim cBarButton As CommandBarButton
Dim cPopup As CommandBarPopup
Dim cBarCntl As CommandBarControl
BildPfad = "C:\Abfragen\Bilder\"
Dateiname = ThisWorkbook.Name
'ToggleButton INFO einrichten
dat = Dir(BildPfad & "info.gif")
If dat  "" Then  

Fehler
Die Insert Eigenschaft des Pictures Objektes kann nicht zugeordnet werden.


ActiveSheet.Pictures.Insert _
(BildPfad & "info.gif").Select
Selection.Copy
Selection.Delete


...... usw.