Как вставить фото в ворд по размеру страницы

Как вставить фото в ворд по размеру страницы

Argument ‘Topic id’ is null or empty

Сейчас на форуме

© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949

ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071

Как вставить фото в ворд по размеру страницы

Приветствую.
Другой день бодаюсь со вставкой рисунков в Word.

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

 wd.Bookmarks.Item(marker).Select wa.Selection.InlineShapes.AddPicture Filename:=basep & aan, LinkToFile:= _ False, SaveWithDocument:=True wa.Selection.Tables(1).Select With wa.Selection.InlineShapes(1) 'Если Формат - Рисунок - Положение "в тексте" ' Heght = .Height: wigt = .Width ' костыль .LockAspectRatio = -1 'msoTrue 'Формат - Риснок - Размер - Сохранять пропорции .Height = 141.88 'Высота рисунка 227 = 8 см ' .Height = 100 '360 ': .Width = .Height * (wigt / Heght) ' костыль End With

Без костыля меняется только либо высота, либо ширина. При этом ошибки нет
Сегодня создал шаблон с таблицей в 1 ячейку, написал код для вставки

 For Each x In coll .Selection.InsertRowsBelow 1 .Selection.TypeText Text:="Фото № " & x(1) & " " & x(2) .Selection.EndKey Unit:=5, Extend:=1 ' 5 1 .Selection.ParagraphFormat.KeepWithNext = True .Selection.InsertRowsBelow 1 .Selection.ParagraphFormat.KeepWithNext = False .Selection.InlineShapes.AddPicture Filename:=x(3), LinkToFile:= _ False, SaveWithDocument:=True wa.Selection.EndKey Unit:=5, Extend:=1 ' 5 1 With wa.Selection.InlineShapes(1) 'Если Формат - Рисунок - Положение "в тексте" .LockAspectRatio = -1 ' msoTrue 'Формат - Риснок - Размер - Сохранять пропорции .Width = 100 '454 'Ширина рисунка End With Next

Аналогичным кодом вставляю рисунок на лист, но вылетаю с ошибкой.

marker = "ana1" wd.Bookmarks.Item(marker).Select wa.Selection.InlineShapes.AddPicture Filename:=iFulleName, LinkToFile:= _ False, SaveWithDocument:=True With wa.Selection.InlineShapes(1) 'Если Формат - Рисунок - Положение "в тексте" .LockAspectRatio = -1 ' msoTrue 'Формат - Риснок - Размер - Сохранять пропорции .Width = 400 'Высота рисунка 227 = 8 см End With

Подскажите, где собака порылась? И как правильно?

Обработка идет из Excel.

Вставить картинки на все листы документа Word

Приветствую.
Как оказалось VBA Word не мое) Да и не охота осваивать, редко использую, но вот возникла необходимость вставить картинку в документ на все страницы в нужном положении и обтекание-перед текстом-
Что получилось наделать):

1 2 3 4 5 6 7 8 9

Sub Picture() Dim shpCanvas As Shape Set shpCanvas = ActiveDocument.Shapes _ .AddCanvas(Left:=300, Top:=700, _ Width:=600, Height:=400) shpCanvas.CanvasItems.AddPicture _ FileName:="C:\Users\admin\Desktop\4234234234.jpg", _ LinkToFile:=False, SaveWithDocument:=True ' тут бы диалоговое окно для выбора файла картинки, думаю разберусь как End Sub

теперь эту красоту надо на всех страницах разместить)
С циклом по страницам не знаком,
Подскажите пожалуйста.

Добавлено через 8 минут
И ещё есть ли возможность макрос сохранить файлом, чтоб в поле документа перетащить и он установится?

94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Нужно вставить в разные разделы документа Word текст и картинки
Никак не выходит. Разные разделы создаются, ориентация и размер страницы в разделах тоже меняются.

Получить картинки из документа MS Word
Здравствуйте, помогите пожалуйста со следующей задачей. Мне нужно "вытащить" все картинки из.

Как извлечь картинки из Word документа?
Необходимо извлечь имеющиеся картинки из Word, и конвертнуть их в один из форматов web (gif, jpg).

Как во все листы вставить в определенную ячейку название каждого соответствующего листа
Добрый день! Может кто знает — как решить задачу: как во все листы вставить в определенную ячейку.

781 / 463 / 79
Регистрация: 18.05.2016
Сообщений: 1,242
Записей в блоге: 4
картинка на всех страницах — это подложка что ли?
Часто онлайн
854 / 570 / 260
Регистрация: 09.01.2017
Сообщений: 1,924
amd48, нет.
это картинка из файла, поверх текста в нужном месте, на всех листах.
781 / 463 / 79
Регистрация: 18.05.2016
Сообщений: 1,242
Записей в блоге: 4

Сообщение от КостяФедореев

