Вставка изображения на ВСЕХ страницах текстового документа

277
Madter

У меня есть следующий код:

 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

Вопрос в том, что я хочу вставить изображение на ВСЕХ страницах документа, а не только на странице выбора. Я пытался изменить диапазон, но это не сработало.

Заранее спасибо!

0
Вместо этого вы захотите перебрать все ваши заголовки, чтобы вставить изображение во все заголовки, чтобы оно появилось на каждой странице. Tanya 5 лет назад 0
Проблема в том, что он должен быть вставлен в правом нижнем углу всех страниц. У меня уже есть изображения в верхнем и нижнем колонтитулах. Madter 5 лет назад 0
Вы все еще должны быть в состоянии указать точное положение изображения (например, конкретные сантиметры или точки от нижней части страницы и правого поля или «относительно» того же). Tanya 5 лет назад 0

1 ответ на вопрос

0
Rich Michaels

Для изображений, которые вы хотите отображать на всех страницах, они должны быть помещены в область заголовка. Вам не нужен макрос для этого.

Похожие вопросы