有一个很笨的问题想请教

Question

我用这个可以定义字体.用什么可以定义字体的大小呢?
On Error Resume Next
  Dim Obj     As Object
  For Each Obj In Me.Controls
      Obj.Font.Name = "宋体"
  Next Obj
  On Error GoTo 0

Answer 1

我也来接！！！
Font.Size = xxx

Answer 2

呵呵, 楼上几位要接分也得让楼主心服啊,哈哈哈.....楼主代码问题是很大滴......Private Sub Command1_Click()
   On Error Resume Next
   Dim ctl As Control, i%
   For Each ctl In Me.Controls
      'If TypeName(Me.Controls(i)) 有必要的话还要再判断控件类型是否能赋与Font.Name的属性
      Me.Controls(i).Font.Name = "楷体"
      i = i + 1
   Next
End Sub