ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чарт из VBA в VBS
5 сообщений из 5, страница 1 из 1
Чарт из VBA в VBS
    #37494767
M22
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
M22
Участник
Есть макрос а Экселе
Построение графика
----------------------------------------
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A8:B29"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
------------------------------------------
Нужно переписать это VBS
Кое что получилось

Код: plaintext
1.
2.
3.
Set CurrentChart2 = book.Charts.Add( )
CurrentChart2.Name = "График2"
CurrentChart2.SetSourceData( Sheet.Range("A8:B29")  )
Это не получается
Код: plaintext
1.
  ActiveChart.ChartType = xlLineMarkers
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

Это только
Код: plaintext
1.
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A8:B29"), PlotBy:= _
        xlColumns
Вот так
Код: plaintext
CurrentChart2.SetSourceData( Sheet.Range("A8:B29")  )


Помогите если можно

Заранее спасибо
...
Рейтинг: 0 / 0
24.10.2011, 10:16
| Ответить | Цитировать | Написать  
Чарт из VBA в VBS
    #37494771
M22
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
M22
Участник
Book b Sheet определены так

Set xls = CreateObject("Excel.Application")
On Error Resume Next
Err.Clear
Set book = xls.Workbooks.Add("\\192.168.0.126\reports\XLS\Биб_ПоДням.xls")
Set sheet = book.Worksheets(1)
Sheet.Activate
...
Рейтинг: 0 / 0
24.10.2011, 10:18
| Ответить | Цитировать | Написать  
Чарт из VBA в VBS
    #37494893
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Неясно, что именно не получается

В любом случае, константы типа xlLineMarkers надо заменить на значения, ну или явно задать такие переменные
...
Рейтинг: 0 / 0
24.10.2011, 11:35
| Ответить | Цитировать | Написать  
Чарт из VBA в VBS
    #37496074
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Модератор: флуд удален, дальше высказываемся по теме.
...
Рейтинг: 0 / 0
24.10.2011, 22:16
| Ответить | Цитировать | Написать  
Чарт из VBA в VBS
    #37496388
M22
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
M22
Участник
Спасибо всем
Вопрос решился через создание МАКРОСОВ

Еще вдогонку вопрос
Как написать в VBS данную строку
Код: plaintext
1.
2.
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A8:B29"), PlotBy:= _
        xlColumns

Спасибо
...
Рейтинг: 0 / 0
25.10.2011, 09:07
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чарт из VBA в VBS
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=117&tid=2176359]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 221ms
total:  342ms
созд. / загр.: 342ms
x
x
Закрыть


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