Блокировка формы текста в Excel

Question

Я пытаюсь заблокировать фигуру и ее текст с помощью VBA, но безуспешно.

Я попробовал следующее

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

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

Спасибо

Answer 1

Чтобы установить свойство lockedText для Shape, вы можете использовать (скрытый) объект свойства DrawingObject. Предполагая, что ваша переменная shape установлена ​​на выбранный вами объект Shape, попробуйте

shape.DrawingObject.LockedText = true

. Вы также можете использовать DrawingObject, чтобы установить locked -объект, кажется, что shape.Locked и shape.DrawingObject.Locked относится к тому же значению.

К сожалению, DrawingObject не задокументировано, поэтому не гарантируется, что Microsoft будет поддерживать эту функцию во всех (будущих) выпусках Excel.