vzbzdnov
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
С Новым Годом! С Новым Багом!
Ну не может Билли нормальный софт выпускать! Наверное, с генами что-то не то.
Имел нормальный работающий динамический 3D Pie chart, строящийся в VB macro. Всего 7 секторов, показывающих только проценты (в сумме 100%) и скрывающих сами суммы.
После апгрейта на 2007 - оппа! Новогодний подарок! Чарт стал показывать и суммы и проценты! Мало того - все проценты вдруг стали либо 0, либо 1, либо 2! Так, что о суммарных 100% и речи нет.
Код SeriesCollection(1).ApplyDataLabels ShowPercentage := True почему-то уже не работает, хотя Help говорит, что должен.
В новой версии, чтобы заработало, пришлось сделать так SeriesCollection(1).ApplyDataLabels Type := xlDataLabelsShowPercent. Тогда всё верно.
Клёво, а? Пожизненная работа обеспечена. Каждый раз редактировать макро. Спасибо Билли за совместимость!
Для желающих поэксперементировать. Проверьте сей код в разных версиях EXCEL. Может, я чё-то недопонимаю??
Sub AddPieChart()
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
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
Добавлено:
Захотелось мне чегой-то высказать Microsoft-у своё фэ по поводу обнаруженного бага. Провёл быстрый поиск и выяснил офигенную вещь - оказывается, Microsoft не принимает bug reports!!
Вот здесь можно прочитать, как мелкософт содрал с чела $35 за то, чтобы принять от него bug report!!
Добавлено:
Требуется в английском EXCELe сохранить worksheet с русским текстом в файл, чтобы в файле получился оттабулированный текст, т.е. чтоб все строчки в колонках чётко начинались в одних и тех же позициях.
Не нашёл, как такое сделать, поэтому сначала сцепил все колонки построчно в одну выравнивая текст дополнительными пробелами и эту одну широченную колонку пытаюсь сохранить в файл. Делаю следующие манипуляции
ActiveWorkbook.SaveAs FileName:="MyFile.txt", FileFormat:=xlUnicodeText, CreateBackup:=False
В результате в файле имеем красиво оттабулированный текст, только .... он в двойных кавычках... Такое вот безобразие.. Приходится потом файл вручную редактировать и удалять кавычки.
Как упростить процедуру, или, если такое низзя, то как сохранить в файл, чтоб было без кавычек?
----------
|^^^пиво^^\\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@) |
|
Всего записей: 3970 | Зарегистр. 27-03-2002 | Отправлено: 06:37 03-01-2007 | Исправлено: vzbzdnov, 21:30 07-01-2007 |
|
). А для чего столбец D? Он тут тоже как-то задействован?