Excel 如何使用VBA更改Forms 2.0边框样式？

我想显示/隐藏我在Excel中使用的“Microsoft Forms 2.0标签”的边框

我可以手动将边框样式从

0-fmBorderStyleNone

更改为

1-fmBorderStyleSingle

。我想要的是跨越10到20个Form2.0形状。所以这一点都不好玩

它应该走了，如果这是正确的

如何使用VBA更改Forms 2.0 BorderStyle？

尝试：

For Each sh In .Shapes
    .Select         ' just for debugging
    Select Case sh.Type
        Case 12     ' 2.0 Forms Label
            sh.OLEFormat.Object.Object.BorderStyle = 0
    End Select
Next sh

---

你可能会从阅读中受益•你的实际问题是什么？你会遇到哪些错误，在哪里？你的代码做了什么？你期望它做什么。阅读也可能有助于改善你的问题。谢谢你的提示。如果我运行此代码，我将返回“运行时错误438对象不支持此属性或方法”。我必须更改什么？在代码的哪一行出现错误？您的标签是在工作表上还是在用户表单上？

For Each sh In .Shapes
    .Select         ' just for debugging
    Select Case sh.Type
        Case 12     ' 2.0 Forms Label
            sh.OLEFormat.Object.Object.BorderStyle = 0
    End Select
Next sh