求助指定文字字体设置代码

抹不去の回忆

代码如下：
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
   ToggleButton1.Caption = "结束抽题"
   Do
     [H1] = WorksheetFunction.RandBetween(1, 1000)
     DoEvents
   Loop Until ToggleButton1.Value = False
Else
     ToggleButton1.Caption = "开始抽题"
     Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = [H1].Value
     
End If
     
End Sub
求助：我想把ToggleButton1.Caption = "结束抽题"这段代码中的"结束抽题"字体设置成华文行楷，代码应该怎么写

半百

这样？、

抹不去の回忆

半百 发表于 2023-6-28 14:36
这样？、

是的，感谢，原来直接在后面加修改字体的代码就行了，逻辑还是搞不清楚