需要:将 OLE 对象导出到 Excel 并指定 "Placement" 参数的 DXL 代码
Wanted: DXL code to export OLE object to Excel and specify "Placement" parameter
我有可用的 DXL 代码将 DOORS 模块导出到 Excel,包括调整图片大小并将它们放在所需的单元格上。 ( GalacticSolutions script 的略微修改版本)。据我所知,默认导出应用参数 "Move but do not size with cell." 我想指定 "Move and size with cell." 这很容易在导出后使用 Excel VB 宏,但我想避免这一步。我希望有一些 Oleput()
字符串可以做到这一点,但无法弄清楚。
我今天刚刚解决了这个问题。
在脚本中,我在 Excel VBA 属性部分下添加了一个新常量。
const string cExcelPropertyPlacement = "Placement"
创建了一个新的小子程序:
void excelShapeRangePlacement( OleAutoObj objExcelShapeRange, int OlePlacement ) {
oleResult( olePut( objExcelShapeRange, cExcelPropertyPlacement, OlePlacement ) )
}
然后在 "excelSizeShape" 子例程的末尾调用新例程。
// values: 1-MoveandSize, 2-Move, 3-Freefloating
excelShapeRangePlacement( objExcelShapeRange, 1 )
这应该将 OLE 输出的值设置为 Excel..
我有可用的 DXL 代码将 DOORS 模块导出到 Excel,包括调整图片大小并将它们放在所需的单元格上。 ( GalacticSolutions script 的略微修改版本)。据我所知,默认导出应用参数 "Move but do not size with cell." 我想指定 "Move and size with cell." 这很容易在导出后使用 Excel VB 宏,但我想避免这一步。我希望有一些 Oleput()
字符串可以做到这一点,但无法弄清楚。
我今天刚刚解决了这个问题。 在脚本中,我在 Excel VBA 属性部分下添加了一个新常量。
const string cExcelPropertyPlacement = "Placement"
创建了一个新的小子程序:
void excelShapeRangePlacement( OleAutoObj objExcelShapeRange, int OlePlacement ) {
oleResult( olePut( objExcelShapeRange, cExcelPropertyPlacement, OlePlacement ) )
}
然后在 "excelSizeShape" 子例程的末尾调用新例程。
// values: 1-MoveandSize, 2-Move, 3-Freefloating
excelShapeRangePlacement( objExcelShapeRange, 1 )
这应该将 OLE 输出的值设置为 Excel..