7,785
社区成员




For i = 0 To Controls.Count - 1
'Debug.Print Controls(i).Name, TypeName(Controls(i))
If TypeName(Controls(i)) = "Label" Or TypeName(Controls(i)) = "TextBox" Or TypeName(Controls(i)) = "ListBox" Then
Controls(i).Font.Name = "宋体"
Controls(i).Font.Size = 9
End If
Next