Powerpoint：（取消）设置 noRot 标志 -（禁止）允许形状旋转

Question

我发现 Powerpoint 中的某些形状被锁定以防止旋转和翻转。据我目前所见（通过检查 Powerpoint 文件中的 XML），有一个名为 noRot 的标志可以采用值 0 或 1 这个标志驻留在 a splocks XML 标签中。如果此标志设置为 1，则不能旋转形状。然而，这个标志似乎无法使用通常的 Powerpoint 方式访问（即我找不到任何代表这个标志的复选框）。

其中一个锁定元素可以通过以下方式获得：

• 打开 Powerpoint 2003（应弹出一个空的默认演示文稿）
• 查看 - 母版 - 幻灯片母版
• 大的居中占位符文本框应该被锁定

我保存了一个包含这个文本框的演示文稿，在各种版本的 Powerpoint 中打开它，专门选择了保存的文本框，并在选择上尝试了以下 VBA 命令：

ActiveWindow.Selection.ShapeRange(1).Rotation = 10
ActiveWindow.Selection.ShapeRange(1).Flip msoFlipHorizontal

在所有版本中，这些命令都会失败。

• 设置旋转失败：

  • 幻灯片 2003："Run-time error 70: Permission denied"
  • Powerpoint 2007 以后："Run-time error -2147024809 (80070057): The shape is locked and cannot be rotated"

• 翻转失败：

  • Powerpoint 2003：静默（即没有 运行 时间错误，但没有可观察到的变化）
  • Powerpoint 2007 以后："Run-time error -2147024809 (80070057): The shape is locked and cannot be rotated"

我意识到已经有一个产品 (ShapeLocker) 可以 lock/unlock 这些形状。然而，显然，这个工具似乎修改了XML，这似乎很麻烦。

有没有什么 known/documented 方法可以在 VBA 中（取消）设置这个标志（或者它甚至可以在我忽略的某些 Powerpoint 复选框中完成）？

Answer 1

某些功能仅在 XML 中公开，这就是 ShapeLocker 这样做的原因。 UI 或对象模型中没有任何内容支持锁定形状。不幸的是。