Office: Bild einfügen.

Hallo,

Also mein Chef hat mir folgenden Auftrag gegeben.
Er möchte wenn ich auf einen Befehls button clicke, das sich ein Ordner öffnet und ich dort ein Bild aussuchen kann.
Was sich dann, wenn ich es ausgewählt habe, in ein Bilderrahmen (glaube das sich das so nennt ^^) einfügt.
Ich habe auch eine Beispiels Datei angehangen.
:roll:

Ich bitte um eure Hilfe, bin schon total am Verzweifeln.
PS: Word 2003

MFG Mysteh

 

Hallo!

Teste mal dies:

Code:

Private Sub cmdEinfügen_Click()
Dim Datei As Variant
Const LW = "E:\"
Const Pfad = "E:\Fotos"
ChDrive LW
ChDir Pfad
Datei = Application.GetOpenFilename("Alle Dateien(*.*),*.*")
If Datei = False Then Exit Sub
Image1.Picture = Nothing
Image1.Picture = LoadPicture(Datei)
Image1.PictureTiling = False
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

"LW" und "Pfad" musst du nach deinen Wünschen anpassen.

 

Boah Schatzi du bist die beste :-) :-) (Ich denke ma du bist Weiblich^^ wegen dem Namen)
Vielen vielen Dank hat wunderbar geklappt :>


MFG Mysteh

 

Hmm nun habe ich noch eine andere Frage
Kann man da irgendwie gleich noch eine IF bedingung einbauen.
Z.B. Wir haben einfach nochn mehrere Bilder.
Und die IF bedingung soll sein #
Wenn in Image1 = BildName.jpg#
Dann Image2 = Bildname2.jpg
Und kann man das auch mit mehrer IF Bedingungen?

Habe das fordere Beispiel überarbeitet und angehangen das man es nochma Bildlich anschauen kann.


MFG Mysteh