Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在设计excel模板时如何设置使得单元格内超长文本折行显示


  共有3644人关注过本帖树形打印复制链接

主题：在设计excel模板时如何设置使得单元格内超长文本折行显示
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1691 积分：16460 威望：0 精华：0 注册：2013/7/31 13:03:00 		在设计excel模板时如何设置使得单元格内超长文本折行显示  发帖心情 Post By：2020/5/5 19:13:00 [只看该作者]

如题

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
    　
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02930 秒, 4 次数据查询