请问怎样使用VBS或者VBA来实现冻结窗格?
我现在希望做以下三个操作:
1.第一行设置冻结窗格
2.所有单元格都设置成显示全部内容,就是如果一格里面东西很长的话,这一格就相应变长,让内容全部看得见.
3.在实现第2点的基础上,所有的单元格都设置成自动换行,就是说如果一个单元格高度足够,而内容又很长,能够自动换行显示,而不是把单元格拖得很长.
请问怎样通过vbscript调用excel.application中的方法来实现呢?或者用VBA来实现?
[解决办法]
一下是通过宏录制实现的
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
With Cells
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
