Как разбить этот код ссылки формы в 2 строки?

Question

Этот код работает нормально, но у меня есть бланк для выбора.

Sheets("sheet1").Shapes("test_" & i).Select
Selection.Formula = ""

... и я хочу это:

Sheets("sheet1").Shapes("test_" & i).Formula = ""

Но я получил объектОшибка не принять этот реквизит или метод.

Что мне не хватает?

Answer 1

Formula является свойством свойства DrawingObject:

Sheets("sheet1").Shapes("test_" & i).DrawingObject.Formula = ""

Для текстового поля activeX (если вы хотите изменить свойство LinkedCell):

Dim tb
Set tb = ActiveSheet.Shapes("test_" & i)
tb.OLEFormat.Object.LinkedCell = ""