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:

procedure TForm2.EkImgBtn6Click(Sender: TObject);
var ueber1, ueber2, ueber3, ueber4, ueber5, sen_v, sen_b, s_art1, s_art2, s_art3, s_art4, s_art5 : String;
s_groe1, s_groe2, s_groe3, s_groe4, s_groe5  : Integer;
begin

Form1.ZQuery1.Close;
Form1.ZQuery1.SQL.Clear;
Form1.ZQuery1.SQL.Add('Select * from powerPoint_auto');
Form1.ZQuery1.Open;
Form1.ZQuery1.First;
PowerPoint := CreateOleObject('PowerPoint.Application');
PowerPoint.Visible := True;
pres:=PowerPoint.Presentations.Add(True);

slide:=PowerPoint.Presentations.Open('P:\rohling.ppt', False);


while Form1.ZQuery1.Eof=false do
begin

slide:=pres.Slides.Add(2, ppLayoutTitle);
ueber1:=Form1.ZQuery1.FieldByName('Text_1').AsString;
ueber2:=Form1.ZQuery1.FieldByName('Text_2').AsString;
ueber3:=Form1.ZQuery1.FieldByName('Text_3').AsString;
ueber4:=Form1.ZQuery1.FieldByName('Text_4').AsString;
ueber5:=Form1.ZQuery1.FieldByName('Text_5').AsString;
s_art1:=Form1.ZQuery1.FieldByName('Text_1_Schriftart').AsString;
s_art2:=Form1.ZQuery1.FieldByName('Text_2_Schriftart').AsString;
s_art3:=Form1.ZQuery1.FieldByName('Text_3_Schriftart').AsString;
s_art4:=Form1.ZQuery1.FieldByName('Text_4_Schriftart').AsString;
s_art5:=Form1.ZQuery1.FieldByName('Text_5_Schriftart').AsString;
s_groe1:=Form1.ZQuery1.FieldByName('Text_1_Schriftgroese').AsInteger;
s_groe2:=Form1.ZQuery1.FieldByName('Text_2_Schriftgroese').AsInteger;
s_groe3:=Form1.ZQuery1.FieldByName('Text_3_Schriftgroese').AsInteger;
s_groe4:=Form1.ZQuery1.FieldByName('Text_4_Schriftgroese').AsInteger;
s_groe5:=Form1.ZQuery1.FieldByName('Text_5_Schriftgroese').AsInteger;
sen_v:=Form1.ZQuery1.FieldByName('Senden_von').AsString;
sen_b:=Form1.ZQuery1.FieldByName('Senden_bis').AsString;


slide.Shapes.Item(1).TextFrame.TextRange.Text := ueber1 ;
//ActiveWindow.Selection.SlideRange.Shapes("Text Box 4").Select

if ueber2='' then ueber2:=#13#10 + #13#10;
slide.Shapes.Item(2).TextFrame.TextRange.Text := ueber2 ;

if ueber3='' then ueber3:=#13#10 + #13#10;
slide.Shapes.Item(2).TextFrame.TextRange.Text := ueber3 ;

if ueber4='' then ueber4:=#13#10 + #13#10;
slide.Shapes.Item(2).TextFrame.TextRange.Text := ueber4 ;

if ueber5='' then ueber5:=#13#10 + #13#10;
slide.Shapes.Item(2).TextFrame.TextRange.Text := ueber5 ;


//slide.shapes.Item(1).TextFrame.TextRange.Characters.Font.Size := 72;
//slide.Shapes.Item(2).TextFrame.TextRange.Text:= 'hallo' + #13#10  + 'du' + #13#10 + 'da';


Form1.ZQuery1.Next;
end;

end;