столкнулся со следующей проблемой: в 2003 экселе был создан файл, в котором активно использовались объекты "линия" толщиной 0,25пт. при печати из 2003-го Экселя всё было замечательно.  
 
проблема: при печати этого же файла из 2007-го экселя толщина напечатанных линий значительно больше. Принтер не при чем, печать производилась на один и тот же принтер, просто с 2х разных компов. Файл один и тот же.    
Вопрос: как уменьшить толщину линии? Причем, если в формате объекта ставишь толщину 0,05пт, 0,10пт, 0,2пт при печати все равно будут прорисованы линии одной и той же толщины. Такое впечатление, что в 2007 стоит какое-то ограничение, при котором не позволяется печатать очень тонкие линии.  
 
Никто не сталкивался?

попробуйте Application.Version  
если больше 11-й, то это Эксель2007. я так думаю :)

Слэн,  
 
с уважением и от меня!

всем привет.  
 
в 2003 экселе активно использовалась кнопка "обновить файл", которая позволяла обновлять файлы, открытые только для чтения, без их перезапуска.    
в 2007-м аналогичная кнопка хоть и есть, но при нажатии на нее ожидаемого результата нет.    
 
никто не сталкивался с подобной проблемой?

BashOrg:  
 
397528 [ + 2285 − ] [:||||:] [обсудить] утверждена 2008-06-29 в 13:33
1: ты в екселе силен?  
 
2: ну смотря в чем именно  
 
1: как страницу растянуть вниз, короче подятигиваю ячейки, шоб одна строка на страницу залезла одну, а они сокращаются и вместе с ними подтягиваеться и граница страницы сука  
 
2: 0_o мне чето вспомнилось как мы в институте в психушку ходили на экскурсию. Нам показывали одного больного, она безсвязно расказывала про помидоры, фотоаппарат, и ведро...

можно пойти другим путем: обновлять форму и уже из нее вставлять значения в лист. А если лист играет сугубо вспомогательную роль, то и вставлять никуда не надо

вот рекурсивная процедурка, имитирующая часы.  
 
Sub Clock()  
Cells(1, 1) = Now  
newtime = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)  
Application.OnTime newtime, Clock  
End Sub  
 
 
сами приладите?

всем привет!  
 
с недавних пор при нажатии в Экселе на кнопку "отправить сообщение (как вложение)" вылезает ошибка (смотри вложение). Эксель 2003, Аутлук 2007. ранише все работало. перезаливка офиса и винды в целом ничего не дала. Никто не сталкивался с подобным?

как ни странно, left()  
на всякий случай: есть еще right() и mid() :)

а если кнопку с шифтом нажимать?

во! покопался. св-во .locked=true попробуйте. вроде то, что надо

ну тогда надо сделать  предупреждающий label. что-то вроде "будете портить текст - руки оторву!" :о)

{quote}{login=}{date=30.10.2008 06:14}{thema=}{post}Используйте ТекстБокс и нет проблем{/post}{/quote}  
+ св-во Enabled, чтобы не портили

если вы про label, то можно расширить и допустить перенос слов. а если про textbox, то там есть св-во scrollbars

F1+фраза "условное форматировние"

йех, Лузер опредил. :)  
но мне кажется, что все так надо application.CommandBars

{quote}{login=qwe}{date=29.10.2008 03:31}{thema=Re: }{post}я нарисовал в личной книге макрос, который по-моему замыслу должен был по-идее, включать и выключать кнопку с панели:  
 
Private Sub Workbook_Activate()  
 
If ActiveWorkbook.Name = "Книга.xls" Then  
   ActiveWorkbook.CommandBars("Макрос").Visible = True  
Else  
   ActiveWorkbook.CommandBars("Макрос").Visible = False  
End If  
 
End Sub  
 
 
но он не работает((  
что тут не так?{/post}{/quote}  
 
надо как-то так:  
Private Sub Workbook_Activate()  
application.CommandBars("Макрос").Visible = True  
End Sub  
Private Sub Workbook_deActivate()  
application.CommandBars("Макрос").Visible = false  
End Sub  
 
должно сработать. писал по памяти

{quote}{login=kaa}{date=30.10.2008 04:59}{thema=}{post}у меня Аутлуком запускался вполне самостоятельный экселевский макрос, который генерил файл определенного содержания, сохранял его в определенное место и записывал путь к нему как раз вот сюда MyExl.cells(q, 3). а Аутлук по этому пути и приаттачивал его к письму.    
 
а в аутлуке может вы метод .find неправильно прописываете? может так?  
set f=MyExl.Cells.Find(What:=w)  
if not f is nothing then  
тра-та-та  
end if  
 
а вот насчет вставить скопированный фрагмент экселя в письмо - эт я пас... могу лишь предложить залить необходимую инфу в какой-нить массив, а уже из него в тело письма вставить через vbtab...{/post}{/quote}  
 
p.s. f, наверное, надо тоже определить dim f as myexl.range... в общем методом тыка...

у меня Аутлуком запускался вполне самостоятельный экселевский макрос, который генерил файл определенного содержания, сохранял его в определенное место и записывал путь к нему как раз вот сюда MyExl.cells(q, 3). а Аутлук по этому пути и приаттачивал его к письму.    
 
а в аутлуке может вы метод .find неправильно прописываете? может так?  
set f=MyExl.Cells.Find(What:=w)  
if not f is nothing then  
тра-та-та  
end if  
 
а вот насчет вставить скопированный фрагмент экселя в письмо - эт я пас... могу лишь предложить залить необходимую инфу в какой-нить массив, а уже из него в тело письма вставить через vbtab...

я недавно мучался:  
http://www.planetaexcel.ru/forum.php?thread_id=6527

если значения в столбце идут без разрывов, то worksheetfunction.counta()

а медиатор - это такая шняжка, чтобы на гитаре лучше игралось... :о)

одну ячейку выделите. слева от нее и выше залипнет

Спасибо,Юрий. ужо решил проблему

с чего бы это? просто еще и работать надо...  
 
абидна, да... :о)

