Bilder in Excel anzeigen

Forumthread: Bilder in Excel anzeigen

09.02.2004 14:12:19

uschadiddi

Hallo Exceluser,
ich möchte in einem Excelsheet per Druck auf einen Button ein bestimmtes Bild (*.jpg) anzeigen, ohne dass dieses Bild im Sheet fest eingebunden ist. D. h. das Bild steht in einem bestimmten Pfad.
Kann mir bitte jemand dazu eine Hilfestellung anbieten.
Freue mich über jede Antwort.
Gruss uschadiddi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bilder in Excel anzeigen

09.02.2004 18:40:30

Stefan
AW: Bilder in Excel anzeigen

10.02.2004 11:51:57

uschdiddi
AW: Bilder in Excel anzeigen

10.02.2004 16:38:24

uschadiddi
AW: Bilder in Excel anzeigen

11.02.2004 19:13:40

Stefan

AW: Bilder in Excel anzeigen

09.02.2004 18:40:30

Stefan


Sub Bild_Einladen()
'Bild einladen
ActiveSheet.Pictures.Insert("C:\WINDOWS\DeinBild.bmp").Select
'Position von Links
Selection.ShapeRange.IncrementLeft 30.75
'Position von Oben
Selection.ShapeRange.IncrementTop 33#
End Sub

' Einfacher das Bild fest einbinden,
' damit man die Datei auch verschicken kann
' der Empfänger hat das Bild ja vielleicht nicht.
' Mit den unten aufgeführten Makros wird es
' sichtbar oder unsichtbar gemacht.
' Das Bild muß nur benannt werden.
' Bild markieren und im Namensfeld reinklicken und bennennen.
' Namensfeld = das Feld über Zelle A1 neben den Formneln


Sub Bild_Anzeigen()
ActiveSheet.Shapes("Picture 1").Visible = True
End Sub


Sub Bild_Ausblenden()
ActiveSheet.Shapes("Picture 1").Visible = False
End Sub

AW: Bilder in Excel anzeigen

10.02.2004 11:51:57

uschdiddi

Hallo Stefan,
vielen Dank für den übermittelten Lösungsansatz. Das hat mir schon geholfen. Danke.
Aber jetzt würde ich gerne noch Folgendes wissen:
A
1 Bild1
2 Bild2
3 Bild3
4 Bild4

Ich möchte den Inhalt einer Zelle A1 bis .... anwählen und als Variable in diese Befehlszeile ActiveSheet.Pictures.Insert("C:\WINDOWS\DeinBild.bmp").Select übernehmen.
Anschließend über einen Button "Bild laden" einblenden
Gibt es da eine Möglichkeit ?
Gruß Dieter

AW: Bilder in Excel anzeigen

10.02.2004 16:38:24

uschadiddi

Hallo Stefan,
habe inzwischen weiter "geforscht" Das folgende Makro funktioniert nur, wenn ich den
Bildnamen dort eintrage. Bei der Übernahme aus einer Zelle kommt die Fehlermeldung:
Laufzeitfehler 1004. (siehe Makrobeispiel)


Sub Bild_Einladen()   'Bild einladen
abc = Cells(1, 2)  ' Pfad und Name des Bildes zB."D:\Daten\bilder\dieter\Bild.bmp"
MsgBox "Der Inhalt der Zelle  1,2 ist " & abc  ' Testausgabe des Zellinhalts ok.  wie vor
'ActiveSheet.Pictures.Insert(& abc).Select  ' HIER KOMMT DIE FEHLERMELDUNG _
Laufzeitfehlermeldung (1004) _
"Die Inserteigenschaft des Picture-Objektes kann nicht zugeordnet werden"
ActiveSheet.Pictures.Insert("D:\Daten\bilder\dieter\Bild.bmp").Select ' hiermit  funktioniert es
'Position von Links
Selection.ShapeRange.IncrementLeft 30.75
'Position von Oben
Selection.ShapeRange.IncrementTop 33#
End Sub

Kannst Du, oder sonst jemand, dazu eine Hilfestellung anbieten.
Würde mich sehr freuen.
Gruß Dieter

AW: Bilder in Excel anzeigen

11.02.2004 19:13:40

Stefan

