Excel VBA：如何遍历用户窗体框架内标签并修改BorderStyle？

问题出在你声明的ctr是通用的MSForms.Control类型——这个类型仅包含所有控件的公共属性/方法，而BorderStyle是MSForms.Label控件特有的属性，所以智能提示不会显示该属性，直接访问还会触发编译错误。

你可以通过强制类型转换解决这个问题，将通用的Control对象转换为Label对象，就能访问其专属属性。修改后的代码如下：

Private Sub ShowBorder(LabelName As String, frame As MSForms.frame)
    Dim ctr As MSForms.Control
    Dim lbl As MSForms.Label
    
    Debug.Print frame.Controls.Count ' returns 7 which is correct as there are only 7 labels in this frame
    
    For Each ctr In frame.Controls
        ' 先判断控件类型和Tag属性
        If TypeOf ctr Is MSForms.Label And ctr.Tag = "BorderShow" Then
            Set lbl = ctr
            ' 根据名称设置边框样式
            If lbl.Name = LabelName Then
                lbl.BorderStyle = fmBorderStyleSingle ' 等价于数值1
            Else
                lbl.BorderStyle = fmBorderStyleNone ' 等价于数值0
            End If
        End If
    Next ctr
End Sub

补充说明： #

• 用TypeOf ctr Is MSForms.Label判断控件类型，比TypeName(ctr) = "Label"更严谨，能避免类型名称字符串写错的问题。
• 使用fmBorderStyleSingle和fmBorderStyleNone常量代替直接写数值，代码可读性更强（如果你的VBA编辑器没有自动识别这些常量，可以直接用1和0代替）。
• 转换为MSForms.Label类型后，智能提示会正常显示该控件的所有专属属性，包括BorderStyle。

内容的提问来源于stack exchange，提问作者Weizai Weizaitan