vzbzdnov
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LevT
Цитата: По поводу хелпа в новых офисах хочется долго и матерно ругаться. Такое ощущение, что у них там великие реформы затянулись - да так, что никак не вернутся к уровню хелпа 97 офиса... С VBA-хелпом традиционно все еще хуже, чем в среднем по больнице.
|
Да уж.. Копаться в MSDN это не самый лучший хелп
aar
Цитата:| А что вызывает нарекания? |
Отсутствие такового
А у кого как с performance в 2007-ом? Я, лично, уже все волосья себе на голове повыдёргивал от отчаяния. Приходится гонять доволино сложный макрос, с классами, динамическими charts и прочими наворотами. Так вот, на лаптопе с Pentium 1.6G 512mb стоит Excel 2003 и макро работает секунд 20-25, а на десктопе Pentium 2.53 1gb стоит Excel 2007 и тот же файл с тем же макросом идёт почти 3 минуты! О Б А Л Д Е ТЬ ! Особенно тормозят charts. Прямо, видно, как комп тужится.
И совместимости никакой.
У кого есть доступ к 2м версиям - 2007 и более ранними, протестируйте, плз, сей код и расскажите, что у вас получается
Цитата:
Sub AddChart()
Dim ch As ChartObject
Set ch = Worksheets("Sheet2").ChartObjects.Add(10, 10, 210,210)
With ch.Chart
.SetSourceData Source:=Sheets("Sheet1").Range("A1:C7"), PlotBy:=xlColumns
.ChartType = xl3DPie
With .SeriesCollection(1)
.XValues = Sheets("Sheet1").Range("A1:A7")
.ApplyDataLabels ShowPercentage:=True
End With
With .PlotArea
.Border.LineStyle = xlContinuous
.Interior.ColorIndex = 2
.Left = 50#
.Top = 25#
.Width = 160#
End With
With .ChartArea.Font
.Name = "Arial Narrow"
.FontStyle = "Regular"
.Size = 7
End With
End With
End Sub
Sheet1:
1101 Product1 $2,197.99
1102 Product2 $5,731.24
1103 Product3 $9,613.70
1104 Product4 $6,053.07
1105 Product5 $6,177.96
1106 Product6 $3,700.14
1107 Product7 $3,765.61
|
----------
|^^^пиво^^\\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@) |
|
Всего записей: 3955 | Зарегистр. 27-03-2002 | Отправлено: 01:53 04-03-2007 | Исправлено: vzbzdnov, 02:09 04-03-2007 |
|
(( 
