提供3000多款全球软件/控件产品
针对软件研发的各个阶段提供专业培训与技术咨询
根据客户需求提供定制化的软件开发服务
全球知名设计软件,显著提升设计质量
打造以经营为中心,实现生产过程透明化管理
帮助企业合理产能分配,提高资源利用率
快速打造数字化生产线,实现全流程追溯
生产过程精准追溯,满足企业合规要求
以六西格玛为理论基础,实现产品质量全数字化管理
通过大屏电子看板,实现车间透明化管理
对设备进行全生命周期管理,提高设备综合利用率
实现设备数据的实时采集与监控
利用数字化技术提升油气勘探的效率和成功率
钻井计划优化、实时监控和风险评估
提供业务洞察与决策支持实现数据驱动决策
原创|其它|编辑:郝浩|2012-09-04 15:01:33.000|阅读 1027 次
概述:大家都知道,水印是电子表格中比较常见的应用。所以,强大的Aspose.Cells自然也有添加水印的功能啦,那么,这一功能具体是如何实现的呢?
# 慧都年终大促·界面/图表报表/文档/IDE等千款热门软控件火热促销中 >>
大家都知道,水印是电子表格中比较常见的应用。所以,强大的Aspose.Cells自然也有添加水印的功能啦,那么,这一功能具体是如何实现的呢?
下面,就由慧都小编给出一个实例,供大家学习使用:
本例中,我们的目的就是为Excel文件中的一个图表添加艺术字背景水印。
首先,让我们来看一下添加水印前的效果图:
接下来,我们输入相应的代码:
[C#]
//Instantiate a new workbook.
//Open the existing excel file.
Workbook workbook = new Workbook("e:\\test\
\Report_Test1.xls");
//Get the chart in the first worksheet.
Aspose.Cells.Charts.Chart chart = workbook.Worksheets
[0].Charts[0];
//Add a WordArt watermark (shape) to the chart's plot area.
Aspose.Cells.Drawing.Shape wordart =
chart.Shapes.AddTextEffectInChart
(MsoPresetTextEffect.TextEffect2,
"CONFIDENTIAL", "Arial Black", 66, false, false, 1200, 500,
2000, 3000);
//Get the shape's fill format.
Aspose.Cells.Drawing.MsoFillFormat wordArtFormat =
wordart.FillFormat;
//Set the transparency.
wordArtFormat.Transparency = 0.9;
//Get the line format and make it invisible.
Aspose.Cells.Drawing.MsoLineFormat lineFormat =
wordart.LineFormat;
lineFormat.IsVisible = false;
//Save the excel file.
workbook.Save("e:\\test\\outReport_Test1.xls");
[VB]
'Instantiate a new workbook.
'Open the existing excel file.
Dim workbook As New Workbook("e:\test\Report_Test1.xls")
'Get the chart in the first worksheet.
Dim chart As Aspose.Cells.Charts.Chart =
workbook.Worksheets(0).Charts(0)
'Add a WordArt watermark (shape) to the chart's plot area.
Dim wordart As Aspose.Cells.Drawing.Shape =
chart.Shapes.AddTextEffectInChart
(MsoPresetTextEffect.TextEffect2, "CONFIDENTIAL", "Arial
Black", 66, False, False, 1200, 500, 2000, 3000)
'Get the shape's fill format.
Dim wordArtFormat As Aspose.Cells.Drawing.MsoFillFormat =
wordart.FillFormat
'Set the transparency.
wordArtFormat.Transparency = 0.9
'Get the line format and make it invisible.
Dim lineFormat As Aspose.Cells.Drawing.MsoLineFormat =
wordart.LineFormat
lineFormat.IsVisible = False
'Save the excel file.
workbook.Save("e:\test\outReport_Test1.xls")
最后,让我们来看一下代码运行后的效果图吧:
本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@pclwef.cn
文章转载自:本站原创面对“数字中国”建设和中国制造2025战略实施的机遇期,中车信息公司紧跟时代的步伐,以“集约化、专业化、标准化、精益化、一体化、平台化”为工作目标,大力推进信息服务、工业软件等核心产品及业务的发展。在慧都3D解决方案的实施下,清软英泰建成了多模型来源的综合轻量化显示平台、实现文件不失真的百倍压缩比、针对模型中的大模型文件,在展示平台上进行流畅展示,提升工作效率,优化了使用体验。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
本站的模型资源均免费下载,登录后即可下载。模型仅供学习交流,勿做商业用途。
服务电话
重庆/ 023-68661681
华东/ 13452821722
华南/ 18100878085
华北/ 17347785263
客户支持
技术支持咨询服务
服务热线:400-700-1020
邮箱:sales@pclwef.cn
关注我们
地址 : 重庆市九龙坡区火炬大道69号6幢