以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在设计excel模板时如何设置使得单元格内超长文本折行显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149539)
|
-- 作者：czy66ds
-- 发布时间：2020/5/5 19:13:00
-- 在设计excel模板时如何设置使得单元格内超长文本折行显示
如题
|
-- 作者：有点蓝
-- 发布时间：2020/5/5 20:56:00
--
参考：http://www.foxtable.com/webhelp/topics/2121.htm
- ShrinkToFit
是否缩小单元格内容以全部显示。
当单元格内的数据长度超过单元格宽度时，就会只显示一部分数据。
使用ShrinkToFit属性，可将单元格内的数据缩小，以适应单元格，使内容全部显示出来。
如：Rg.ShrinkToFit = True
如果反过来，希望自动调整单元格大小，使单元格能够显示全部数据。这需要用到AutoFit方法。如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1")
Rg.Value = "Foxtable操控Excel全攻略"
Rg.Font.Size = 50 \'把字体放大
Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
如果要调整工作表全部单元格的大小，可以使用Cells属性。如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
|