18.01.2013, 02:11 | #3 (ссылка) |
Новичок
Регистрация: 17.03.2012
Сообщений: 115
Репутация: 0
|
Имею, такой макрос http://rusfolder.com/34567895
Как можно сделать, чтобы значение предлагалось ввести пользователю, то есть мне по нажатии на кнопку в меню надстройки? Чтобы не бегать постоянно в разработчик и там менять значения |
24.01.2013, 01:59 | #4 (ссылка) |
Новичок
Регистрация: 17.03.2012
Сообщений: 115
Репутация: 0
|
Имею, такой макрос http://rusfolder.com/34567895
Как можно сделать, чтобы значение предлагалось ввести пользователю, то есть мне по нажатии на кнопку в меню надстройки? Чтобы не бегать постоянно в разработчик и там менять значения |
25.01.2013, 01:31 | #5 (ссылка) |
Новичок
Регистрация: 17.03.2012
Сообщений: 115
Репутация: 0
|
Сделал так
Код:
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 |
06.02.2013, 23:19 | #6 (ссылка) |
Новичок
Регистрация: 17.03.2012
Сообщений: 115
Репутация: 0
|
Код:
Sub test2() Dim sh As Shape, ActiveSlide As Slide, w As Long, h As Long On Error Resume Next: Err.Clear Set ActiveSlide = ActiveWindow.Selection.SlideRange(1) h = InputBox("Height", , 200): If Err Then Exit Sub w = InputBox("Width", , 300): If Err Then Exit Sub For Each sh In ActiveSlide.Shapes If sh.Type = msoChart Then sh.Height = h sh.Width = w End If Next End Sub |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос на мышку | Serega1994 | Игры | 0 | 15.05.2012 17:37 |
Макрос autoexe | Svetlana11 | Программирование | 0 | 31.10.2011 17:20 |
оперативная память не соответствует номинальному размеру | sugaroff | Неисправности, настройка | 1 | 02.10.2011 09:50 |
оперативная память не соответствует номинальому размеру | sugaroff | Железо | 4 | 02.10.2011 01:21 |
Построение графиков в EXCEL 2007 | serg450453 | Офис | 1 | 19.05.2011 20:14 |