Guten Tag
Ich möchte ein Bild (Unterschrift) mit einem Makro
unter den Text
->
Mit freundlichen Grüssen
Name Vorname
Hallo,versuchs mal hiermit:
Sub BildhinterTexteinfügen()
Dim inlineBILD As InlineShape, Form As Shape
Set inlineBILD = Selection.InlineShapes.AddPicture(FileName:=„LWBuchstabe:\PFAD\Bild.xxx“, LinkToFile:=False, SaveWithDocument:=True)
inlineBILD.AlternativeText = „hinterText“
inlineBILD.ConvertToShape
For Each Form In ActiveDocument.Shapes
If Form.AlternativeText = „hinterText“ Then
Form.ZOrder 5
End If
Next
Viel Erfolg
Uwe
Hallo Uwe Waldhaeusl
Besten Dank für die schnelle Antwort!
Meine Frage war nicht genau genug… sorry
ich möchte die Unterschrift unter die Grussformel
Mit freundlichen Grüssen
…hier müsste das JPG-Bild plaziert werden…
Jürg Beutler
Hallo, sorry hatte gestern keine Zeit ;-(
Nun aber hoffe ich es korrekt verstanden zu haben.
Den Cursor einfach dort platzieren wo das Bild hin soll und diesen Code ausführen lassen:
Sub BildhinterTexteinfügen()
Dim inlineBILD As InlineShape, Form As Shape
Set inlineBILD = Selection.InlineShapes.AddPicture(FileName:=„LW:\Verzeichnis\BILD.jpg“, LinkToFile:=False, SaveWithDocument:=True)
End Sub
Funktioniert bei mir 
Viel Erfolg
Uwe