wer kann mir einen Tip zu folgender Fehlermeldung geben:
Die Insert Eigenschaft des Pictures Objektes kann nicht zugeordnet werden
Ich habe folgenden Makroablauf
über die Prozedur
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.