На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Как изменить пределы для скролла, VBA Excel
Как изменить пределы Min Max для скролла

ExpandedWrap disabled
    Option Explicit
     
    'Public gvar As Integer
     
    Function FScrollBarMinMax(pmin As Double, pmax As Double) As Integer
     
    'Sheets("Лист1").Shapes("Scroll2").DrawingObject.Max = pmin
     
    ActiveSheet.Shapes("Scroll2").ControlFormat.Min = pmin
    ActiveSheet.Shapes("Scroll2").ControlFormat.Max = pmax
     
    FScrollBarMinMax = 0
    End Function
     
    Function FSumma(arg As Double) As Double
    Dim res As Integer
    res = FScrollBarMinMax(25, 52)
    FSumma = arg + 10
    End Function


Прикреплённый файлПрикреплённый файлTest.rar (13,95 Кбайт, скачиваний: 7)
ExpandedWrap disabled
    Sub qwert()
        With ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object
            .Max = 22000
            .Min = 220
        End With
    End Sub
спасибо
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,1309 ]   [ 22 queries used ]   [ Generated: 19.02.19, 11:09 GMT ]