Bild einfügen

22/01/2008 - 21:26 von andre.gobet | Report spam
Hallo zusammen

Ich habe ein bisschen ein spezielles Anliegen für welches ich leider
noch keine Lösung gefunden habe.

Folgendes wollen wir machen:
Unsere Kunden bekommen von uns ein Blatt mit allen Kontaktpersonen für
die verschiedenen Geschàftsbereiche darin enthalten sind:

- Name und Vorname
- E-Mail Adresse
- Telefon

Dies kann ich natürlich ohne Probleme machen. Nun möchten wir aber bei
jeder von unseren Personen noch das entsprechende Foto der
Mitarbeiterin einfügen.

Ich habe mir das folgendermassen überlegt, ich habe eine UserForm
erstellt mit welcher ich die Daten der Mitarbeiter einlese also den
Namen Telefon-Nr. usw. und die Person welche dann das Dokument
erstellt, kann für die jeweilige Abteilung die richtige Person
auswàhlen.

Nun habe ich mir überlegt dass ich in der Datei von welcher ich die
Daten der Mitarbeiter einlese auch noch den Pfad der Foto Datei
hinterlegen kann, somit würden dann alle Angaben im Dokument eingefügt
und auch noch das entsprechende Foto in's Word Dokument eingefügt.

Das Foto der Mitarbeiter kommt immer an eine spezielle Stelle im Word
Dokument ich müsste also diese Stelle markieren können und dann durch
das Foto ersetzen.

Die Daten der Mitarbeiter sind in einer externen .csv Datei
gespeichert.

Mein effektives Problem ist nun wie kann ich der Userform mitteilen
dass er z.B. wenn ich die Mitarbeiterin "Ramona" auswàhle auch noch
das Foto an eine entsprechende Stelle im Word Dokument einfügen soll.

Die Angaben der Mitarbeiter werden beim Aufruf der UserForm eingelesen
und der Mitarbeiter welcher das Dokument erstellen will hat dann ein
Listenfeld in welchem er den richtigen Mitarbeiter auswàhlen kann, die
Angaben der Mitarbeiter erscheinen in TextFeldern und werden von
diesen ins Dokument kopiert.

Vielen Dank für allfàllige Tipps

Konfig:
- Word 2007
- Windows Viste
 

Lesen sie die antworten

#1 andre.gobet
22/01/2008 - 21:56 | Warnen spam
Re-Bonjour

Habe einen ersten Teil meines Problems bereits gefunden und zwar das
einfügen der Grafik,
dies kann ich nun wie folgt bewerkstelligen:

Dim ils As Word.InlineShape
Set ils Selection.InlineShapes.AddPicture(FileName:=Me.txtImage1)
Set shp = ils.ConvertToShape
shp.WrapFormat.Type = wdWrapNone
shp.ZOrder msoBringInFrontOfText


Jetzt bleibt einfach noch das Problem für das genaue platzieren der
Grafik.

Ähnliche fragen