Постройка графика на листе Excel

@lvin · Регистрация: 21.02.2008

Студворк — интернет-сервис помощи студентам

следующим кодом пытаюсь построить график в экселевском файле на листе 'Grafics'

Visual Basic
1
2
3
4
5
6
7
8
9
10
Set objWorksheet = objWorkbook.Sheets(2)
objWorksheet.Name = 'Grafics'
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets('Grafics').Range('A1'), PlotBy:=xlColumns
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = '=Results!R3C1:R118C1'
ActiveChart.SeriesCollection(1).Values = '=Results!R3C2:R118C2'
ActiveChart.Location Where:=xlLocationAsObject, Name:='Grafics'

но график почему-то строится на листе результатов('Results').
Подскажите в чем ошибка.
И второй вопрос:что такое выключить/включить
сообщения

Visual Basic
1
objExcel.DisplayAlerts = False/objExcel.DisplayAlerts = True

для чего это вообще нужно и куда их ставить в программе.

@ma3ai · 17.03.2008, 18:33

Вообще-то пост не по адресу здесь. VBA в соседнем форуме.

<Charts.Add> добавляет отдельную страницу поэтому всё выглядит по-другому:
(код не претендует на изящество но смысл понятен)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim wsheet As Worksheet
    Dim Charts As ChartObjects
    Dim Chart As ChartObject
    Set wsheet = ActiveSheet
    wsheet.Name = 'Grafics'
    Set Charts = wsheet.ChartObjects
    Set Chart = Charts.Add(0, 0, 200, 200)
    With Chart.Chart
        .ChartType = xlXYScatterLines
        .SetSourceData Source:=Sheets('Grafics').Range('A1'), PlotBy:=xlColumns
        .SeriesCollection.NewSeries.XValues = Worksheets('Results').Range('B1:B5')
        .SeriesCollection.NewSeries = Worksheets('Results').Range('C1:C5')
        .Location Where:=xlLocationAsObject, Name:='Grafics'
    End With

RTFM, успехов

@lvin · 18.03.2008, 18:01 **[ТС]**

В свое опровдание хочу сказать, что я пишу эту программу на VB, поэтому и вопрос задаю в этом форуме. А за код спасибо, работает.

@ma3ai · 18.03.2008, 18:15

Извини - погорячился

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@lvin 0 / 0 / 0 Регистрация: 21.02.2008 Сообщений: 4
	18.03.2008, 18:01 [ТС]
	В свое опровдание хочу сказать, что я пишу эту программу на VB, поэтому и вопрос задаю в этом форуме. А за код спасибо, работает. 0

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	18.03.2008, 18:15
	Извини - погорячился 0