Bilder automatisch in Excel einfügen mit maximaler Größe

Question

Hallo zusammen,

ich habe den VBA vom Oliver bzgl. "Bilder automatisch in Excel einfügen"
(Quelle: https://supportnet.de/fresh/2005/11/id1193541.asp)
Funktioniert super. Vielen Dank.
Ich hätte gerne die Erweiterung, dass das einzufügende Bild nur eine bestimmte Größe/Pixel hat und somit in die Zelle passt.

Ist das möglich?

Danke im Voraus für Eure Unterstützung

Answer 1

Hallo ?!

Nachfolgender Code fügt Dir ein Bild in C3 mit einer festen Größe von 12x12 ein.

[code]Sub Bild_einfügen()
Dim objBild                 As Object

Set objBild = ActiveSheet.Shapes.AddPicture("Pfad und Dateiname mit Bildendung", _
                    False, True, Range("C3").Left, Range("C3").Top, 12, 12)
End Sub[/code]

Anstelle des Textes "[i]Pfad und Dateiname mit Bildendung[/i]" musst Du Deinen Pfad und Deinen Bildnamen eintragen, z.B. "[i]C:\Testbild.jpg[/i]" .

Gruß,
Oliver

Answer 2

Hallo Oliver,

vielen Dank. Spitze. Funktioniert wunderbar.
Hätte nicht gedacht, dass es so schnell und einfach funktioniert.

Nochmals vielen Dank und schönen Abend
ömö