设置字体方案当前演示文稿主题
| 名称 | 类型 | 描述性 |
| OApiFontScheme | ApiThemeFontScheme | 主题字体机制 |
builder.CreateFile("pptx")!varoPresentation=api.GetpresentationvaroSlide=oPresentation.getSlideByIndex0var oFontScheme=api.CreatethemeFontSchemevaromesslideoTheme.SetFontScheme(oFontScheme)!oSlide.RemoveAllObjects()!varoFinll =api.CreateSolidFillvarostroke=api.CreatestrokeVar Oshape = Api.CreateShapeoShape.SetPosition(608400, 1267200)!varoccontent=oshape.getdoccontentoDocContent.RemoveAllElements()!varodeptes=api.CreateleoParagraph.SetJc("left")!oclipse.adText(“这是带新字体图集的段落示例”)oDocContent.Push(oParagraph)!oSlide.AddObject(oShape)!builder.SaveFile("pptx", "SetFontScheme.pptx")!builder.CloseFile();