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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка картинки в документ формата Word - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Вставка картинки в документ формата Word (Вставка картинки в документ формата Word)
Вставка картинки в документ формата Word
oleg1989 Дата: Среда, 23.03.2022, 01:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Доброго времени суток

На одной из веток форума http://www.excelworld.ru/forum/16-17003-1#314537 обсуждался вопрос вставки картинки в документ формата Word

В итоге пользователи выложили скрипт

[vba]
Код
Sub InsertPicture()

Dim wdTable As Object
Dim objWrdDoc As Object
Dim strFile As String
Dim p As InlineShape, t As Object
Dim pShape As Object

On Error Resume Next
strFile = ".... путь к файлу WORD ...."
'прописать путь к Документу
Set objWrdApp = GetObject(, "Word.Application")  'пытаемся подключится к объекту Word
If objWrdApp Is Nothing Then
    Set objWrdApp = CreateObject("Word.Application")  'если приложение закрыто - создаем новый экземпляр
    Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать
    objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(strFile)
On Error GoTo 0
    
Set WdRange = objWrdDoc.Content
Set wdTable = WdRange.Tables(1)

Set p = wdTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture(".... путь к картинке ....", False, True)
'прописать путь к картинке
'вставил абы куда, куда получилось, хотелось бы вставить сразу куда нужно
p.ScaleWidth = 20
p.ScaleHeight = 20
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapNone

t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
t.Left = 260                    'значения, конкретно под этот случай
t.Top = 370                    'значения, конкретно под этот случай

End Sub
[/vba]

Помогите, пожалуйста, с такой проблемой:

1) как "привязать" путь файла WORD, в который будет вставляться картинка, к ячейке, к примеру, F1 файла EXCEL
2) как "привязать" путь файла JPG, которая будет вставляться в файл, к ячейке, к примеру, файла EXCEL

Вопрос связан с тем, что в данных ячейках пути файлов могут меняться в зависимости от прописанной формулы

Заранее спасибо
К сообщению приложен файл: 5077221.rar (323.7 Kb)
 
Ответить
СообщениеДоброго времени суток

На одной из веток форума http://www.excelworld.ru/forum/16-17003-1#314537 обсуждался вопрос вставки картинки в документ формата Word

В итоге пользователи выложили скрипт

[vba]
Код
Sub InsertPicture()

Dim wdTable As Object
Dim objWrdDoc As Object
Dim strFile As String
Dim p As InlineShape, t As Object
Dim pShape As Object

On Error Resume Next
strFile = ".... путь к файлу WORD ...."
'прописать путь к Документу
Set objWrdApp = GetObject(, "Word.Application")  'пытаемся подключится к объекту Word
If objWrdApp Is Nothing Then
    Set objWrdApp = CreateObject("Word.Application")  'если приложение закрыто - создаем новый экземпляр
    Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать
    objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(strFile)
On Error GoTo 0
    
Set WdRange = objWrdDoc.Content
Set wdTable = WdRange.Tables(1)

Set p = wdTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture(".... путь к картинке ....", False, True)
'прописать путь к картинке
'вставил абы куда, куда получилось, хотелось бы вставить сразу куда нужно
p.ScaleWidth = 20
p.ScaleHeight = 20
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapNone

t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
t.Left = 260                    'значения, конкретно под этот случай
t.Top = 370                    'значения, конкретно под этот случай

End Sub
[/vba]

Помогите, пожалуйста, с такой проблемой:

1) как "привязать" путь файла WORD, в который будет вставляться картинка, к ячейке, к примеру, F1 файла EXCEL
2) как "привязать" путь файла JPG, которая будет вставляться в файл, к ячейке, к примеру, файла EXCEL

Вопрос связан с тем, что в данных ячейках пути файлов могут меняться в зависимости от прописанной формулы

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

Автор - oleg1989
Дата добавления - 23.03.2022 в 01:08
oleg1989 Дата: Понедельник, 28.03.2022, 22:02 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

может кому пригодится
сам разобрался

[vba]
Код
Sub InsertPicture()

Dim wdTable As Object
Dim objWrdDoc As Object
Dim strFile As String
Dim p As InlineShape, t As Object
Dim pShape As Object

On Error Resume Next

strFile = Range("E8").Value 'путь к документу (можно "d:\...\Документ.docx")
Set objWrdApp = GetObject(, "Word.Application") 'пытаемся подключится к объекту Word
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application") 'если приложение закрыто - создаем новый экземпляр
Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать
objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(strFile)
On Error GoTo 0

Set WdRange = objWrdDoc.Content
Set wdTable = WdRange.Tables(1)

Set p = wdTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture(Range("C11").Value, False, True) ' путь к картинке (можно "d:\...\печать.png")

'вставка в документ
p.ScaleWidth = 20
p.ScaleHeight = 20
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapNone

t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
t.Left = 260 'значения, конкретно под этот случай
t.Top = 370 'значения, конкретно под этот случай

End Sub
[/vba]


Сообщение отредактировал Serge_007 - Вторник, 29.03.2022, 09:05
 
Ответить
Сообщениеможет кому пригодится
сам разобрался

[vba]
Код
Sub InsertPicture()

Dim wdTable As Object
Dim objWrdDoc As Object
Dim strFile As String
Dim p As InlineShape, t As Object
Dim pShape As Object

On Error Resume Next

strFile = Range("E8").Value 'путь к документу (можно "d:\...\Документ.docx")
Set objWrdApp = GetObject(, "Word.Application") 'пытаемся подключится к объекту Word
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application") 'если приложение закрыто - создаем новый экземпляр
Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать
objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open(strFile)
On Error GoTo 0

Set WdRange = objWrdDoc.Content
Set wdTable = WdRange.Tables(1)

Set p = wdTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture(Range("C11").Value, False, True) ' путь к картинке (можно "d:\...\печать.png")

'вставка в документ
p.ScaleWidth = 20
p.ScaleHeight = 20
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapNone

t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
t.Left = 260 'значения, конкретно под этот случай
t.Top = 370 'значения, конкретно под этот случай

End Sub
[/vba]

Автор - oleg1989
Дата добавления - 28.03.2022 в 22:02
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Вставка картинки в документ формата Word (Вставка картинки в документ формата Word)
  • Страница 1 из 1
  • 1
Поиск:

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