Вопрос про Multipage и не только... - Microsoft Office Excel

Eresiarh · 06.02.2010, 08:21

Здравствуйте, столкнулся с такой прооболемой: не могу в Multipage в определенный Page вставить скрол. В свойствах он есть, но при попытке включить появляется только полоска с двумя кнопками, но без ползунка.

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

Заранее спасибо.

Pavel55 · 06.02.2010, 10:44

1) Это нормальное поведение скрола. Ползунок появится только тогда, когда реальные данные не будут умещаться. Т.е. если слово помещается ползунка нет, если же у вас длинное слов (предложение), то ползунок появится

2) В сохранённой книге нужно запускать отдельный макрос, который будет удалять все макросы вместе с формой
например, этим кодом, найденным на просторах интернета

Код:

'удаляет макросы и процедуры из активной книги 
'Source: http://www.vbnet.ru/forum/show.aspx?id=154228
Sub ClearAllMacroses() 
'(c) Genyaa[coбака]nm.ru (2007) 
    Dim vc As Object 
    If MsgBox("Удалить все макросы из активной книги?", vbYesNo) = vbNo Then Exit Sub 
    If MsgBox("Уверен?!" & vbCrLf & _ 
        "Будут удалены все макросы, модули и формы книги: " & ActiveWorkbook.Name, vbYesNo) = vbNo Then Exit Sub 
    With ActiveWorkbook.VBProject 
        For Each vc In .VBComponents 
            If vc.Type <> 100 Then 
                .VBComponents.Remove vc 
            End If 
        Next vc 
        For Each vc In .VBComponents 
            vc.CodeModule.DeleteLines 1, vc.CodeModule.CountOfLines 
        Next vc 
    End With 
End Sub

Eresiarh · 06.02.2010, 10:49

Спасибо за пояснение. Но тогда вопрос: у меня там лейблы и текст боксы, но скролла нет все равно.

Про второе спасибо большое, дальше додумаю.

Eresiarh · 06.02.2010, 11:14

Про первое. Если можно просто сделайте multipage и на page2, к примеру, скролл рабочий. Если можно.

EducatedFool · 06.02.2010, 11:57

Пожалуйста - вот пример: http://excelvba.ru/XL_Files/Sample__...__13-54-24.zip

Обратите внимание на значение свойства ScrollHeight для Page2

Eresiarh · 06.02.2010, 12:17

Вот ведь... А я вводил значения в ScrollHeight и ни разу не попал чтоб значение было выше размера page. Отсюда и проблема была. Спасибо.

06.02.2010, 08:21	#1
Eresiarh Пользователь Регистрация: 15.01.2010 Сообщений: 31	Вопрос про Multipage и не только... Здравствуйте, столкнулся с такой прооболемой: не могу в Multipage в определенный Page вставить скрол. В свойствах он есть, но при попытке включить появляется только полоска с двумя кнопками, но без ползунка. И второй вопрос. Есть книга с формой. В форму вносятся данные. И при нажатии на форму книга сохраняется в другое место под другим именем, но вмессте с формой. Можно сделать так чтобы форма оставалась только у первой книги из которой другие создают, а в остальных ее не было? Заранее спасибо.

06.02.2010, 10:44	#2
Pavel55 Форумчанин Регистрация: 21.08.2007 Сообщений: 292	1) Это нормальное поведение скрола. Ползунок появится только тогда, когда реальные данные не будут умещаться. Т.е. если слово помещается ползунка нет, если же у вас длинное слов (предложение), то ползунок появится 2) В сохранённой книге нужно запускать отдельный макрос, который будет удалять все макросы вместе с формой например, этим кодом, найденным на просторах интернета Код: 'удаляет макросы и процедуры из активной книги 'Source: http://www.vbnet.ru/forum/show.aspx?id=154228 Sub ClearAllMacroses() '(c) Genyaa[coбака]nm.ru (2007) Dim vc As Object If MsgBox("Удалить все макросы из активной книги?", vbYesNo) = vbNo Then Exit Sub If MsgBox("Уверен?!" & vbCrLf & _ "Будут удалены все макросы, модули и формы книги: " & ActiveWorkbook.Name, vbYesNo) = vbNo Then Exit Sub With ActiveWorkbook.VBProject For Each vc In .VBComponents If vc.Type <> 100 Then .VBComponents.Remove vc End If Next vc For Each vc In .VBComponents vc.CodeModule.DeleteLines 1, vc.CodeModule.CountOfLines Next vc End With End Sub Последний раз редактировалось Pavel55; 06.02.2010 в 10:47.

06.02.2010, 11:57	#5
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Пожалуйста - вот пример: http://excelvba.ru/XL_Files/Sample__...__13-54-24.zip Обратите внимание на значение свойства ScrollHeight для Page2 __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вопрос о Multipage	SIV84	Microsoft Office Excel	4	16.01.2010 00:20
Опять про PNG, только на этот раз по теме iImageList-а	Altera	Компоненты Delphi	6	30.06.2009 12:44
Вопрос про транзакции и не только.	danswin	БД в Delphi	9	17.01.2009 18:35
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6)	Albert2008	Общие вопросы Delphi	4	21.08.2008 15:33
У меня вопрос про базы данных,а точнее про таблицы!!!	Alexij	Общие вопросы Delphi	1	13.04.2008 23:24

06.02.2010, 10:49	#3
Eresiarh Пользователь Регистрация: 15.01.2010 Сообщений: 31	Спасибо за пояснение. Но тогда вопрос: у меня там лейблы и текст боксы, но скролла нет все равно. Про второе спасибо большое, дальше додумаю.

06.02.2010, 11:14	#4
Eresiarh Пользователь Регистрация: 15.01.2010 Сообщений: 31	Про первое. Если можно просто сделайте multipage и на page2, к примеру, скролл рабочий. Если можно.

06.02.2010, 12:17	#6
Eresiarh Пользователь Регистрация: 15.01.2010 Сообщений: 31	Вот ведь... А я вводил значения в ScrollHeight и ни разу не попал чтоб значение было выше размера page. Отсюда и проблема была. Спасибо.