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

Регистрация

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

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

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

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

Как в VBA разместить картинку в нужные места документа? (Макросы/Sub)

Как в VBA разместить картинку в нужные места документа?

Дата: Среда, 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!

Всем добрый день! Заранее прошу прощения, видел подобную тему на этом форуме и других, не во всем разобрался.
Прилагаю ворд документ, в нем в определенные страницы и места нужно поместить несколько повторяющихся картинок. Места выделены желтым цветом, включая нижний колонтитул.
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

К сообщению приложен файл: 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

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 07.04.2022, 09:59 | Сообщение № 3

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

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

Сообщений: 7

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

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

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

Сообщение отредактировал YKR - Четверг, 07.04.2022, 09:59

Ответить

Дата: Четверг, 07.04.2022, 10:04 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Можно

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Четверг, 07.04.2022, 13:47 | Сообщение № 5

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

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

Сообщений: 7

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

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

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

Сообщение отредактировал китин - Четверг, 07.04.2022, 13:54

Ответить

Как в VBA разместить картинку в нужные места документа? (Макросы/Sub)

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

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