Question

我在HPageBreaks上的MS Excel VBA有问题。当我在测试中逐行运行代码时，Sheets（“ Temp”）。HPagesBreaks.Count工作正常。但是，当我尝试运行完整代码时，我的Excel被冻结，当我尝试关闭Excel时弹出错误消息。

几年前，有人提出了类似的问题，建议在计数方法之前激活Sheets（“ Temp”）。我已经尝试过Sheets（“ Temp”）。HPageBreaks.Count之前激活，但是在我的情况下不起作用。

这是我的代码和错误消息的一部分。我想调整工作表中所有形状的大小，直到它们都适合一页。打印设置是预设的。有谁知道是什么原因造成的？ enter image description here

#define Set(Argument, Value) _spinBox_distance->set##argument(Value)

Set(Minimum, 0.0);
Set(Maximum, 10.0);
Set(SingleStep, 0.5);
Set(Suffix, " meters");

循环

Answer 1

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

对象“ HPageBreaks”的方法“ Count”失败

1 个答案: