excel - 如何使用 VBA 更改 Forms 2.0 BorderStyle？

Question

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

我可以手动将边框样式从 0 - fmBorderStyleNone 更改为 1 - fmBorderStyleSingle。我想要的是跨越 10 到 20 个 2.0 形状。所以这毫无乐趣可言。

如果这是正确的话，它应该消失……like this

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

如何使用 VBA 更改 Forms 2.0 BorderStyle？

Answer 1

尝试:

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