vba - 尝试在 PowerPoint 中设置形状的 .Line.Visible 属性时出现未指定的错误

Question

我有一个麻烦的问题，正在影响一位用户。

我无法在我的机器上复制错误。我正在与之合作的另一个开发人员也无法在他的机器上进行复制。不过，我们能够隔离用户机器上的错误。我正在运行 Win 7 Enterprise Version 6.1 Build 7600，以及 MS Office 2010/PowerPoint 2010/等。

出现相关错误一位用户 在 .Line.Visible = msoFalse .错误引发为:

Run-time error '-2147467259 (80004005)':
Method 'Visible' of object 'LineFormat' failed

可见显然是形状 .Line 的一个属性.我可以在 Locals 窗口中查看它:



我可以在即时窗口中查询此属性值而不会出错:



输入: tb.Line.Visible = msoTrue使线条可见(如预期)

输入: tb.Line.Visible = msoFalse使用相同的代码产生“自动化错误/未指定的错误”:



这是一些示例代码。我试过尺寸标注 tb如 Shape但这会产生 Type 13 Mismatch错误。我也尝试将属性值设置为 0而不是 msoFalse但错误仍然存​​在。

Sub TestCode()
Dim cht as Chart
Dim tb As Object

    Set cht = ActivePresentation.Slides(1).Shapes("Chart 1").Chart
    Set tb = cht.Shapes.AddTextbox(msoTextOrientationHorizontal, ptLeft, tBoxTop, ptWidth, ptHeight) 'NOTE: tb.Type = msoTextBox

    tb.Select  '<--- KEEP THIS LINE OTHERWISE TEXTBOX _
               '     ALIGNMENT WILL NOT WORK 

    With tb
        With .TextFrame2.TextRange.Characters
            .Text = "foo"
        End With
        .Fill.Visible = msoFalse
        .Line.Visible = msoFalse
        .TextFrame2.WordWrap = msoFalse
        .TextFrame2.TextRange.Font.Bold = True
        .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
        .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    End With
End Sub

此子例程包含在来自表单按钮单击事件的主错误处理程序中，因此我们不会丢失数据或使应用程序崩溃，但它确实会阻止加载项以所需方式构建图表/图形。

自默认 .Line.Visible是 msoFalse (所以我可以注释掉有问题的代码行)这不是特别重要，但它确实需要更改代码并重新分发 PPAM。

我想知道为什么会发生这种情况，以及是否有一种方法可以“修复”此问题，而不涉及注释掉违规行或执行 On Error Resume Next方法。

更新 (来自评论，澄清)

此示例是设计用于处理文本框标注的放置和格式设置的几个此类子程序之一，这些都是 msoTextBox 类型的形状。它们被添加到现有形状的形状集合中，例如图表形状。

与 object.Line.Visible = msoFalse 的所有类似电话失败并出现相同的错误。

，每个人都会在她的机器上引发相同的错误。其他类似的调用，例如， .MajorGridlines.format.Line.Visible = msoFalse 不是 错误。

Answer 1

这不是一个令人满意的答案，但我只是通过注释掉有问题的代码行来避免错误。因为在创建 TextBox 时，此属性已设置为 msoFalse ，它是多余的代码，可以省略。