привязать вставляемую картинку к месту нахождения указателя.

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » привязать вставляемую картинку к месту нахождения указателя.

карандаш

Дата: Понедельник, 13.02.2017, 08:28 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 329

Репутация: 8 ±

Замечаний: 0% ±

2010

есть небольшой макрос по вставлению пары картинок - печать и подпись) на лист.
Картинки вставлялись относительно листа. Доработал (вставил поиск нужного слова) чтобы картинки вставлялись относительно указателя.
При переезде на новый комп доработка потерялась. Вставил поиск нужного слова снова, но привязка пропала. Почему - не могу понять.
Помогите допилить макрос, чтобы якорь был возле найденного слова.

текст макроса (он расположен в системном Normal.dot) такой:

[vba]

Код

Sub ПодписьПечать_()
'
' это тупо скопированная с другого места часть макроса для поиска
Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Директор ООО "
.Forward = True
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1

' А это собственно вставка картинки
ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\подпись.png", _
LinkToFile:=False, SaveWithDocument:=True, Left:=200, Top:=15).WrapFormat.Type = wdWrapNone
ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\Users\kpa\Pictures\печать.png", _
LinkToFile:=False, SaveWithDocument:=True, Left:=363, Top:=17).WrapFormat.Type = wdWrapNone
End Sub

[/vba]

Тут нужно к сообщению добавить файл с макросом, но макрос в Нормале, а не в файле документа и с файлом не передаётся (?)...
да и путь в макросе к картинке тоже нужно править.

p.s. попытка приложить оригинальный файл не увенчалась успехом 374 кб больше 100 допустимых. Сварганил примерно то же самое.

Код

К сообщению приложен файл: Blank_Letter.docx (13.2 Kb)

Сообщение отредактировал карандаш - Понедельник, 13.02.2017, 08:36

Ответить

Сообщениеесть небольшой макрос по вставлению пары картинок - печать и подпись) на лист.
Картинки вставлялись относительно листа. Доработал (вставил поиск нужного слова) чтобы картинки вставлялись относительно указателя.
При переезде на новый комп доработка потерялась. Вставил поиск нужного слова снова, но привязка пропала. Почему - не могу понять.
Помогите допилить макрос, чтобы якорь был возле найденного слова.

текст макроса (он расположен в системном Normal.dot) такой:

[vba]

Код

Автор - карандаш
Дата добавления - 13.02.2017 в 08:28

Boris_R

Дата: Пятница, 31.03.2017, 12:19 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Если не нашли другого решения, попробуйте вставить картинку как InlineShape, а затем преобразовать ее в Shape
[vba]

Код

Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\kpa\Pictures\подпись.png", LinkToFile:=False, _
        SaveWithDocument:=True
    Selection.Paragraphs(1).Range.InlineShapes(1).ConvertToShape

[/vba]
В этом случае меньше проблем с привязкой объекта Shape

Ответить

Страница 1 из 1
1