Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как в VBA разместить картинку в нужные места документа? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Работа / Фриланс » Как в VBA разместить картинку в нужные места документа? (Макросы/Sub)
Как в VBA разместить картинку в нужные места документа?
YKR Дата: Среда, 06.04.2022, 17:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Всем добрый день! Заранее прошу прощения, видел подобную тему на этом форуме и других, не во всем разобрался.
Прилагаю ворд документ, в нем в определенные страницы и места нужно поместить несколько повторяющихся картинок. Места выделены желтым цветом, включая нижний колонтитул.
1. Одну картинку нужно поместить в нижний колонтитул. Но так чтобы картинка легла за текст или поверх текста и не раздвигала область колонтитула.
С этим вроде справился. Картинку разместил в левый нижний угол листа. (ну почти в левый.. нижний)
Использовал код, который приведен в файле примера.

[vba]
Код
'Внесение картинки в нижний колонтитул !!!
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter ' переход в нижний колонтитул
Set Shape = Selection.InlineShapes.AddPicture(FileName:="D:\Test\1.png", _
LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range).ConvertToShape
Shape.WrapFormat.Type = wdWrapBehind
'Shape.WrapFormat.Type =wdWrapFront
Shape.Left = wdShapeLeft
Shape.Top = wdShapeBottom
Debug.Print ShapeLeft, ShapeTop
Shape.Left = ShapeLeft + 50
Shape.Top = 785
Shape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
Shape.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Shape.LockAnchor = False
Shape.LayoutInCell = False
Shape.WrapFormat.AllowOverlap = True
Верх_см = Application.PointsToCentimeters(Shape.Top)
Вниз_см = Application.PointsToCentimeters(Shape.Left)

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ' переход из нижнего колонтитула
[/vba]

2. Теперь то что не получается толком - Нужно две картинки поместить в таблицу на последнем листе.
В документе на страницах есть небольшие таблицы. И вот вопрос - а как узнать имя или номер таблицы, что на последнем листе находится?
И как вообще узнать имена нужных таблиц, ведь таблица есть и в нижнем колонтитуле!!!
В ячейки таблицы, которая на последнем листе и нужно привязать картинки. И так, чтобы их можно было их кодом двигать вверх, вниз, вправо влево и частично друг на друга накладывать.

И последнее, использую два варианта вставки картинок - какой здесь более правильный?
[vba]
Код
Selection.InlineShapes.AddPicture FileName:="D:\TEST\1.png", _
LinkToFile:=False, SaveWithDocument:=True
[/vba]
и
[vba]
Код
Set Shape_P = Selection.InlineShapes.AddPicture(FileName:="D:\ФАЙЛЫ_КЛИШЕ\ПЕЧАТЬ\печать.png", _
LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range).ConvertToShape
Shape_P.WrapFormat.Type = wdWrapBehind
[/vba]
Но когда их применяю, то картинки вставляются в левый верхний угол.
И тут нужно или переместить в таблицу которую нужно как-то вычислить или в тексте меток наставить и вставлять картинки по меткам. Но этого не хотелось бы делать.

3. Может есть возможность перемещаться по ворд странице по строкам и позициям в этих строках и туда вставлять картинки?

Помогите советом и кодом, pls!
К сообщению приложен файл: 9092157.doc(94.5 Kb) · 4648321.png(1.5 Kb) · 1560675.png(2.1 Kb)


Сообщение отредактировал YKR - Четверг, 07.04.2022, 09:58
 
Ответить
СообщениеВсем добрый день! Заранее прошу прощения, видел подобную тему на этом форуме и других, не во всем разобрался.
Прилагаю ворд документ, в нем в определенные страницы и места нужно поместить несколько повторяющихся картинок. Места выделены желтым цветом, включая нижний колонтитул.
1. Одну картинку нужно поместить в нижний колонтитул. Но так чтобы картинка легла за текст или поверх текста и не раздвигала область колонтитула.
С этим вроде справился. Картинку разместил в левый нижний угол листа. (ну почти в левый.. нижний)
Использовал код, который приведен в файле примера.

[vba]
Код
'Внесение картинки в нижний колонтитул !!!
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter ' переход в нижний колонтитул
Set Shape = Selection.InlineShapes.AddPicture(FileName:="D:\Test\1.png", _
LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range).ConvertToShape
Shape.WrapFormat.Type = wdWrapBehind
'Shape.WrapFormat.Type =wdWrapFront
Shape.Left = wdShapeLeft
Shape.Top = wdShapeBottom
Debug.Print ShapeLeft, ShapeTop
Shape.Left = ShapeLeft + 50
Shape.Top = 785
Shape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
Shape.RelativeVerticalPosition = wdRelativeVerticalPositionPage
Shape.LockAnchor = False
Shape.LayoutInCell = False
Shape.WrapFormat.AllowOverlap = True
Верх_см = Application.PointsToCentimeters(Shape.Top)
Вниз_см = Application.PointsToCentimeters(Shape.Left)

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ' переход из нижнего колонтитула
[/vba]

2. Теперь то что не получается толком - Нужно две картинки поместить в таблицу на последнем листе.
В документе на страницах есть небольшие таблицы. И вот вопрос - а как узнать имя или номер таблицы, что на последнем листе находится?
И как вообще узнать имена нужных таблиц, ведь таблица есть и в нижнем колонтитуле!!!
В ячейки таблицы, которая на последнем листе и нужно привязать картинки. И так, чтобы их можно было их кодом двигать вверх, вниз, вправо влево и частично друг на друга накладывать.

И последнее, использую два варианта вставки картинок - какой здесь более правильный?
[vba]
Код
Selection.InlineShapes.AddPicture FileName:="D:\TEST\1.png", _
LinkToFile:=False, SaveWithDocument:=True
[/vba]
и
[vba]
Код
Set Shape_P = Selection.InlineShapes.AddPicture(FileName:="D:\ФАЙЛЫ_КЛИШЕ\ПЕЧАТЬ\печать.png", _
LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range).ConvertToShape
Shape_P.WrapFormat.Type = wdWrapBehind
[/vba]
Но когда их применяю, то картинки вставляются в левый верхний угол.
И тут нужно или переместить в таблицу которую нужно как-то вычислить или в тексте меток наставить и вставлять картинки по меткам. Но этого не хотелось бы делать.

3. Может есть возможность перемещаться по ворд странице по строкам и позициям в этих строках и туда вставлять картинки?

Помогите советом и кодом, pls!

Автор - YKR
Дата добавления - 06.04.2022 в 17:41
китин Дата: Четверг, 07.04.2022, 08:43 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
YKR, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеYKR, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 07.04.2022 в 08:43
YKR Дата: Четверг, 07.04.2022, 09:59 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

нет ни одного ответа! можно ли платно это сделать?


Сообщение отредактировал YKR - Четверг, 07.04.2022, 09:59
 
Ответить
Сообщениенет ни одного ответа! можно ли платно это сделать?

Автор - YKR
Дата добавления - 07.04.2022 в 09:59
Serge_007 Дата: Четверг, 07.04.2022, 10:04 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 15415
Репутация: 2537 ±
Замечаний: ±

Excel 2016
Можно

Перенести тему в платный раздел?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеМожно

Перенести тему в платный раздел?

Автор - Serge_007
Дата добавления - 07.04.2022 в 10:04
YKR Дата: Четверг, 07.04.2022, 13:47 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

перенесите, только как там сдвинуть вопрос с места?
[moder]перенес тему[/moder]


Сообщение отредактировал китин - Четверг, 07.04.2022, 13:54
 
Ответить
Сообщениеперенесите, только как там сдвинуть вопрос с места?
[moder]перенес тему[/moder]

Автор - YKR
Дата добавления - 07.04.2022 в 13:47
Мир MS Excel » Работа и общение » Работа / Фриланс » Как в VBA разместить картинку в нужные места документа? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!