Hallo zusammen,
ich hab mal eine Frage an die Profis, da ich aus den Googletreffern nicht schlau werde.
Ich lasse mir per Makro Bilder in eine Exceldatei einfügen, und die Datei wird anschliessend per Outlook versendet. das klappt schon soweit ganz gut; mein Problem ist jedoch, dass die unter Excel 2007 genutzte Funktion Pictures.Insert seit Excel 2010 wohl durch die geänderte Funktion Shapes.AddPicture(...) ersetzt wurde.
Wenn man Pictures.Insert nutzt, dann werden nur die Dateilinks in der Excel gespeichert und die Datei kommt beim Emailempfänger ohne das Bild an.
Leider habe ich von den Parametern dieser neuen Funktion Shapes.AddPicture keinen blassen Schimmer.
Zum Vergleich; unter Excel 2007 konnte ich Bilder noch mit folgendem Code einbinden, formatieren und versenden:
With ActiveSheet.Pictures.Insert(Me.TextBox7.Value
.Name = "Bild1"
End With
ws.Shapes("Bild1").Select
With Selection
.top = ws.Cells(18, 2).top
.left = ws.Cells(18, 2).left
.height = Range("B18:G41").height
.width = Range("B18:G41").width
End With
Ich habe versucht das auf die neue Form zu adaptieren; bekomm es aber nicht hin
With ActiveSheet.Shapes.AddPicture(Filename:=Me.TextBox7.Text, LinktoFile:=False, SaveWithDocument:=True)
.Name = "Bild1"
End With
ws.Shapes("Bild1").Select
With Selection
.top = ws.Cells(18, 2).top
.left = ws.Cells(18, 2).left
.height = Range("B18:G41").height
.width = Range("B18:G41").width
End With
Wenn ich den neuen Code ausführe bringt er mir immer den Laufzeitfehler 450:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"
Was muss ich in der neuen Funktion wie einstellen, damit das Bild wieder im Excel2007-Bildformat (also Position und Größe) übernommen wird?!?!
Wie wird das denn umgerechnet (Zellposition zu Pixel?!)?
Danke und Grüße