PowerPoint Layout属性的常数(20分)

Layout 属性


返回或设置幻灯片版式。可读写。Long。

可为以下 PpSlideLayout 常数之一：

ppLayoutBlank
ppLayoutChart

ppLayoutChartAndText

ppLayoutClipartAndText

ppLayoutClipArtAndVerticalText

ppLayoutFourObjects

ppLayoutLargeObject

ppLayoutMediaClipAndText

ppLayoutMixed

ppLayoutObject

ppLayoutObjectAndText

ppLayoutObjectOverText

ppLayoutOrgchart

ppLayoutTable

ppLayoutText
ppLayoutTextAndChart
ppLayoutTextAndClipart

ppLayoutTextAndMediaClip

ppLayoutTextAndObject

ppLayoutTextAndTwoObjects

ppLayoutTextOverObject

ppLayoutTitle

ppLayoutTitleOnly

ppLayoutTwoColumnText

ppLayoutTwoObjectsAndText

ppLayoutTwoObjectsOverText

ppLayoutVerticalText

ppLayoutVerticalTitleAndText

ppLayoutVerticalTitleAndTextOverChart

分别对应的数字是多少

在msppt2000.pas
或者msppt8.pas
文件中查找ppLayoutBlank
有些定义的常量也有可能在office2000.pas中
只要查找就可以。

type
PpSlideLayout = TOleEnum;
const
ppLayoutMixed = $FFFFFFFE;
ppLayoutTitle = $00000001;
ppLayoutText = $00000002;
ppLayoutTwoColumnText = $00000003;
ppLayoutTable = $00000004;
ppLayoutTextAndChart = $00000005;
ppLayoutChartAndText = $00000006;
ppLayoutOrgchart = $00000007;
ppLayoutChart = $00000008;
ppLayoutTextAndClipart = $00000009;
ppLayoutClipartAndText = $0000000A;
ppLayoutTitleOnly = $0000000B;
ppLayoutBlank = $0000000C;
ppLayoutTextAndObject = $0000000D;
ppLayoutObjectAndText = $0000000E;
ppLayoutLargeObject = $0000000F;
ppLayoutObject = $00000010;
ppLayoutTextAndMediaClip = $00000011;
ppLayoutMediaClipAndText = $00000012;
ppLayoutObjectOverText = $00000013;
ppLayoutTextOverObject = $00000014;
ppLayoutTextAndTwoObjects = $00000015;
ppLayoutTwoObjectsAndText = $00000016;
ppLayoutTwoObjectsOverText = $00000017;
ppLayoutFourObjects = $00000018;
ppLayoutVerticalText = $00000019;
ppLayoutClipArtAndVerticalText = $0000001A;
ppLayoutVerticalTitleAndText = $0000001B;
ppLayoutVerticalTitleAndTextOverChart = $0000001C;

to realLearning
谢谢
我还有一个问题
就是怎样把Richedit的内容通过
with PowerPointSlide1 do
begin
Shapes.AddTextbox(msoTextOrientationHorizontal,
100, 100, 350, 50).TextFrame.TextRange.Text := 'Test Box';
[red]//这里不知道怎样把Richedit的内容给它。[/red]
Shapes.Item(Shapes.Count).TextFrame.TextRange.Paste;
With Shapes.Item(Shapes.Count).TextFrame.TextRange.Font do
begin
NameAscii := 'Arial';
NameFarEast := '宋体';
NameOther := 'Arial';
Size := 50;
Bold := msoFalse;
Italic := msoFalse;
Underline := msoFalse;
Shadow := msoFalse;
Emboss := msoFalse;
BaselineOffset := 0;
AutoRotateNumbers := msoFalse;
Color.SchemeColor := ppForeground;
Color.RGB := RGB(255, 204, 255);
end;
end;

Shapes.AddTextbox(msoTextOrientationHorizontal,
100, 100, 350, 50).TextFrame.TextRange.Text := RichEdit.Lines.Text

to realLearning
文本的内容不能保留它原先的格式呀

接受答案了.