请教单元格格式问题！

sxgaobo

在论坛中学到了：
Me.单元格.TopMargin —— 设置单元格中文本的上边距
Me.单元格.Top —— 设置单元格的上边距
还想知道！
？？？？？？？——设置单元格的高度
？？？？？？？——设置单元格的宽度
？？？？？？？——设置单元格的左边距
单元格的垂直居中用代码怎么设啊
......
哪位朋友有这方面的资料啊！

[ 本帖最后由 sxgaobo 于 2008-10-29 14:02 编辑 ]

liwen

在VBA中在输入“me.单元格. ” 的“.”之后会自动弹出单元格的相应的属性，凭其英文单词的意思大致就可知有哪些属性.

sxgaobo

不行啊！
Me.单元格.TopMargin —— 设置单元格中文本的上边距
这是论坛里的朋友教的，可Me.单元格. 后边没有TopMargin啊！

liwen

文本框的属性里是包含有TopMargin的，相关的属性也可以通过VBA的对象浏览器查看，通过显示隐藏属性可以查看一些在输入点后不能自动带出的部分属性；但象你说的TopMargin并不是隐藏属性。

sxgaobo

如何能使单元格中间没有空啊？

Henry D. Sy

TopMargin 属性
请参阅 应用于 示例 特性
应用于 Label 和 TextBox 对象的 TopMargin 属性。

与 LeftMargin、RightMargin 和 BottomMargin 属性一起，指定信息在标签或文本框控件中的显示位置。Integer 型，可读写。

expression.TopMargin

expression   必需。返回上述对象之一的一个表达式。

说明
控件显示信息的位置是从控件的左、上、右或下端边界到显示信息的左、上、右或下端边沿之间的距离。当将 LeftMargin 或 TopMargin 属性设为 0 时，显示信息位于控件的最左或最上边。若要使用不同于 Windows 区域设置中设置的度量单位，请指定单位（例如，厘米或英寸）。

在 Visual Basic 中，使用数值表达式设置该属性的值，值以缇为单位表示。

可以使用属性表、宏或 Visual Basic 设置这些属性。

liwen

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If LenB(StrConv([最终院校], vbFromUnicode)) > 13 Then
   Me.最终院校.Height = 500
   Me.姓名.Height = 500
   Me.主体.Height = 500
Else
   Me.最终院校.Height = 260
   Me.姓名.Height = 260
   Me.主体.Height = 260
End If

End Sub