Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скопировать Scroll Bar - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать Scroll Bar (Макросы/Sub)
Скопировать Scroll Bar
Vostok Дата: Суббота, 18.04.2015, 11:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
Коллеги, запутался в OLEObjects. Нужно скопировать программно два СкроллБара на другой Лист в указанные Ячейки. Например,
Scroll Bar 1 с Листа1 - на Лист2 в ячейку B7
Scroll Bar 2 с Листа1 - на Лист2 в ячейку G7
Примерно как с диаграммами:
К сообщению приложен файл: 0221405.xlsm (14.7 Kb)

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Суббота, 18.04.2015, 11:17
 
Ответить
СообщениеКоллеги, запутался в OLEObjects. Нужно скопировать программно два СкроллБара на другой Лист в указанные Ячейки. Например,
Scroll Bar 1 с Листа1 - на Лист2 в ячейку B7
Scroll Bar 2 с Листа1 - на Лист2 в ячейку G7
Примерно как с диаграммами:
Автор - Vostok
Дата добавления - 18.04.2015 в 11:17
Manyasha Дата: Суббота, 18.04.2015, 12:06 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Vostok, здравствуйте. Вот так получилось:[vba]
Код
Sub scr()
     With ThisWorkbook
         .Sheets(1).Shapes("Scroll Bar 1").Copy
         .Sheets(2).Paste Range("B7")
         .Sheets(1).Shapes("Scroll Bar 2").Copy
         .Sheets(2).Paste Range("G7")
     End With
End Sub
[/vba]
Только пришлось немножко сдвинуть вниз скроллбар 1, а то он зацепился за ячейку В2
К сообщению приложен файл: 0221405_1.xlsm (18.5 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеVostok, здравствуйте. Вот так получилось:[vba]
Код
Sub scr()
     With ThisWorkbook
         .Sheets(1).Shapes("Scroll Bar 1").Copy
         .Sheets(2).Paste Range("B7")
         .Sheets(1).Shapes("Scroll Bar 2").Copy
         .Sheets(2).Paste Range("G7")
     End With
End Sub
[/vba]
Только пришлось немножко сдвинуть вниз скроллбар 1, а то он зацепился за ячейку В2
Автор - Manyasha
Дата добавления - 18.04.2015 в 12:06
Vostok Дата: Суббота, 18.04.2015, 12:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

Excel 2010
Отлично. Всё оказалось просто через Shapes. А случайно не в курсе почему когда мы работаем с OLEObjects в пошаговом режиме (F8)
VBA Excel выдаёт картинку и по-сути не даёт в это режиме работать:

Или это только у меня? %)

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"
 
Ответить
СообщениеОтлично. Всё оказалось просто через Shapes. А случайно не в курсе почему когда мы работаем с OLEObjects в пошаговом режиме (F8)
VBA Excel выдаёт картинку и по-сути не даёт в это режиме работать:

Или это только у меня? %)
Автор - Vostok
Дата добавления - 18.04.2015 в 12:35
Manyasha Дата: Суббота, 18.04.2015, 12:49 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
На сколько я понимаю, это из-за того, что добавляем объект activeX на лист. Если Вам нужно отследить что-то в макросе используйте debug.Print.
Или используйте элементы формы вместо activeX.

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Суббота, 18.04.2015, 12:53
 
Ответить
СообщениеНа сколько я понимаю, это из-за того, что добавляем объект activeX на лист. Если Вам нужно отследить что-то в макросе используйте debug.Print.
Или используйте элементы формы вместо activeX.
Автор - Manyasha
Дата добавления - 18.04.2015 в 12:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать Scroll Bar (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!