Word 2010 Makro Grafik bei Einfügemarke über den Text legen
Hallo allerseits,
ich habe ein kleines Problem mit einem Makro in Word 2010.
Ich möchte eine Unterschriftendatei userabhängig in ein Dokument einfügen. Damit das Ganze dann auch noch gut aussieht, soll die Grafik transparent über den Text. Und genau hier scheitert es bei mir.
Mein Skript sieht bislang so aus:
Sub AutoNew()
'
' Unterschrift Makro
Dim uPfad As String
uPfad = "V:\Unterschriften\" & Environ("USERNAME") & ".GIF"
If Dir(uPfad) = "" Then
MsgBox uPfad, vbCritical, "Unterschriftendatei nicht gefunden"
Exit Sub
End If
If ActiveDocument.Bookmarks.Exists("Unterschrift") = True Then
ActiveDocument.Bookmarks("Unterschrift").Range.InlineShapes.AddPicture uPfad, False, True
End If
'
End Sub
Damit wird die Grafik auch eingefügt, jedoch verschiebt der mir jedesmal die Formatierung des nachfolgenden Textes. Deswegen soll die Grafik halt transparent über den Text.
Vielen Dank im Voraus für Eure Hilfe.
Gruß
Thomas
ich habe ein kleines Problem mit einem Makro in Word 2010.
Ich möchte eine Unterschriftendatei userabhängig in ein Dokument einfügen. Damit das Ganze dann auch noch gut aussieht, soll die Grafik transparent über den Text. Und genau hier scheitert es bei mir.
Mein Skript sieht bislang so aus:
Sub AutoNew()
'
' Unterschrift Makro
Dim uPfad As String
uPfad = "V:\Unterschriften\" & Environ("USERNAME") & ".GIF"
If Dir(uPfad) = "" Then
MsgBox uPfad, vbCritical, "Unterschriftendatei nicht gefunden"
Exit Sub
End If
If ActiveDocument.Bookmarks.Exists("Unterschrift") = True Then
ActiveDocument.Bookmarks("Unterschrift").Range.InlineShapes.AddPicture uPfad, False, True
End If
'
End Sub
Damit wird die Grafik auch eingefügt, jedoch verschiebt der mir jedesmal die Formatierung des nachfolgenden Textes. Deswegen soll die Grafik halt transparent über den Text.
Vielen Dank im Voraus für Eure Hilfe.
Gruß
Thomas
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 205239
Url: https://administrator.de/forum/word-2010-makro-grafik-bei-einfuegemarke-ueber-den-text-legen-205239.html
Ausgedruckt am: 01.04.2025 um 22:04 Uhr
2 Kommentare
Neuester Kommentar
Hallo Thomas,
um eine Grafik in der Z-Richtung zu positionieren muss das Bild erst in ein "Shape" konvertiert werden dann kann es vor oder hinter dem Text positioniert werden.
Grüße Uwe
um eine Grafik in der Z-Richtung zu positionieren muss das Bild erst in ein "Shape" konvertiert werden dann kann es vor oder hinter dem Text positioniert werden.
ActiveDocument.Bookmarks("Unterschrift").Range.InlineShapes.AddPicture(uPfad, False, True).ConvertToShape.ZOrder msoBringInFrontOfText
Grüße Uwe