хы... пост одного актера...  
 
может кому будет интересно:    
код для Outlook'2007. При получении нового письма с определенной темой, Аутлук запускает процедуру в Экселе, и результат процедурки отправляет обратно по почте:  
 
Private Sub Application_NewMail()  
Set myOlApp = Outlook.Application  
Set myNamespace = myOlApp.GetNamespace("MAPI")  
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)  
 
Dim myNewMail As Outlook.MailItem  
 
Dim MyExl As Object  
Set MyExl = GetObject(, "Excel.Application")  
 
flag = False  
For i = myFolder.Items.Count To 1 Step -1  
Set myItem = myFolder.Items(i)  
With myItem  
   If .UnRead Then  
       If Left(.Subject, 17) = "Обновить поле дем" Then  
             
           d = DateValue(Right(.Subject, 10))  
           On Error Resume Next  
           Set a = MyExl.Application.Run("'Распределение установок.xls'!PoleDem", d)  
               With MyExl.workbooks("Распределение установок.xls")  
                   q = MyExl.WorksheetFunction.CountA(MyExl.Columns(1))  
                   fln = MyExl.cells(q, 3)  
               End With  
       .UnRead = False  
       t = .SenderName  
       flag = True  
       Exit For  
       End If  
   End If  
End With  
   Next i  
 
If flag = True Then  
Set myOlApp = Outlook.Application  
Set myNewMail = myOlApp.CreateItem(olMailItem)  
   With myNewMail  
   .Display  
   .To = t  
   .Subject = "поле дем обновлено"  
   If fln <> "" Then .Attachments.Add fln  
   .Send  
   End With  
End If  
 
End Sub

ладно, попробую другим путем.... никто не подскажет, какой параметр полоученного письма отвечает за поле "От"? .from не подходит :(

всем привет.  
 
задачко: при получении письма Аутлуком, если оно соответствует некоторым параметрам, на это письмо должно быть сделано действие "Ответить всем". вот как раз это у меня и не получается. Посмотрите, плиз. Выкладываю код:  
 
Private Sub Application_NewMail()  
Set myOlApp = Outlook.Application  
Set myNamespace = myOlApp.GetNamespace("MAPI")  
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)  
 
Dim MyExl As Object  
Set MyExl = GetObject(, "Excel.Application")  
 
For i = myFolder.Items.Count To 1 Step -1  
Set myItem = myFolder.Items(i)  
With myItem  
   If .UnRead Then  
       If Left(.Subject, 17) = "Обновить поле дем" Then  
             
'            d = DateValue(Right(.Subject, 10))  
'            On Error Resume Next  
'            Set a = MyExl.Application.Run("'Распределение установок.xls'!PoleDem", d)  
'                With MyExl.workbooks("Распределение установок.xls")  
'                    q = MyExl.WorksheetFunction.CountA(MyExl.Columns(1))  
'                    fln = MyExl.cells(q, 3)  
'                End With  
       .UnRead = False  
         
        .Reply' /////////вот здесь затык и возникает  
       '.Send  
         
         
       Exit For  
       End If  
   End If  
End With  
   Next i  
End Sub

{quote}{login=Raptor}{date=23.10.2008 10:02}{thema=}{post}А если макрос по каким-либо причинам не справляется - можно с помощью формулы:){/post}{/quote}  
 
крута!

{quote}{login=kaa}{date=23.10.2008 09:46}{thema=}{post}вот так. набросал быстро. если что - обработать напильником :){/post}{/quote}  
 
пока дите мыл, надумал:  
поле расписания на до бы каждый раз очищать, поэтому после строк  
   qr = WorksheetFunction.CountA(Columns(1)) + 1  
   qc = WorksheetFunction.CountA(Rows(2))  
надо добавить    
   Range(Cells(3, 2), Cells(qr, qc)).Clear  
 
и еще: если хотите все это дело в цветах, то надо вместо ФИО преподаваталя использовать colorindex соответствующей ячейки