макрос сохранить файлом, чтоб в поле документа перетащить и он установится?

Поле документа — это что в ваших терминах? Если надо иметь макрос, который будет работать с разными документами, то можно разместить его в шаблоне Normal.dot и для него сделать кнопку. Или лучше сделать надстройку — это dot-шаблон в папке %appdata%\Microsoft\Word\STARTUP

Часто онлайн
854 / 570 / 260
Регистрация: 09.01.2017
Сообщений: 1,924

Подложку я умею делать, а тут именно картинка в определенной области

Добавлено через 1 минуту

Сообщение от amd48

Поле документа — это что в ваших терминах? Если надо иметь макрос, который будет работать с разными документами, то можно разместить его в шаблоне Normal.dot и для него сделать кнопку. Или лучше сделать надстройку — это dot-шаблон в папке %appdata%\Microsoft\Word\STARTUP

Думаю это я и имел ввиду, только Вы корректно это описали))
781 / 463 / 79
Регистрация: 18.05.2016
Сообщений: 1,242
Записей в блоге: 4
наверное, так:

1 2 3 4 5 6 7

Dim shpCanvas As Shape Dim i As Byte For i = 1 To ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber) Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=300, Top:=700, Width:=600, Height:=400) shpCanvas.CanvasItems.AddPicture FileName:="C:\Users\admin\Desktop\4234234234.jpg" Selection.GoTo wdGoToPage, wdGoToNext, 1 Next

Часто онлайн
854 / 570 / 260
Регистрация: 09.01.2017
Сообщений: 1,924

amd48, Спасибо! Отлично работает!

Что-то не могу понять, как dot-шаблон сохранить?

Добавлено через 2 минуты
В итоге вышло так(добавил возможность выбора картинки):

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Вертикально() Dim shpCanvas As Shape Dim i As Byte Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogOpen) With fd If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems For i = 1 To ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber) Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=400, Top:=750, Width:=600, Height:=400) shpCanvas.CanvasItems.AddPicture FileName:=vrtSelectedItem Selection.GoTo wdGoToPage, wdGoToNext, 1 Next Next vrtSelectedItem Else End If End With End Sub

781 / 463 / 79
Регистрация: 18.05.2016
Сообщений: 1,242
Записей в блоге: 4

Сообщение от КостяФедореев

как dot-шаблон сохранить?

Сохранить как. Выбрать «шаблон». Ворд автоматически откроет для сохранения папку шаблонов. Но надо выбрать %appdata%\Microsoft\Word\STARTUP
Желательно использовать формат 2003-го ворда, а не эти новые dotxи всё такое. В старых форматах макросы сохранялись без вопросов. В новых надо всегда выбирать формат именно с поддержкой макросов, иначе они не сохранятся. И всё программирование улетит в трубу

Часто онлайн
854 / 570 / 260
Регистрация: 09.01.2017
Сообщений: 1,924

Сообщение от amd48

Сохранить как. Выбрать «шаблон».
А я потом смогу этот шаблон на другой комп перекинуть?
781 / 463 / 79
Регистрация: 18.05.2016
Сообщений: 1,242
Записей в блоге: 4
Файл есть файл. Какие проблемы?
Часто онлайн
854 / 570 / 260
Регистрация: 09.01.2017
Сообщений: 1,924

amd48, действительно, чёто затупил я

Добавлено через 1 минуту
amd48, а в надстройку это все запихать? Это особенный какой-то танец с бубном?
Или решаемо без особых усилий?

Регистрация: 15.09.2019
Сообщений: 45

Доброго времени суток. Похожая ситуация) Есть отсканированные рукописные документы. Их сканы в PNG, в папке C:\Scan\ имена файлов 1.png,2.png,3.png,4.png,5.png вставлять каждый файл на новую страницу. Вот так получается

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

Sub Scan() ' ' Scan Макрос ' ' Selection.WholeStory With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = "" End If .NameFarEast = "" End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(0) .BottomMargin = CentimetersToPoints(0) .LeftMargin = CentimetersToPoints(0) .RightMargin = CentimetersToPoints(0) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1.25) .FooterDistance = CentimetersToPoints(1.25) .PageWidth = CentimetersToPoints(21) .PageHeight = CentimetersToPoints(29.7) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft End With With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpace1pt5 .Alignment = wdAlignParagraphJustify .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .CollapsedByDefault = False End With Selection.InlineShapes.AddPicture FileName:="C:\Scan\1.png", LinkToFile:= _ False, SaveWithDocument:=True Selection.InsertBreak Type:=wdPageBreak Selection.InlineShapes.AddPicture FileName:="C:\Scan\2.png", LinkToFile:= _ False, SaveWithDocument:=True Selection.InsertBreak Type:=wdPageBreak Selection.InlineShapes.AddPicture FileName:="C:\Scan\3.png", LinkToFile:= _ False, SaveWithDocument:=True Selection.InsertBreak Type:=wdPageBreak Selection.InlineShapes.AddPicture FileName:="C:\Scan\4.png", LinkToFile:= _ False, SaveWithDocument:=True End Sub

