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!!!!!!
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!!!!!!
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 67860
Url: https://administrator.de/forum/word-makro-grafik-formatieren-67860.html
Ausgedruckt am: 02.05.2025 um 10:05 Uhr