it-swarm.com.de

VBA zum Einfügen von eingebettetem Bild-Excel

Ich habe viele Beiträge über uns xlApp.activesheet.Pictures.Insert(strImagePath) gesehen, um Bilder mit VBA in eine Kalkulationstabelle einzufügen, was hervorragend funktioniert. Das einzige Problem ist, dass es als verknüpftes Bild eingefügt wird. Wenn ich also die Tabelle aus unserem Netzwerk schicke, schlagen die Bilder fehl. Kann mir jemand sagen, wie ich mit Pictures.Insert das Bild als eingebettetes Bild platzieren kann, oder vielleicht eine andere Methode, mit der es eingebettet werden kann? Ich rufe diese Methode auch vom Zugriff ab, wenn das überhaupt hilft. 

11
DasPete

sie können die Forms.addpicture-Methode verwenden

activesheet.Shapes.AddPicture Filename:="C:\test\desert.jpg", linktofile:=msoFalse, _
            savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=100, Height:=100
20
JosieP
Activesheet.Shapes.AddPicture Filename:="C:\image.jpg", LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1

das funktioniert, vielleicht kann der folgende Code auch jemandem helfen (es hat mir geholfen) So wählen Sie das Bild aus, das Sie gerade hinzugefügt haben:

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select
0
AG9

Beachten Sie, dass Sie die erforderlichen Width- und Height-Parameter auf -1 setzen können, wodurch die Höhe und Breite des Originalbilds beibehalten werden!

Activesheet.Shapes.AddPicture Filename:="C:\image.jpg", LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1

http://excelmatters.com/2013/11/25/default-picture-size-with-shapes-addpicture/

(Als weitere Antwort hinzugefügt, um die Sichtbarkeit zu erhöhen, da ich seit Ewigkeiten mit diesem Problem zu kämpfen habe und diese Lösung nirgendwo anders gefunden habe.)

0
Michael