Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Картинки в таблицу Word [D7, XP]

Страницы: 1 2 >
MisterX © (2014-05-26 13:42:00)
Всем привет!
Прошу вашей помощи. Нужно картинку image1 вставить в ячейку (1,1) таблицы Ворд нажав кнопочку! Потом другую картинку image1 в ячейку (1,2)! Потом следующую картинку в ячейку (3,1) и т.д.
Помогите пожалуйста, как можно это реализовать.
Заранее благодарю!

Inovet (2014-05-26 18:48:00) [1]
> [26] Inovet © (26.05.14 18:47)
> Это ты

В смысле - тот Скайвокер и ты говорите.

Inovet (2014-05-26 18:47:00) [2]
> [5] MisteX (26.05.14 14:35)
> я знаю как одну картинку вставить!

Это ты третий раз за месяц говоришь. Допустим, знаешь. Тогда в чём проблема вставить несколько неняя в цикле координаты (номер) ячейки? С диска получить нужные файлы? Тогда см функции
FindFirst
FindNext
FindClose
Пример есть в справке.

brother (2014-05-26 17:01:00) [3]
[19] ага, это ты и есть... и комбобоксы и ворд, все как у него и у Вас) ...

sniknik (2014-05-26 16:47:00) [4]
> блин((( думал здесь помогут(((
здесь именно что помогают, с конкретными проблемами/неясностями, а делать предполагается должен все таки автор.
ты же явно думал о чем-то другом, т.к. на помощь не реагировал, ждал чего-то другого.

> в таком случае не буду заморачиваться)))
хэпи энд.
и вам не хворать.

MisteX (2014-05-26 16:33:00) [5]
блин((( думал здесь помогут(((
Спасибо большое всем:) в таком случае не буду заморачиваться)))

sniknik (2014-05-26 16:08:00) [6]
"показания" меняются по ходу. то нужен список, то уже по одному выбирать (а как же про 200-раз? + одну то говорил можешь, и в чем теперь проблема? вот оно выбор всегда по одной...).
не реализуемо.
есть единственный вариант, но никто на него не согласен - нанять программиста. ОЧЕНЬ дорого, т.к. такая же непоследовательность будет и в ТЗ.

MisteX (2014-05-26 16:02:00) [7]
почему?:(

sniknik (2014-05-26 15:58:00) [8]
Palladin © (23.05.14 18:03) [45]
> Бездарная потеря времени.
+1

MisteX (2014-05-26 15:47:00) [9]
Видел другую тему, там некий SkyWalker писал. Что-то подобное нужно.
То есть что я уже сделал:
в комбобокс выбираю имя файла, на имэйж1 появляется соответсвующая картинка.
и вот ее нужно при помощи Button1 вставить в ячейку 1,1 например.
потом выбираю в комбо другое имя файла, на имэйдж появляется соответствующая картинка, тык Button, она в ячейке 1,2.
и т.д.
Вот как это сделать?
Или у меня лыжи не едут?:)

sniknik (2014-05-26 15:40:00) [10]
упс Selection случайно вырезал... ну неважно.

sniknik (2014-05-26 15:39:00) [11]
примерно так (код написан прямо здесь без проверки)
for i:=0 to N do
for j:=0 to 1 do
App.ActiveDocument.Tables.Item(1).Cell(i,j).InlineShapes.AddPicture(FileName:= MakeFileName(i,j)+'.JPG', LinkToFile:=False, SaveWithDocument:=True);

твоя функция MakeFileName - тут по i, j должно определятся имя вставляемого файла. зависимость должна быть, если нету сделай ее.

MisteX (2014-05-26 15:21:00) [12]
procedure TForm1.Button2Click(Sender: TObject);
i,j,N:Integer;
begin
for i:=0 to N do
for j:=0 to 1 do
begin

end;
end;

Как вставить картинку в ячейку (1,1) например? Всего 2 столбца, 5 строк

MisteX (2014-05-26 15:17:00) [13]
блондинкой себя чувствую:(

sniknik (2014-05-26 15:08:00) [14]
> Начало верное?
нет, "хардкод" картинки, ее тоже нужно менять, и лучше из файла ([1]) а не клипборда.

sniknik (2014-05-26 15:02:00) [15]
> sniknik, а если у тебя 200 картинок?
плевать. программируешь любой алгоритм вставки (нормально с параметрами, а не хардкодя позиции ячеек), + цикл на n-раз... хотя не, n мало, m раз!

MisteX (2014-05-26 15:00:00) [16]
junglecat а если Вы не знаете сколько их будет?

MisteX (2014-05-26 14:59:00) [17]
oldman с ACol и ARow понятно. Как забить переменную чтоб получилась то что нужно?

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to 100 do
for j:=0 to 1 do
begin
ClipBoard.Assign(Image1.Picture);
App.ActiveDocument.Tables.Item(1).Cell(i,j).Selection.Paste;
end;
end;

Начало верное?

junglecat (2014-05-26 14:55:00) [18]
> если у тебя 200 картинок?

надо 200 раз сделать ctrl+c / ctrl+v кода из [1]

MisteX (2014-05-26 14:49:00) [19]
sniknik, а если у тебя 200 картинок?

sniknik (2014-05-26 14:42:00) [20]
;(

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »