在excel中锁定形状文本

Question

我正在尝试使用 VBA 锁定形状及其文本，但没有成功。

我尝试了以下

    Shape.locked = True
    Shape.Text.locked = True

Selection.Locked = True 'working
Selection.Characters.Text.Locked = True  'not working

谢谢

Answer 1

要设置 a 的lockedText属性Shape，您可以使用（隐藏的）属性对象DrawingObject。假设您的变量shape设置为您选择的 Shape 对象，请尝试

shape.DrawingObject.LockedText = true

您也可以使用-propertyDrawingObject来设置locked，它似乎shape.Locked和shape.DrawingObject.Locked引用相同的值。

不幸的是，DrawingObject没有记录，因此不能保证 Microsoft 将在所有（未来）Excel 版本中支持此功能。