Как спрятать элементы управления

[NikolayGVB]

Здравствуйте, дорогие Коллеги,

подскажите, пожалуйста, как с помощью макроса грамотно прятать по условию элементы управления, расположенные на рабочей книге?

Мои элементы управления ("кнопки") представлены в виде автофигур и текстовых полей. Как бы я к ним ни обращался (по имени или по индексу), команды типа Controls("cmdImport").Visible = False или аналогичные варианты, найденные мной на просторах интернета, не работают.

Помогите, пожалуйста, добрым советом.

Заранее благодарен,
с уважением,
Николай

[SAS888]

Может быть, при необходимости скрыть, устанавливать ширину и высоту требуемых объектов равную 0, предварительно запомнив эти значения. А при отображении - восстанавливать. Например:

ActiveSheet.Shapes(1).Select
    Selection.ShapeRange.ScaleWidth 0, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0, msoFalse, msoScaleFromTopLeft

[cent]

Сообщение от NikolayGVB

Здравствуйте, дорогие Коллеги,

подскажите, пожалуйста, как с помощью макроса грамотно прятать по условию элементы управления, расположенные на рабочей книге?

Мои элементы управления ("кнопки") представлены в виде автофигур и текстовых полей. Как бы я к ним ни обращался (по имени или по индексу), команды типа Controls("cmdImport").Visible = False или аналогичные варианты, найденные мной на просторах интернета, не работают.

Может форма обращения к элементу неправильна. Попробуйте так:

Sub hide()
VBAProject.Лист1.CommandButton1.Visible = False
VBAProject.Лист1.TextBox1.Visible = False
End Sub

Sub unhide()
VBAProject.Лист1.CommandButton1.Visible = True
VBAProject.Лист1.TextBox1.Visible = True
End Sub

Работает