Bilder in eine Zelle

[Kapi]

Hallo Leute,

ich möchte gerne in Excel Bilder in Zellen einfügen, und das Bild soll sich an die Zellebreite und Spaltenhöhe anpassen,

geht das, wenn ja wie.

[coemm]

ich möchte gerne in Excel Bilder in Zellen einfügen, und das Bild soll sich an die Zellebreite und Spaltenhöhe anpassen,

geht das, wenn ja wie.

Geht ja, macht aber keinen Sinn, wenn das Seitenverhältnis der Zelle nicht das gleiche wie beim Bild ist.

[schauan]

Hallöchen,

sehen tust Du den Hinweis von Conny bzw. die Auswirkung davon, wenn Du Bilder einfügst. Hier wäre mal ein Code, wo Du den Bildnamen händisch eingibst. Die Zelle musst Du zuerst auswählen. Ich habe den Code jetzt in der Höhe auch auf die Zelle bezogen und nicht wie Du schriebst auf die Spalte.

Code:

Option Explicit

Private Sub BildRein()
'von schauan
'Variablendeklarationen
Dim strBild As String, strBildPfad As String
'Pfad zu den Bildern
strBildPfad = "G:\_schauan_Bilder\"
'Bildname eingeben
strBild = InputBox("Eingabe Dateiname: ", "Bildimport", "")
'Wenn kein Bild vorhanden ist, dann
If Dir(strBildPfad & strBild) = "" Then
  'Text ausgeben
  ActiveCell.Value = "kein Bild"
'oder Wenn ein Bild vorhanden ist, dann
Else
  'Bild in aktive Zelle einfügen, Größe anpassen und Name vergeben
  ActiveSheet.Shapes.AddPicture(strBildPfad & strBild, True, True, ActiveCell.Left, _
    ActiveCell.Top, ActiveCell.Width, ActiveCell.Height).Name = "Bild " & strBild
'Ende Wenn kein Bild vorhanden ist, dann
End If
End Sub