| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Картинки в таблицу Word [D7, XP]
MisterX © (2014-05-26 13:42:00)Всем привет!
Прошу вашей помощи. Нужно картинку image1 вставить в ячейку (1,1) таблицы Ворд нажав кнопочку! Потом другую картинку image1 в ячейку (1,2)! Потом следующую картинку в ячейку (3,1) и т.д.
Помогите пожалуйста, как можно это реализовать.
Заранее благодарю!
oldman (2014-05-26 14:40:00) [21]
> sniknik © (26.05.14 13:47) [1]
Не трать время...
http://delphimaster.ru/cgi-bin/forum.pl?id=1400830587&n=18
sniknik (2014-05-26 14:39:00) [22]тогда открою страшную тайну... чтобы вставить две нужно повторить действие для одной, первой, но указать другую. чтобы 3... ну и т.д.
MisteX (2014-05-26 14:35:00) [23]я знаю как одну картинку вставить!
sniknik (2014-05-26 14:33:00) [24]чудес не бывает... сначала все одно придется сделать "руками", после руками же запрограммировать понятое, руками запустить полученную программу (настроить любой "авто") ... и вот потом, программа, что нибудь сделает "автоматически", например вставит картинку.
или думал в сказке живешь? типа спросил, и золотая рыбка раз тебе готовый код... не, так не бывает.
MisteX (2014-05-26 14:27:00) [25]Нужно чтоб автоматически вставлялась картинка
sniknik (2014-05-26 13:52:00) [26]+
раз уж фигурирует "таблица" то лучше использовать excel.
sniknik (2014-05-26 13:47:00) [27]> Помогите пожалуйста, как можно это реализовать.
универсально, для офиса, переведя созданный "руками" макрос.
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 26.05.2014 ws-131
'
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Сетка таблицы" Then
.Style = "Сетка таблицы"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
Selection.InlineShapes.AddPicture FileName:= _
"C:\Documents and Settings\xxxx\Мои документы\Мои рисунки\3123142.JPG" _
, LinkToFile:=False, SaveWithDocument:=True
End Sub
| |
Страницы: 