Но вот можно ли как то вставить из папки Scan не по именам а выбрать все из папки и вставить в документ на каждую страницу одну картинку?

Добавление изображения в Pages на Mac

Вы можете добавлять фотографии, графику и изображения SVG на любую страницу и заменять заполнители медиафайлов собственными изображениями. Можно добавлять изображения из медиатеки, перетягивать их с сайтов или из Finder, а также снимать фото на iPhone или iPad, находящиеся рядом.

Добавление или замена изображения

Выполните одно из указанных ниже действий.

• Перетяните изображение с компьютера или веб-страницы на заполнитель медиафайла или в любое другое место страницы.
• Нажмите в правом нижнем углу заполнителя медиафайла, затем выберите изображение из библиотеки фотографий.
• Нажмите в панели инструментов, выберите «Фото» или «Видео», перейдите к нужному изображению, затем перетяните изображение на страницу или на заполнитель медиафайлов.
• Нажатием выберите изображение, которое нужно заменить, затем в боковой панели «Формат» нажмите вкладку «Изображение». Нажмите «Заменить», затем выберите изображение. Размер нового изображения будет таким же, как размер исходного.

Если заменить изображение на странице не удается, вероятно, оно закреплено или сгруппировано либо является объектом макета раздела.

Создание заполнителя медиафайлов

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

1. Добавьте изображение в документ, а затем отформатируйте это изображение нужным Вам способом. Можно добавить маску или рамку, повернуть изображение, изменить его размер и выполнить другие действия.
2. Нажмите изображение, чтобы его выбрать, затем выберите «Формат» > «Дополнения» > «Определить как заполнитель медиафайлов» (меню «Формат» расположено у верхнего края экрана).

Фотосъемка или сканирование на iPhone или iPad с добавлением изображения в документ

Если у Вас есть iPhone или iPad, Вы можете сделать на нем фото или отсканировать изображение и вставить его напрямую в документ на Mac.

Примечание. Чтобы проверить, поддерживается ли эта возможность на Вашем Mac, iPhone или iPad, обратитесь к статье службы поддержки Apple Системные требования для использования функции «Непрерывность» на устройствах iPhone, iPad, iPod touch, Apple Watch и компьютере Mac.

1. На странице, куда нужно вставить фотографию, нажмите в панели инструментов, затем выберите «Снять фото» или «Отсканировать документы» под именем устройства.
2. На iPhone или iPad выполните одно из указанных ниже действий.
   • Съемка фотографии. Коснитесь , затем коснитесь «Использовать фото» (коснитесь «Переснять», чтобы сделать снимок повторно).
   • Автоматическое сканирование документа. Расположите документ перед камерой, чтобы автоматически сделать снимок страницы, обрезать его и отрегулировать перспективу. Чтобы вставить отсканированное изображение в документ, коснитесь «Сохранить».
   • Сканирование документа вручную. Коснитесь , затем перетяните рамку, чтобы настроить область сканирования. Коснитесь «Оставить», затем коснитесь «Сохранить».
3. Перетяните рамку для кадрирования или перетяните любой манипулятор выбора, чтобы изменить масштаб изображения в документе.

Примечание. При сканировании нескольких объектов в документе отображается только первый объект.

Действия при невозможности заменить изображение или другой объект

Если заменить объект в шаблоне не удается, вероятно, он закреплен или является объектом макета раздела. Для преобразования такого объекта в редактируемый выполните одно из указанных ниже действий.

• Выберите объект, затем в боковой панели «Формат» нажмите вкладку «Расстановка», затем нажмите «Открепить».
• Выберите объект, затем выберите «Расстановка» > «Макеты разделов» > «Разрешить выбирать объекты на макетах» (меню «Расстановка» расположено у верхнего края экрана).

Добавление описания к изображению

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

1. Нажмите изображение, чтобы выбрать его. Затем в боковой панели «Формат» нажмите вкладку «Изображение».
2. Нажмите текстовый блок «Описание» и введите текст.

Если экспортировать документ в формате PDF, текстовые описания изображений будут по-прежнему доступны для вспомогательных технологий. См. раздел Экспорт в Word, PDF или другой формат в Pages на Mac.

О добавлении описаний к изображениям в галерее см. в разделе Добавление галереи изображений. Сведения о том, как добавить к изображению подпись, см. в разделе Создание подписи к изображению или другому объекту.

Для одновременной работы с несколькими изображениями нажимайте их, удерживая клавишу Shift.

Совет. Также можно разбить изображение SVG на фигуры и затем редактировать их по отдельности. Подробнее см. в разделе Объединение или разъединение фигур.