Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Label над HPageBreaks / 23 сообщений из 23, страница 1 из 1
19.01.2006, 21:23:09
    #33492987
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Подскажите, пожалуйста, как можно реализовать такую задачу:
Надо расположить Label на листе Excel так чтобы он находился
над вторым HPageBreaks.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2006, 22:31:36
    #33493052
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Код: plaintext
1.
2.
3.
4.
Dim y as Integer, s as Shape
y = ActiveSheet.HPageBreaks( 2 ).Location.Offset(- 1 ,  0 ).Top
Set s = ActiveSheet.AddLabel(msoTextOrientationHorizontal,  10 , y,  20 ,  20 )
s.TextFrame.AutoSize = True
s.TextFrame.Characters.Text = "y=" & y
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2006, 22:52:23
    #33493063
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Спасибо, но чето нехочет работать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 00:15:05
    #33493114
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Ну раз не хочет, значит оно тебе не нужно. Когда оно тебе станет нужно, тогда ты расскажешь нам как именно оно "не хочет работать"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 08:16:40
    #33493252
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim y As Integer
    Dim s As Shape
    
    y = ActiveSheet.HPageBreaks( 2 ).Location.Offset(- 1 ,  0 ).Top
    
    Set s = ActiveSheet.Shapes.AddLabel(msoTextOrientationVertical, _
       10 , y,  20 ,  20 )
        
    s.TextFrame.AutoSize = True
    s.TextFrame.Characters.Text = "y=" & y
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 08:50:48
    #33493281
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Мне это нужно и даже очень, а работать нехочет так:
Run-time error '9'. Subscript out of range.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 09:14:24
    #33493304
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Попробую угадать.

Если на этой строке

Код: plaintext
    y = ActiveSheet.HPageBreaks( 2 ).Location.Offset(- 1 ,  0 ).Top

Значит у тебя нет второго HPageBreaks.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 09:32:13
    #33493339
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Да именно так и получилось.
А как сделать чтобы не добавлять Label, а передвигать уже имеющийся Label на нужную позицию типа IncrementTop?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 09:33:52
    #33493345
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
timtimМне это нужно и даже очень, а работать нехочет так:
Run-time error '9'. Subscript out of range.

Может я и ошибаюсь, но пока ты не "передернишь" лист начало-конец-начало, для того чтобы Excel расставил разрывы страниц, второй HPageBreak и не найдется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 09:42:39
    #33493366
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Лист "передергиваю" так прописываю букву в ячейку примерно на 3 печатном листе, а потом удаляю.
Как двигать Label чтобы он встал в позицию Y
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 14:18:49
    #33494370
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Сделал так:
Private Sub Label1_Click()
Dim y As Integer
Application.ScreenUpdating = False
Range("A555").Value = "WWW"
y = ActiveSheet.HPageBreaks(2).Location.Offset(-1, 0).Top
Label1.Left = 0
Label1.Top = y
Range("A555").Value = ""
End Sub
Типа при клике на Label он перемещаетя в позицию "y" (мне вообше нужно типа колонтитула, но только на второй печатаемой странице листа). Всего текста на Листе на один печатный двустороний лист.
Как обойти проблему если на третей печатаемой странице нет данных(а их там недолжно быть) выдается ошибка HPageBreaks(2)-ненайден. Не хотелось-бы делать Range("A555").Value = "WWW", а потом Range("A555").Value = "".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2006, 18:14:09
    #33495007
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
timtimКак обойти проблему если на третей печатаемой странице нет данных(а их там недолжно быть) выдается ошибка HPageBreaks(2)-ненайден. Не хотелось-бы делать Range("A555").Value = "WWW", а потом Range("A555").Value = "".
А прийдется.
Или делай фиктивные данные на третьей странице или используй вместо Экселя что-нибудь другое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 17:05:54
    #33497989
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Еще вопрос в догонку.
Можно ли как-то сделать процедуру типа
Sub HPageBreaks_изменилось_Location (...as integer,.....) чтобы процедура запускалась при изменении HPageBreaks.Location?
Подскажите пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 17:33:09
    #33498039
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
а колонтитулы не подходят?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 17:37:35
    #33498052
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Колонтитулы это то что мне нужно НО они (колонтитулы) печатаются на каждой печатаемой странице а мне надо только на 2 странице.(см. выше)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 19:01:29
    #33498230
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
timtimМожно ли как-то сделать процедуру типа
Sub HPageBreaks_изменилось_Location (...as integer,.....) чтобы процедура запускалась при изменении HPageBreaks.Location?
Нет, нельзя. Зато можно перехватить событие Workbook_BeforePrint и в нем передвигать свои метки куда угодно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 19:35:56
    #33498281
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Спасибо за совет Workbook_BeforePrint я использую, хочется сделать так чтобы пользователь мог передвигать Label в процессе разработки документа(книги Excel), но Label_MouseMove и Worksheet_SelectionChange мне кажется мешают нормальной работе в Книге. Можно ли как то изе....ся?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 19:55:22
    #33498317
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Можно. Уволить этого программиста и нанять другого.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 20:25:34
    #33498361
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Это не программист, а человек всего лишь желающий облегчить жизнь себе и окружающим.
Тут мысль пришла.
Может быть (скорее всего, так и надо сделать) отслеживать размер от ячейки А1 до HPageBreaks(2). Только пока не знаю как.
Если Вам не в лом дайте пожалуйста дельный совет.
Тут файл приложен, посмотрите, может уже больше сделать по существу нельзя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 20:52:06
    #33498395
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
.........может быть можно как-то объегорить Excel и сделать как в Word-е на каждой странице свой нижний колонтитул..........
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 21:54:26
    #33498446
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Облегчить жизнь себе и окружающим таким образом невозможно. Можно только осложнить.

Но если очень хочется извращений, то можно.
Делаешь подвал с нужным текстом. Перехватываешь Workbook_BeforePrint и в нем печатешь свой лист постранично. Перед печатью одних страниц заменяешь текст в подвале на пробелы, перед печатью других - наоборот восстанавливаешь текст в подвале.

Когда ты уволишься и на твое место прийдет новый человек - разбираясь с этой книгой он тебя десять раз проклянет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.01.2006, 22:22:52
    #33498472
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Чё то ты злостный упырь какой-то прям (невозможно, осложнить, уволишься, проклянет). По делу лучше что ни будь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.01.2006, 12:38:57
    #33499484
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Label над HPageBreaks
Страницы перехватываю, колонтитулы подставляю, а как это(перехваченное) вывести на двустороннюю печать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Label над HPageBreaks / 23 сообщений из 23, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 408ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185339]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 96ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 214ms
total:  408ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]