Hallo zusammen!
und zwar..
Ich habe eine Bestellliste mit etlichen Bildern erstellt ( unwissend, dass die eingefügten Bilder einen festen Dateipfad brauchen), nun da ich rausgefunden habe, dass die Bilder einen festen Dateipfad brauchen, hätte ich den gern dynamisch erstellt in verbindung mit "Thisworkbook.Path" eventuell.. oder besser eine Lösung um die eingefügten Bilder fest in die Mappe zu integrieren.. hat mir vll jemand eine Idee??
Ich kann's gerade nicht verstehen.. Im Betrieb hat es mir kein einziges Bild angezeigt, wenn ich den Dateipfad des Quellordners der Bilder geändert habe. Zuhause geht das auf einmal!! Gibt's da auch unterschiede zwischen 2010 und 365er Excel… ? Oder liegt's daran, dass sich der Bildordner und die Arbeitsmappe in einem Ordner befinden??...
Hallöchen,
Zitat:unwissend, dass die eingefügten Bilder einen festen Dateipfad brauchen
Da komm ich jetzt nicht ganz mit. Eingefügte Bilder brauchen doch keinen Pfad mehr?
Ich hab sie via VBA "insert.picture" eingefügt, und sie brauchen einen Pfad! Sobald ich den Ordner mit den Bildern verschiebe, sind sie in der Mappe verschwunden..! Außer sie sind im Ordner in dem sich die Mappe befindet!
Hallöchen,
Zitat:hab sie via VBA "insert.picture" eingefügt
hast Du nicht geschrieben
Wenn Du sie manuell einfügst oder mit AddPicture und die entsprechenden Optionen einstellst brauchen Bilder keinen Pfad.
Hättest du mir vll die richtigen Codezeilen bitte?
Hallöchen,
im Prinzip so:
Code:
Activesheet.Shapes.AddPicture Filename:="C:\Bilder\Bild.jpg", LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1
Durch die beiden -1 wird das Bild in Originalgröße eingefügt. Du kannst z.B. vorher die Werte ermitteln und beim EInfügen verwenden.
Wenn Du mit dem Bild hinterher was anstellen willst, wäre es von Vorteil, es einer Objektvariable zu übergeben. Die verschiedenen Parameter kommen dabei in Klammern:
Code:
Set objShp = ActiveSheet.AddPicture(….)
objShp.Name = "MeinBild1"