Registriert seit: 02.12.2017
Version(en): Office 365
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??
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 02.12.2017
Version(en): Office 365
23.11.2018, 22:23
(Dieser Beitrag wurde zuletzt bearbeitet: 23.11.2018, 22:23 von Frogger1986.)
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??...
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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?
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.12.2017
Version(en): Office 365
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!
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.12.2017
Version(en): Office 365
Ojeee.. OK.. Danke!
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 02.12.2017
Version(en): Office 365
Hättest du mir vll die richtigen Codezeilen bitte?
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
25.11.2018, 16:53
(Dieser Beitrag wurde zuletzt bearbeitet: 25.11.2018, 16:54 von schauan.)
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"
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.12.2017
Version(en): Office 365
Vielen Dank!! Perfekt!
Eine Menge reden, aber nichts sagen können viele...