Word Makro - Grafik formatieren
Mit Makro eine Grafik "Hinter den Text" stellen.
Die eingefügte Grafik kann ich mit dem Word-Makro nicht in den Hintergrund stellen. Hat jemand eine Idee?
Selection.GoTo What:=wdGoToBookmark, Name:="sign"
' Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InlineShapes.AddPicture FileName:="H:\" & Environ("Username") & "\Unterschrift.jpg", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub
Danke!!!!!!
Selection.GoTo What:=wdGoToBookmark, Name:="sign"
' Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.InlineShapes.AddPicture FileName:="H:\" & Environ("Username") & "\Unterschrift.jpg", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub
Danke!!!!!!
Please also mark the comments that contributed to the solution of the article
Content-Key: 67860
Url: https://administrator.de/contentid/67860
Printed on: April 25, 2024 at 20:04 o'clock