主题：Dim Style As XLS.Style = Book.NewStyle() 是否有缩小字体填充的属性

在EXCEL报表中，设置一个风格，缩小字体填充，有没有这个属性

Dim Style As XLS.Style = Book.NewStyle()  是否有缩小字体填充的属性

老师，这句代码无效

刚开始我以为是没保存，于是我又新建了一个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

不能设置类 Range 的 ShrinkToFit 属性

之前不报这个错误，只是无效，今天试了下，报这个错，是我少引用了吗？