Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: знаноки, жду вашей помощи!!! Добавлено: 16.01.09 18:39  

Автор вопроса:  Серега

Ответить

  Ответы Всего ответов: 21  

Номер ответа: 16
Автор ответа:
 Серега



Вопросов: 2
Ответов: 14
  Профиль | | #16 Добавлено: 17.01.09 12:40
Есть еще вопросик.. вот программый код:
  1. Private Sub CommandButton14_Click()
  2. Dim grafik As Chart
  3. Set grafik = Charts.Add
  4. With grafik
  5. .ChartType = xlXYScatterSmoothNoMarkers
  6. .Axes(xlValue).MinimumScale = -10
  7. .Axes(xlCategory, xlPrimary).HasTitle = True
  8. .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "M, H*м"
  9. .Axes(xlValue, xlPrimary).HasTitle = True
  10. .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "W, рад/с"
  11. .Axes(xlCategory, xlPrimary).MinorTickMark = xlOutside
  12. .SetSourceData Source:=Sheets("Лист1").Range("A1")
  13. .SeriesCollection.NewSeries
  14. .SeriesCollection.NewSeries
  15. .SeriesCollection.NewSeries
  16. .SeriesCollection.NewSeries
  17. .SeriesCollection.NewSeries
  18. .SeriesCollection.NewSeries
  19. .SeriesCollection.NewSeries
  20. .SeriesCollection(1).XValues = "=Таблица!R2C3:R14C3"
  21. .SeriesCollection(1).Values = "=Таблица!R2C2:R14C2"
  22. .SeriesCollection(1).Name = "ест"
  23. .SeriesCollection(2).XValues = "=Таблица!R2C3:R14C3"
  24. .SeriesCollection(2).Values = "=Таблица!R2C5:R14C5"
  25. .SeriesCollection(2).Name = "P1"
  26. .SeriesCollection(3).XValues = "=Таблица!R2C3:R14C3"
  27. .SeriesCollection(3).Values = "=Таблица!R2C7:R14C7"
  28. .SeriesCollection(3).Name = "P2"
  29. .SeriesCollection(4).XValues = "=Таблица!R2C3:R14C3"
  30. .SeriesCollection(4).Values = "=Таблица!R2C9:R14C9"
  31. .SeriesCollection(4).Name = "P3"
  32. .SeriesCollection(5).XValues = "=Таблица!R2C3:R14C3"
  33. .SeriesCollection(5).Values = "=Таблица!R2C11:R14C11"
  34. .SeriesCollection(5).Name = "P4"
  35. .SeriesCollection(6).XValues = "=Таблица!R2C3:R14C3"
  36. .SeriesCollection(6).Values = "=Таблица!R2C13:R14C13"
  37. .SeriesCollection(6).Name = "P5"
  38. .SeriesCollection(7).XValues = "=Таблица!R2C3:R14C3"
  39. .SeriesCollection(7).Values = "=Таблица!R2C15:R14C15"
  40. .SeriesCollection(7).Name = "P6"
  41. .Location Where:=xlLocationAsObject, Name:="Лист1"
  42. End With
  43. End Sub


На моем компьютере при его выполнении ошибку не выдает, а вот на другом -ругается на строчку .Axes(xlValue).MinimumScale = -10

У меня Office 2007, на другом компе office 2003
Кто знает в чем проблема и как можно это исправить?

Ответить

Номер ответа: 17
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #17 Добавлено: 18.01.09 09:39
Ничего странного!
Запиши подобный макрос в Office 2003 и проблем не будет.
Не все свойства и методы новой версии существовали в предыдущих.

Ответить

Номер ответа: 18
Автор ответа:
 Серега



Вопросов: 2
Ответов: 14
  Профиль | | #18 Добавлено: 18.01.09 10:56
в смысле записать Office 2003?? у меня раньше он работал в 2003 и то через раз, тока графиков не так много было.. а щас отказывается работать.. не пойму как исправить

Ответить

Номер ответа: 19
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #19 Добавлено: 18.01.09 11:08
  1. Private Sub CommandButton14_Click()
  2. Dim grafik As Chart
  3. Set grafik = Charts.Add
  4. On Error Resume Next
  5. With grafik
  6. 'код без изменений(что по силам, то и выполнит)
  7. End With
  8. If Err Then Err.Clear
  9. End Sub

Ответить

Номер ответа: 20
Автор ответа:
 Серега



Вопросов: 2
Ответов: 14
  Профиль | | #20 Добавлено: 18.01.09 11:43
пасиб.. попробуй как буду у старого офиса)

Ответить

Номер ответа: 21
Автор ответа:
 Серега



Вопросов: 2
Ответов: 14
  Профиль | | #21 Добавлено: 20.01.09 14:33
короче этот код не помогает.. он просто игнорирует эту команду и все=( а мне обязательно нужно поставить это ограничение, иначе графики получаются очень мелкие с лишними линиями

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам