Оформление презентаций

   
На этом шаге мы рассмотрим применение цветовых схем к презентации.

   
Для оформления презентации обычно применяются цветовые схемы, шаблоны и образцы. Применить шаблон к презентации можно с
помощью метода ApplyTemplate объекта Presentation:

 W.ActivePresentation.ApplyTemplate('C:\Program Files\Microsoft Office\Template\
      Presentation Designs\'+'Bambo.pot');

   
Приведем пример приложения, использующего указанный метод:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  W:Variant;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  W:=CreateOleObject('PowerPoint.Application');
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  W.Visible:=CheckBox1.Checked;
end;

procedure TForm1.Button2Click(Sender: TObject);
//Закрытие документа
begin
W.ActivePresentation.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 W.Presentations.Add;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 W.Quit;
end;

procedure TForm1.Button5Click(Sender: TObject);
// Применить выбранное оформление
begin
   if OpenDialog1.Execute then
      W.ActivePresentation.ApplyTemplate(OpenDialog1.FileName);
end;

end.

Текст этого приложения можно взять здесь (216,7 Кб).

   
Результат работы приложения приведен на рисунке 1.


Рис.1. Выбор шаблона презентации

   
Отметим, что если до присоединения шаблона к слайдам презентации были применены стандартные цветовые схемы (о них речь
пойдет в следующих шагах), после присоединения шаблона эти цветовые схемы будут утеряны.

   
На следующем шаге мы продолжим изучение этого вопроса.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий