设置从另一图到当前图的属性将复制下列属性:水平和垂直对齐,当前绘图对象边缘与后续文本之间的距离,打包样式,绘图名称,标题和描述
| 名称 | 类型 | 描述性 |
| o antherLawing | spiDrawing | 绘图属性设置为当前绘图 |
builder.CreateFile("docx")!varoDocuments=api.GetDocumentvarolements=ODocument.GetEplement0oclipse.adText)oclipse.adText)oddtext(形状与文本间距半英吋(457200英文度量器))Var OGs1 = Api.CreateGradientStopVar OGS2 = Api.CreateGradient StopvaroFinll =api.CriateRadialGratientFillvarostroke=api.CreatestrokeVar ODrawing1 = Api.CreateShapeODrawing1.SetDistances(457200457200457200455720000)oDrawing1.SetWrappingStyle("square")!oDrawing1.SetHorAlign("page", "center")!oParagraph.AddDrawing(oDrawing1)!odeptes = Api.CreatelementsodText ("这是另一段.")oDocument.Push(oParagraph)!odeptes = Api.Createlementsoclipse.adTextoDocument.Push(oParagraph)!i.CreteRGBColor(255,111,61)stroke=api.CreatestrokeVar ODrawing2=Api.CreateShapeoDrawing2.SetDrawingPrFromDrawing(oDrawing1)!oParagraph.AddDrawing(oDrawing2)!odeptes = Api.CreatelementsodText ("这是另外的形状.")oDocument.Push(oParagraph)!odeptes = Api.Createlementsodclipse.adTextoDocument.Push(oParagraph)!builder.SaveFile("docx", "SetDrawingPrFromDrawing.docx")!builder.CloseFile();