abc = Cells(1, 2) ' Pfad und Name des Bildes zB."D:\Daten\bilder\dieter\Bild.bmp"
MsgBox "Der Inhalt der Zelle 1,2 ist " & abc ' Testausgabe des Zellinhalts
'ActiveSheet.Pictures.Insert(& abc).Select ' HIER KOMMT DIE FEHLERMELDUNG _
Das & Zeichen ist glaube ich hier der Fehler.
mal so probieren
ActiveSheet.Pictures.Insert(abc).Select ' HIER KOMMT DIE FEHLERMELDUNG _
Gruß Stefan

Schritt-für-Schritt-Anleitung

Um ein Bild in Excel anzuzeigen, ohne es fest im Sheet zu verankern, kannst Du folgende Schritte befolgen:

Öffne Excel und erstelle ein neues Arbeitsblatt.
Aktiviere die Entwicklertools. Falls diese nicht sichtbar sind, gehe zu Datei > Optionen > Menüband anpassen und aktiviere die Entwicklertools.
Füge einen Button hinzu:
- Klicke auf Einfügen und wähle Button (Formularsteuerelement).
Erstelle ein Makro:
- Klicke mit der rechten Maustaste auf den Button und wähle Makro zuweisen.
- Klicke auf Neu, um den VBA-Editor zu öffnen.

Gebe den folgenden Code ein, um ein Bild zu laden:

Sub Bild_Einladen()
   Dim Bildpfad As String
   Bildpfad = Cells(1, 2).Value ' Pfad und Name des Bildes aus Zelle B1
   ActiveSheet.Pictures.Insert(Bildpfad).Select
   ' Position von Links
   Selection.ShapeRange.IncrementLeft 30.75
   ' Position von Oben
   Selection.ShapeRange.IncrementTop 33#
End Sub

Schließe den VBA-Editor und teste den Button.

Häufige Fehler und Lösungen

Laufzeitfehler 1004: Dieser Fehler tritt auf, wenn der Pfad zum Bild nicht korrekt ist. Stelle sicher, dass der Pfad in Zelle B1 korrekt eingegeben ist und das Bild tatsächlich existiert.
Bild wird nicht angezeigt: Überprüfe, ob das Bild im richtigen Format vorliegt (.jpg, .bmp, etc.). Manchmal kann Excel Probleme mit bestimmten Bildformaten haben.

Alternative Methoden

Falls Du eine einfachere Methode zur Anzeige von Bildern in Excel verwenden möchtest, kannst Du das Bild auch direkt in das Arbeitsblatt einfügen und mit Makros die Sichtbarkeit steuern:

Füge das Bild manuell ein (Einfügen > Bilder).
Benenne das Bild im Namensfeld (z.B. "MeinBild").

Verwende folgende Makros, um das Bild sichtbar oder unsichtbar zu machen:

Sub Bild_Anzeigen()
   ActiveSheet.Shapes("MeinBild").Visible = True
End Sub

Sub Bild_Ausblenden()
   ActiveSheet.Shapes("MeinBild").Visible = False
End Sub

Praktische Beispiele

Bild aus einem bestimmten Pfad laden:

Beispiel für die Verwendung einer Zelle als Pfad:

Sub Bild_Einladen()
Dim Bildpfad As String
Bildpfad = Cells(1, 2).Value ' Zelle B1
ActiveSheet.Pictures.Insert(Bildpfad).Select
End Sub

Bild Sichtbarkeit ändern:
- Beispiel zur Steuerung der Sichtbarkeit eines Bildes:
```
Sub Bild_Anzeigen()
ActiveSheet.Shapes("MeinBild").Visible = True
End Sub
```

Tipps für Profis

Verwende absolute Pfade: Stelle sicher, dass die Pfadangaben zu den Bildern absolut sind, damit Excel das Bild korrekt finden kann.
Benutze Namen für Bilder: Benenne Deine Bilder im Namensfeld, um sie leichter im Code referenzieren zu können.
Fehlerbehandlung: Implementiere Fehlerbehandlung in Deinen VBA-Scripts, um Laufzeitfehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich ein Bild aus einer Zelle laden? Du kannst den Pfad des Bildes in eine Zelle eingeben (z.B. B1) und dann diesen Wert im VBA-Code verwenden, um das Bild zu laden.

2. Was tun, wenn das Bild nicht angezeigt wird? Überprüfe, ob der Pfad korrekt ist und ob das Bild im richtigen Format vorliegt. Stelle sicher, dass Du die richtige Zelle referenzierst.

Beliebteste Forumthreads (12 Monate)

Bilder in Excel anzeigen

Forumthread: Bilder in Excel anzeigen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial