Hallo miteinander.
Ihr seit meine letzte Hoffnung...
Bastle gerade an einer Stammdatenbank. Ich habe hierfür über ein Drop Down Menü auch Bilder eingefügt.
Und zwar so:
ActiveSheet.Shapes.AddPicture(StBild, True, True, pos1, pos2, b, h).Name = "Bild"
Dieses ausgewählte Bild wird dann auch perfekt eingebettet. Alles OK.
Nun brauch ich eine Routine um dieses Blatt gefüllt mit Werten und einem Bild per Button abzuspeichern.
Das hab ich so gemacht:
Dim sFile As String, sPath As String
sPath = ThisWorkbook.Path & "\"
sFile = Range("B2").Value & "_" & _
Range("B3").Value & ".xls"
ActiveWorkbook.SaveAs sPath & sFile
Nun speichert er zwar ab, ABER das Bild verschwindet??? Warum das?
Weiters soll auf dem "neu" gespeichertem Excel-File die Bildauswahl nicht mehr
möglich sein. Sprich das Kombinationsfeld soll gelöscht werden.
Das Bild soll fixiert im neuen File eingefügt sein.
Ich bekome das einfach nicht hin... Bitte um Hilfe.
Gruß
Simone aus Tyrol