我想一般情况下设置EXCEL默认行高为30,如果内容多再根据内容控制EXCEL自动换行。
我设置了下面的属性
With xlSheet.Range(C1, C2)
.Borders.LineStyle = xlContinuous
.RowHeight = 30
.WrapText = True
.Font.Size = 10
End With
可是内容多的情况下,EXCEL不能自动换行。
如果我去掉.RowHeight = 30,EXCEL能自动换行, 但是EXCEL的行高是默认的14.25,很小,达不到效果。
请问怎么改才能达到效果呢?
我设置了下面的属性
With xlSheet.Range(C1, C2)
.Borders.LineStyle = xlContinuous
.RowHeight = 30
.WrapText = True
.Font.Size = 10
End With
可是内容多的情况下,EXCEL不能自动换行。
如果我去掉.RowHeight = 30,EXCEL能自动换行, 但是EXCEL的行高是默认的14.25,很小,达不到效果。
请问怎么改才能达到效果呢?
解决方案 »
- 如何在VB中利用listview快速显示10000以上的记录
- 请教用一个基础的用ADO连接数据库的问题。。。谢谢
- 在线等急:SetUpFactory打包
- 怎么突出实现按钮的按下后下陷再按一下弹起效果,同时又能实现互斥功能,急
- DataGrid连接ado获得sql数据库数据,怎么将bit(1和0)数据转换为字符(是/否)显示?
- 我要得到所有的表名称,该怎么办
- 关于qq的功能,谢谢大家
- 请问如何在2个应用程序之见传递数据?
- 客户事件调用了一个提供程序的非重入方法
- ★★★★CMOS错误,谁能救救我的电脑!!!!★★★★在这里给分,快来呀!★★★★
- 报表控件格式问题
- 利用windowsAPI开发串口通信
''' <summary>
''' 文字的改行、缩小表示设定
''' </summary>
''' <param name="iRowS">开始行号码</param>
''' <param name="iColS">开始列号码</param>
''' <param name="iRowE">结束行号码</param>
''' <param name="iColE">结束列号码</param>
''' <param name="bWrapText"></param>
''' <param name="bShrinkToFit"></param>
''' <returns></returns>
''' <res></res>
Public Function xlsSetWordWrap(ByVal iRowS As Integer, ByVal iColS As Integer, _
ByVal iRowE As Integer, ByVal iColE As Integer, _
ByVal bWrapText As Boolean, ByVal bShrinkToFit As Boolean) As XLS_RESULT
Try
oRange = oSheet.Range(Me.GetXlsRange(iColS) & iRowS.ToString, Me.GetXlsRange(iColE) & iRowE.ToString)
oRange.WrapText = bWrapText
oRange.ShrinkToFit = bShrinkToFit MRComObject(oRange) Catch ex As Exception
Me.XlsFileRelease()
Return XLS_RESULT.XLS_NG
Finally
MRComObject(oRange)
End Try
End Function
#End Region