Sub MyMacro()
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
End Sub
Помогите с макросом
Доброго времени суток.
Проблема такая. Нужно с помощью макроса уложить картинку
в нутри Word документа. Причём не просто где попало или там где курсор. А в определённом месте например внутри таблицы или в каком небудь другом элементе отображения. Подскажите как это можно сделать ?
За ранее благодарствую.
Проблема такая. Нужно с помощью макроса уложить картинку
в нутри Word документа. Причём не просто где попало или там где курсор. А в определённом месте например внутри таблицы или в каком небудь другом элементе отображения. Подскажите как это можно сделать ?
За ранее благодарствую.
В последних экспериментах я накопал вот это:
Но всё ещё есть проблема.
Такой макрос размещает картинку туда где курсор.
Но мне нужно размещение в опредлённом месте в независимости от курсора.
Подскажите как это можно сделать ?
Код:
Но всё ещё есть проблема.
Такой макрос размещает картинку туда где курсор.
Но мне нужно размещение в опредлённом месте в независимости от курсора.
Подскажите как это можно сделать ?
Цитата: BigBug
В последних экспериментах я накопал вот это:
Но всё ещё есть проблема.
Такой макрос размещает картинку туда где курсор.
Но мне нужно размещение в опредлённом месте в независимости от курсора.
Подскажите как это можно сделать ?
Код:
Sub MyMacro()
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
End Sub
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
End Sub
Но всё ещё есть проблема.
Такой макрос размещает картинку туда где курсор.
Но мне нужно размещение в опредлённом месте в независимости от курсора.
Подскажите как это можно сделать ?
Код:
Sub MyMacro()
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
Selection.ShapeRange.Left = 250
Selection.ShapeRange.Top = 250
End Sub
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
Selection.ShapeRange.Left = 250
Selection.ShapeRange.Top = 250
End Sub
Спасиба за инфу.
Но можно по подробнее о строке :
Мне не совсем понятно что такое Shapes в данном случае и как
этот элемент создаётся в нутри документа.
Но можно по подробнее о строке :
Код:
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
Мне не совсем понятно что такое Shapes в данном случае и как
этот элемент создаётся в нутри документа.
Цитата: BigBug
Спасиба за инфу.
Но можно по подробнее о строке :
Мне не совсем понятно что такое Shapes в данном случае и как
этот элемент создаётся в нутри документа.
Но можно по подробнее о строке :
Код:
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
Мне не совсем понятно что такое Shapes в данном случае и как
этот элемент создаётся в нутри документа.
Shapes - коллекция контейнеров для хранения изображений. Когда ты добавляеш изображение, кол-во элементов в коллекции - увеличивается.
Добавляем изображение:
Код:
Selection.InlineShapes.AddPicture FileName:= _
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
"C:\picture.bmp", LinkToFile:=False, _
SaveWithDocument:=True
После добавления делаем необходимое изображение активным и задаем ему координаты:
Код:
ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
Selection.ShapeRange.Left = 250
Selection.ShapeRange.Top = 250
Selection.ShapeRange.Left = 250
Selection.ShapeRange.Top = 250
Координаты задаются в пикселях и тебе прийдется самому определить, куда поместить изображение.
Вставить рисунок можно ещё и так :
Код:
ThisDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
'ActiveDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
'ActiveDocument.Shapes.AddPicture FileName:="C:\Picture.jpg", Left:=250, Top:=50
Спасиба Pashulka.
То что нужно !
То что нужно !