Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чарт из VBA в VBS / 5 сообщений из 5, страница 1 из 1
24.10.2011, 10:16
    #37494767
M22
M22
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чарт из VBA в VBS
Есть макрос а Экселе
Построение графика
----------------------------------------
Код: 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:18
    #37494771
M22
M22
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чарт из VBA в VBS
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, 11:35
    #37494893
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чарт из VBA в VBS
Неясно, что именно не получается

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

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

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Чарт из VBA в VBS / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 353ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176359]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 243ms
total:  353ms
x
x
Закрыть


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