左侧的字体可以赋右侧的三种字体属性,程序的结构也没有错误,就看你的字体属性赋值代码了:
Case Option1.Value
Text1.Font.Name = "Arial"
Case Option2.Value
Text1.Font.Name = "Modern"
Case Option3.Value
Text1.Font.Name = "Times New Roman"
End Select
If Check1.Value = 1 Then
Text1.Font.Bold = True
End If
If Check2.Value = 1 Then
Text1.Font.Italic = True
End If
If Check3.Value = 1 Then
Text1.Font.Underline = True
End If