本教程介绍如何在多个工作表中添加相同的图片?
XLSReadWriteII是一个多功能的文档处理组件,能在Delphi和.NET下访问Excel文件,你能使用它进行文档的操纵,可最大程度提升你的工作效率。
XLSReadWriteII最新试用版
八月Axolot Data优惠大酬宾,现在联系在线客服可提前了解活动详情!
虽然现在XLSReadWriteII已经升级到6了,但是还是有很大一部分用户还在使用4,而在使用4的过程中,有的用户会遇到当需要在多张纸上添加相同图片的时候,可是图片仅显示在第一张纸上,然后下一张纸不显示的情况。这时候怎么解决这个问题呢有的问题都在本教程中解决。
解决方法有两种:
您可以为每张图片提供不同的名称。添加序列 或者将文件编 添加到文件名中都是可以的。
-
注意: 这里更改的不是PictureName,而是图片的文件名。当然,这会增加图片文件的数量,但是这些重命名的文件通常位于临时目录中,或者可以通过编程方式进行控制。
如果以上方法不适用,那么可以使用下一个方法,使用以下代码来解决:
TXLSReadWriteII4* xls = new TXLSReadWriteII4(NULL);xls->Filename = fn;xls->Version = xvExcel97;if(!xls->Sheets->Count) xls->Sheets->Add();TSheet* xlSht = xls->Sheets->Items[0];TMSOPicture* msoPict = xls->MSOPictures->Add();int picID = xls->MSOPictures->Count;msoPict->LoadFromFile(ExtractFilePath(Application->ExeName) + "logo.jpg");TDrwPicture* drwPict = xlSht->DrawingObjects->Pictures->Add();drwPict->PictureId = picID;drwPict->Col1 = 1;drwPict->Row1 = 1;drwPict->Col1Offset = 0.08;drwPict->Row1Offset = 0.05;drwPict->Col2 = 1;drwPict->Row2 = 2;drwPict->Col2Offset = 0.92;drwPict->Row2Offset = 0.95;xls->Write();
如果有需要也可以转换成Delphi代码。
走过路过不要错过,抢到就是赚到!!!现在XLSReadWriteII已经升级到v6,建议可以下载最新的版本,在最新的版本中,这一类问题都已经解决了,而且现在有想购买本产品的,正好赶上好时机:
八月Axolot Data即将会有优惠活动,XLSReadWriteII、AXWReports等产品均有优惠,现在联系在线客服>>可提前了解活动详情,巨多优惠在等着你!
标签:
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!