Crystal Reports 2013如何在函数内获取图片尺寸并设置OLE元素大小

以下是两种可落地的实现方案，兼容Crystal Reports原生语法，无需直接嵌入C#代码：

方案1：自定义函数调用系统COM接口（适合轻量单报表场景） #

Crystal Reports支持通过CreateObject调用Windows原生COM组件读取图片参数，无需额外安装依赖：

• 打开「公式工作室」，新建两个自定义函数，分别读取图片宽高（Crystal语法示例）：

' 自定义函数：获取指定路径图片的宽度（单位：像素）
Function GetImageWidth (picPath as String) as Number
    Dim imgObj
    Set imgObj = CreateObject("WIA.ImageFile")
    imgObj.LoadFile(picPath)
    GetImageWidth = imgObj.Width
    Set imgObj = Nothing
End Function

' 自定义函数：获取指定路径图片的高度（单位：像素）
Function GetImageHeight (picPath as String) as Number
    Dim imgObj
    Set imgObj = CreateObject("WIA.ImageFile")
    imgObj.LoadFile(picPath)
    GetImageHeight = imgObj.Height
    Set imgObj = Nothing
End Function

• 像素转厘米换算公式：实际厘米值 = 像素值 * 0.026458，根据打印DPI可微调换算系数
• 选中OLE图片元素，右键点击「设置对象格式」→「大小」，取消固定尺寸限制，分别将宽度、高度属性绑定到自定义函数返回的换算后数值，同时勾选「锁定纵横比」避免拉伸

方案2：数据源层预处理（适合生产环境/批量报表场景） #

该方案兼容性最高，无COM权限限制问题：

• 直接复用你已有的C#图片宽高读取逻辑，在给报表传输数据源的业务层，提前遍历所有待加载的图片路径，将每个图片的宽高（提前换算为厘米单位）作为两个额外字段存入DataSet/DataTable，和其他业务数据一起传入报表
• 报表内不需要编写任何自定义函数，直接将OLE元素的尺寸属性绑定到数据源对应的宽高字段即可

注意事项 #

• 如果出现图片读取失败，优先确认报表运行环境下的图片路径是否为有效绝对路径，网络共享路径需要给报表运行账户开通读取权限
• 若OLE仍出现强制裁剪，检查OLE对象属性中的「可以增长」「可以缩小」选项是否已勾选

内容的提问来源于stack exchange，提问作者Qhiliqq