Einfügen eines Bildes auf ALLE Seiten eines Word-Dokuments

425
Madter

Ich habe folgenden Code:

 Sub ImageInsert() Application.ScreenUpdating = False Dim Rng As Range, Shp As Shape, StrImg As String StrImg = "filepath" Set Rng = Selection.Range Rng.Collapse Set Shp = ActiveDocument.InlineShapes.AddPicture(FileName:=StrImg, _ SaveWithDocument:=True, Range:=Rng).ConvertToShape With Shp .LockAspectRatio = True .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .Left = wdShapeRight .RelativeVerticalPosition = wdRelativeVerticalPositionMargin .Top = wdShapeBottom .WrapFormat.Type = wdWrapTopBottom End With Set Rng = Nothing: Set Shp = Nothing Application.ScreenUpdating = True End Sub

Die Frage ist, dass ich das Bild auf ALLEN Seiten im Dokument einfügen möchte, anstatt nur auf der Auswahlseite. Ich habe versucht, den Bereich zu ändern, aber es scheint nicht zu funktionieren.

Danke im Voraus!

0
Sie möchten stattdessen alle Kopfzeilen durchlaufen, um das Bild in alle Kopfzeilen einzufügen, sodass es auf jeder Seite angezeigt wird. Tanya vor 5 Jahren 0
Das Problem ist, dass es in der rechten unteren Ecke aller Seiten eingefügt werden muss. Ich habe bereits Bilder in Kopf- und Fußzeile. Madter vor 5 Jahren 0
Sie sollten dennoch in der Lage sein, die genaue Position des Bildes anzugeben (z. B. bestimmte Zentimeter oder Punkte vom unteren Rand der Seite und dem rechten Rand oder "relativ zu" gleich). Tanya vor 5 Jahren 0

1 Antwort auf die Frage

0
Rich Michaels

Bilder, die auf allen Seiten angezeigt werden sollen, sollten im Kopfbereich platziert werden. Sie benötigen dazu kein Makro.

Verwandte Probleme