时间戳

首页 > 解决方案 > 对象“HPageBreaks”的方法“计数”失败

excel - 对象“HPageBreaks”的方法“计数”失败

问题描述

我在 HPageBreaks 上遇到 MS Excel VBA 问题。当我在测试中逐行运行代码时，Sheets("Temp").HPagesBreaks.Count 工作正常。但是当我尝试运行完整代码时，我的 Excel 被冻结，并且当我尝试关闭 Excel 时会弹出一条错误消息。

几年前有一个类似的问题，建议在 count 方法之前激活 Sheets("Temp")。我在 HPageBreaks.Count 之前尝试过 Sheets("Temp").Activate，但它在我的场景中不起作用。

这是我的代码的一部分，以及错误消息。我想调整工作表中所有形状的大小，直到它们都适合一页。打印设置是预设的。有谁知道是什么原因造成的？ 在此处输入图像描述

Do Until ((xWMax > 600 And xWMax <= 680) Or xH > 600) And Sheets("Temp").HPageBreaks.Count = 0
If Sheets("Temp").HPageBreaks.Count > 0 Then
    ....
End If

环形

标签： excelvba

解决方案

现在通过在每个 HPageBreaks.Count 使错误消失之前激活其他工作表和重新激活工作表（“Temp”）来解决这个问题。Application.ScreenUpdate 必须设置为 False

推荐阅读