Office: Bild an Zelle anpassen

Monika1991 · 13. Mai 2013

Hallo liebes Forum,

ich möchte gerne ein Bild an die Zellengröße anpassen.
Dafür habe ich folgenden Code verwendet:

Code:

Dim pct As Picture
Dim varBreite As Variant
Dim varHoehe As Variant

' Ermittlung der Spaltenbreite
varBreite = Columns("A:A").Width

Cells(2, 1).Select
Set pct = ActiveSheet.Pictures.Insert("Pfad\Bild.png")

With ActiveSheet.Shapes("Picture 1")
' Auslesen der Breite

ActiveSheet.Shapes("Picture 1").Select
' Selection.ShapeRange.LockAspectRatio = msoTrue

' Bild auf aktuelle Spaltenbreite skalieren
Selection.ShapeRange.Width = varBreite

' Zeilenhöhe festlegen
varHoehe = ActiveSheet.Shapes("Picture 1").Height
Rows(2).RowHeight = varHoehe
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser funktioniert auch so wie ich es gerne möchte. Das Problem ist nur, wenn ich das eingefügte Bild aus der Tabelle lösche und dann wieder einfügen möchte kommt immer eine Fehlermeldung:

"Das Element mit dem angegebenen Namen wurde nicht gefunden"

Über einen Tipp wäre ich sehr dankbar!

Viele Grüße
Monika

:)

Hajo_Zi · 15. Mai 2013

Hallo Monika

das ist doch klar das neue Bild hart den Namen "Piture2"
ich würd With PCT schreiben und auf select usw. verzichten.

Monika1991 · 15. Mai 2013

Hallo Hajo,

danke für den Tipp! Hat mir sehr geholfen!

Schönen Abend noch,

Monika

Office: Bild an Zelle anpassen

Bild an Zelle anpassen

Bild an Zelle anpassen

Bild an Zelle anpassen - Similar Threads - Bild Zelle anpassen

Excel Summe bilden wenn bestimmtes Wort und Zahl in eine Zelle vorhanden

Bilder in Zelle mit Autofilter mitverschieben!

Bild mit Text aus Zelle verknüpfen

Bilder aus Zellen mit Namen exportieren

Erstellen eines Bilds aus Zellen, einem Diagramm oder einem Objekt in Excel

Bild aus Pfad in eine Zelle einfügen

mehrere Bilder zu 1 Zelle verknüpfen