Hallo,
ich habe ein großes Workbook in dem auf einigen Tabellen, beim Öffnen der Datei, die Datei 'FZSlogo.jpg' in das Image 'logo' (Objekt 'Bild' aus Steuerelemente-Toolbox) geladen wird.
Mit einer Tabelle kriege ich das hin...
Private Sub Workbook_open()
If Sheets("Vorgaben").Range("AS15") = "Ja" Then
If Dir$(ThisWorkbook.Path & "\FZSlogo.jpg") "" Then
logo.Picture = LoadPicture(ThisWorkbook.Path & "\FZSlogo.jpg")
Das funktioniert aber nicht in einer Schleife die in der ersten Tabelle die Datei lädt, wenn das Image 'logo' vorhanden ist, dann in der nächsten usw...
Private Sub Workbook_open()
If Sheets("Vorgaben").Range("AS15") = "Ja" Then
Dim WsTabelle As Worksheet
If Dir$(ThisWorkbook.Path & "\FZSlogo.jpg") "" Then
For Each WsTabelle In Sheets
WsTabelle.logo.Picture = LoadPicture(ThisWorkbook.Path & "\FZSlogo.jpg")
Next WsTabelle
End If
End If
Da kommt bei '.logo' Fehler beim Kompilieren:
Methode oder Datenobjekt nicht gefunden
Wer kann mir helfen?