Как сделать, чтобы значение предлагалось ввести пользователю?

Posted by Chas under Basic

Имею, макрос. Как можно сделать, чтобы значение предлагалось ввести пользователю, то есть мне по нажатии на кнопку в меню надстройки?
Чтобы не бегать постоянно в разработчик и там менять значения.

EducatedFool

Sub Get_Graphics()

    On Error Resume Next: Err.Clear

    Dim ChrtObj As ChartObject, w&, h&

    ' запрашиваем у пользователя высоту и ширину

    w& = InputBox("Введите ширину для диаграмм", , 300): If Err Then Exit Sub

    h& = InputBox("Введите высоту для диаграмм", , 200): If Err Then Exit Sub

    Application.ScreenUpdating = False

    For Each ChrtObj In ActiveSheet.ChartObjects

        ChrtObj.Height = h&

        ChrtObj.Width = w&

    Next

End Sub

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Разделить файл на несколько частей с помощью макроса в excel
• Как определить путь к файлу (текущую папку) в excel?
• Как сделать, чтобы заполненные ячейки в excel считались с условием?
• Как скопировать с одного столбца через одну строку в другой столбец данные
• Создание выпадающего списка средствами VBA
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Как вернуть из функции 2 и более аргумента в VBA?
• Макрос удаляющий во всех ячейках столбца последний символ