| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- Dim Style As XLS.Style = Book.NewStyle() 是否有缩小字体填充的属性 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146878) |
| -- 作者：漂亮美眉vszh -- 发布时间：2020/3/4 18:27:00 -- Dim Style As XLS.Style = Book.NewStyle() 是否有缩小字体填充的属性 在EXCEL报表中，设置一个风格，缩小字体填充，有没有这个属性 Dim Style As XLS.Style = Book.NewStyle() 是否有缩小字体填充的属性
|
| -- 作者：有点蓝 -- 发布时间：2020/3/5 8:45:00 -- 要使用vba处理：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93117&replyID=642129&skin=1 |
| -- 作者：漂亮美眉vszh -- 发布时间：2020/3/16 10:13:00 -- 老师，这句代码无效 刚开始我以为是没保存，于是我又新建了一个VBA对象，再设定后再保存，依旧无效 Dim App4 As New MSExcel.Application
Dim Wb4 As MSExcel.WorkBook = App4.WorkBooks.Open(cy_Ass) Dim Ws1 As MSExcel.WorkSheet = Wb4.WorkSheets("表名") Dim Rg As MSExcel.Range = Ws1.Cells rg.ShrinkToFit = True Wb4.save() App4.Quit |
| -- 作者：漂亮美眉vszh -- 发布时间：2020/3/16 10:18:00 -- .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2019.12.17.18 错误所在事件：自定义函数报表导出 详细错误信息： 调用的目标发生了异常。 不能设置类 Range 的 ShrinkToFit 属性 之前不报这个错误，只是无效，今天试了下，报这个错，是我少引用了吗？
|
| -- 作者：有点蓝 -- 发布时间：2020/3/16 10:42:00 -- 我测试没有问题，请上传实例说明 |
| -- 作者：漂亮美眉vszh -- 发布时间：2020/4/23 14:16:00 -- 老师，这是我做的例子，你看下，有好多合并单元格，那个缩小填充的语句放哪都无效。 |
| -- 作者：有点蓝 -- 发布时间：2020/4/23 14:40:00 -- 不支持合并单元格。合并单元格就算在execl里也无法设置的缩小字体填充的 |