Указано измерение недопустимое для текущего типа диаграммы vba excel

Обновлено: 03.07.2024

Диаграмма может представлять собой внедренную диаграмму (содержащуюся в объекте ChartObject) или отдельный лист диаграммы.

Коллекция Charts содержит объект Chart для каждого листа диаграммы в книге. Чтобы вернуть один объект Chart, используйте синтаксис Charts (индекс), где индекс — это номер индекса или имя листа диаграммы.

Номер индекса диаграммы представляет положение листа диаграммы на панели вкладок книги. Charts(1) — это первая (крайняя левая) диаграмма в книге; Charts(Charts.Count) — последняя (самая правая).

Все листы диаграмм включаются в число индексов, даже если они скрыты. Имя листа диаграммы отображается на вкладке книги для диаграммы. Можно использовать свойство Name объекта ChartObject, чтобы установить или вернуть имя диаграммы.

В следующем примере изменяется цвет ряда 1 на листе диаграммы 1.

В следующем примере диаграмма Sales (Продажи) перемещается в конец активной книги.

Объект Chart также является элементом коллекции Sheets, который содержит все листы книги (рабочие листы и листы диаграммы). Чтобы вернуть один лист, используйте синтаксис Sheets (индекс), где индекс — это номер индекса или имя листа.

Если диаграмма является активным объектом, для ссылки на нее можно использовать свойство ActiveChart. Лист диаграммы активен, если пользователь выбрал его или он активирован с помощью метода Activate объекта Chart или метода Activate объекта ChartObject.

В следующем примере активируется лист диаграммы 1, а затем задается тип и заголовок диаграммы.

Внедренная диаграмма активна, если пользователь выбрал ее или объект ChartObject, в котором она находится, активирован с помощью метода Activate.

В следующем примере активируется внедренная диаграмма 1 на листе 1, а затем задается тип и название диаграммы. Обратите внимание, что после активации внедренной диаграммы код в этом примере совпадает с предыдущим примером. С помощью свойства ActiveChart можно написать код на языке Visual Basic, который может ссылаться на внедренную диаграмму или на лист диаграммы (в зависимости от активного объекта).

Если лист диаграммы является активным листом, для ссылки на него можно использовать свойство ActiveSheet. В следующем примере используется метод Activate для активации листа диаграммы Chart1, а затем задается синий цвет для ряда 1 на диаграмме.

События

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь

Run-time error '1004'
Камрады, Постепенно схожу с ума. Пытаюсь в Excel средствами VBA скопировать лист целиком из.

Run-time error 1004
Здравствуйте,подскажите как решить проблему,сделал макрос на расширенный фильтр задание также есть.

Run-time error 1004
На предприятий используется Екселевский фаил! привязан к базе Беста! И при формирований документов.

Run-time Error 1004
Доброго дня! Мне нужно сгруппировать строки в таблице (ListObject), начинаю с.

В Sub GeneralBook() расширение файлов *.xls, а в Sub GeneralBook() расширение файлов *.xlsx
Это так надо? Да. Так и надо. У меня какие-то проблемы с организацией цикла записи файлов, а как и решить - не понятно =( Странно.
В Sub GeneralBook() копируете файл VES.xls из папки "temp" в папку "new"
В Sub openXLS() функция Dir читает имя файла в папке "new" с расширением *.xlsx
А файла VES.xlsx там нет. Там просто уже есть файлы с расширением *.xlsx, а в VES.xls они собираются в необходимом порядке.
Там ниже я прикрепила папку с исходными файлами и скриптом. Если Вам не сложно - посмотрите, пожалуйста Александра, у вас случайно Excel2003?
Ошибка та самая на строке
Excel.Application.Workbooks.Open sPath
Мой Excel2003 не может открывать файлы *.xlsx
Проверил, что причина именно в этом
В папку "new" записал переделанный в формат Excel2003 файл ВЭЗ-270.xls
Заменил в Sub openXLS() строку MyName = Dir(MyPath & "*.xls")
Теперь ошибок нет

Добавлено через 48 минут
Большое спасибо за помощь. Проблема была решена вставкой функции GOTO.

run time error 1004
Доброго всем времени. Переустановил винду и офис, теперь в файле рабочего макроса вылетает ошибка.

Run-time error 1004
Добрый день! Сломала голову, выплывает ошибка. Есть аналогичный файл, с этим же кодом, там всё.

Ошибка run-time error 1004
Sub pract() korp = Val(InputBox("Введите номер столбца, где находятся адреса: ", "Столбец", 5)).

Run-time error 1004 в цикле Do-While
Добрый день. Помогите пожалуйста в решении проблемы ошибки 1004. Значит имеется книга в которой.

Ошибка VBA 1004 - это ошибка, с которой мы сталкиваемся при выполнении кода в VBA. Он также известен как ошибка времени выполнения VBA. Когда мы работаем в VBA или на любом другом языке программирования или даже в нашей повседневной работе, мы сталкиваемся с различными видами ошибок. Иногда даже мы пропускаем один символ в коде, что приводит к тому, что весь код не работает или, возможно, весь код неверен.

Ошибки, безусловно, являются частью кода, который мы пишем. Это может быть непреднамеренным, но они существуют. Независимо от того, насколько мы профессиональны в кодировании, ошибки во время выполнения могут возникнуть где угодно. Как объяснено выше VBA 1004 Ошибка - это ошибка, которая возникает во время выполнения кода в Excel. Это также называется ошибкой приложения или объекта.

Существуют различные типы причин, по которым мы получаем VBA Runtime Error 1004 в Excel, давайте рассмотрим некоторые из них.

Ошибка выполнения VBA 1004: сбой метода «Диапазон» объекта «_ Global»:

Эта ошибка возникает, когда значение диапазона, которое мы ссылаемся на VBA, неверно. Он также называется метод «Диапазон» объекта «_ Global» не удалось.

Ошибка выполнения VBA 1004: это имя уже занято.Попробуйте другой:

Мы присваиваем одно и то же имя рабочему листу, который уже занесен другим рабочим листом.

Ошибка выполнения VBA 1004: невозможно получить свойство select класса Range:

Это ошибка, когда мы выбираем диапазон на другом листе, не активируя тот лист, на который мы ссылаемся.

Ошибка выполнения VBA 1004: сбой метода «Открыть» объекта «Книги»:

Эта ошибка возникает, когда мы пытаемся открыть рабочую книгу, которая уже открыта, или файл уже используется другой программой.

Ошибка выполнения VBA 1004: извините, мы не смогли найти:

Мы получаем эту ошибку, когда пытаемся открыть лист, который не существует.

Как мы узнали, могут быть разные причины, по которым мы получаем ошибку во время выполнения. Ошибка выполнения может возникнуть в любой строке кода. Нам нужно научиться обрабатывать эти ошибки, и это называется VBA Error Handling.

Пример VBA Runtime Ошибка 1004 в Excel

Теперь, когда я описал различные типы ошибок, которые могут возникать во время выполнения любого кода VBA, теперь давайте изучим их, как они выглядят на примерах.

Вы можете скачать этот шаблон Excel с ошибкой VBA 1004 здесь - Шаблон Excel с ошибкой VBA 1004

Ошибка выполнения VBA 1004 - Пример № 1

Как объяснено об этой ошибке, эта ошибка возникает, когда мы ссылаемся на неверное значение именованного диапазона в VBA. Это может произойти, если мы допустим орфографическую ошибку именованного диапазона, чтобы сослаться на диапазон, который даже не существует. Чтобы продемонстрировать это, давайте сначала создадим именованный диапазон. У меня есть следующие данные здесь.

Давайте назовем этот заголовок таблицы как DATA .

Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.

Код:

Вызовите заголовок, который мы назвали следующим кодом, написанным ниже.

Код:

Когда мы запускаем код, мы видим в Excel, что он был выбран, поскольку мы правильно вызвали заголовок.

Теперь мы неправильно написали орфографию имени заголовка.

Код:

Запустите код еще раз, чтобы увидеть результат.

Мы получаем Excel VBA Runtime Ошибка 1004, потому что мы неправильно написали имя диапазона.

Ошибка выполнения VBA 1004 - Пример № 2

Мы получаем эту ошибку, когда пытаемся переименовать лист с именем, которое уже занято. Например, я переименовал лист 1 в « Ананд », и я постараюсь переименовать лист 2 в тот же, чтобы увидеть результат.

Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
Объявите подфункцию, чтобы начать писать код.

Код:

Попробуйте переименовать лист 2 в Anand с помощью следующего кода ниже,

Код:

Запустите приведенный выше код и посмотрите результат.

Ошибка выполнения VBA 1004 - Пример № 3

Я попытаюсь добавить значение из листа 2 к переменной на листе 3. Но я не буду активировать лист 2 и посмотрю, что произойдет.

Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
Объявите подфункцию, чтобы начать писать код.

Код:

Объявите две переменные A и B как целое число.

Код:

В переменной B сохраните значение A в дополнение к ячейке A1 листа 2.

Код:

Давайте предположим, что код работает, и используем функцию msgbox для отображения значения B.

Код:

Запустите код, чтобы увидеть полученный результат.

Мы получаем эту ошибку, потому что мы не активировали лист 2, но мы пытаемся использовать значение листа 2.

Ошибка выполнения VBA 1004 - Пример № 4

Мы сталкиваемся с этой ошибкой во время выполнения, когда у нас уже открыто одно и то же имя рабочей книги, но мы пытаемся открыть ее снова.

В этом примере я уже переименовал свою книгу в VBA 1004 Error.xlsm, и я попытаюсь снова открыть ее, которая уже открыта, и посмотреть, получу ли я ошибку VBA 1004.

Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
Объявите подфункцию, чтобы начать писать код.

Код:

Объявите переменную в качестве рабочей книги.

Код:

Попробуйте открыть книгу, которую мы уже открыли, с помощью следующего кода.

Код:

Запустите приведенный выше код, чтобы увидеть результат.

Мы получаем эту ошибку, потому что мы уже открыли ту же книгу.

Ошибка выполнения VBA 1004 - Пример № 5

Мы получаем эту ошибку, когда пытаемся открыть книгу, которой не существует. Это в некоторой степени похоже на приведенную выше ошибку, поскольку VBA не может найти книгу.

Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
Объявите подфункцию, чтобы начать писать код.

Код:

Попробуйте открыть любую книгу с помощью следующего кода,

Код:

Я уже удалил лист с места.
Запустите код, чтобы увидеть результат.

Поскольку лист не существует в данном месте, мы получаем эту ошибку.

То, что нужно запомнить

Всегда проверяйте на наличие орфографических ошибок.
Не переименовывайте несколько листов с одинаковыми именами.
Перед звонком по любой другой ссылке обязательно активируйте соответствующий лист.
Прежде чем пытаться открыть любой другой лист, убедитесь, что указан правильный путь.

Рекомендуемые статьи

Это было руководство к VBA 1004 Ошибка. Здесь мы обсудили Excel VBA Runtime Error 1004 вместе с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

Одно из основных применений Excel — это анализ данных. А для анализа данных часто удобно использовать диаграммы с их специальными возможностями, такими, как тренды. На практике задачи по автоматизации создания множества похожих друг на друга диаграмм (обычно на основе информации, полученной из базы данных) возникают очень часто.

С диаграммами в Excel существует некоторая терминологическая путаница. То, что на графическом интерфейсе русского Excel называется диаграммой (меню Вставка -> Диаграмма), по английски называется графиком (Chart) и ему соответствует объект Chart. В объектной модели Excel предусмотрен также и объект Diagram, но он представляет скорее схему отношений (то, что при помощи графического интерфейса русского Excel можно добавить при помощи меню Вставка -> Схематическая диаграмма). Под диаграммой в этом разделе будет пониматься то же, что и у создателей русского Excel — график.

Диаграммы в Excel создаются при помощи объекта Chart.

Лучше всего вначале этот объект объявить:

Dim oChart As Chart

Дальше можно создавать диаграмму. Производится создание диаграммы при помощи много раз использованного нами приема — вызова метода Add() коллекции Charts:

В принципе, диаграмма уже создана, но, поскольку никакие ее свойства не определены, она выглядит просто как пустой лист. Чтобы она обрела содержание, необходимо выполнить еще несколько действий:

Первое (и единственное обязательное действие) — определить источник данных для диаграммы, для чего предназначен метод SetSourceData(). В качестве источника может выступать только объект Range (он передается в качестве первого и единственного обязательного параметра этого метода). Второй параметр (необязательный) определяет, в каком порядке считывать данные — сначала по столбцам или сначала по строкам. Например, в нашем случае это может выглядеть так:

В принципе, если запустить созданный код на выполнение, то диаграмма уже будет создана. Для всех остальных параметров будут приняты значения по умолчанию. Однако на практике нужно определить еще хотя бы тип диаграммы (по умолчанию она будет выглядеть как "обычная гистограмма", то есть ряд из столбиков разной длины). Для этой цели используется свойство ChartType, для которой разработчиками предусмотрено целых 73 значения. Например, чтобы преобразовать диаграмму в обычный график, можно использовать код вида:

Еще одна очень распространенная задача – добавить дополнительные ряды на диаграмму. Для этой цели необходимо создать и получить ссылку на объект Series – ряд, а потом для ряда определить свойство Values (ему передается в качестве значения объект Range):

Dim oSeries As Series

Set oSeries = oChart.SeriesCollection.NewSeries

Пользователи часто говорят, что им необходимо создавать диаграммы не на отдельном листе, а на том же листе, на котором расположены данные. По умолчанию диаграмма создается в оперативной памяти и помещается на отдельный лист. Если нам необходимо поместить ее на уже существующий лист, то в этом случае ее вначале надо создать на отдельном листе, а затем переместить при помощи метода Location. Отдельный лист, созданный для диаграммы, при этом автоматически исчезнет:

oChart.Location xlLocationAsObject, "Лист1"

Обратите внимание, что метод Location принимает в качестве первого параметра одну из констант (xlLocationAsNewSheet – переместить на специально создаваемый новый лист, xlLocationAsObject – переместить на объект, то есть лист), а в качестве второго – не объект листа, как можно было бы подумать, а обязательно его имя. Если код предполагается использовать и в русской, и в английской версии Excel, то предпочтительнее получить имя листа программным образом.

Dim oSeries As Series

Так работать, конечно, намного менее удобно.

Остальные многочисленные параметры диаграммы настраиваются при помощи свойств и методов объектов Chart:

свойство ChartArea — это свойство возвращает одноименный объект ChartArea, который представляет собой область, занимаемую диаграммой и используется для настройки внешнего вида диаграммы (свойства Font, Interior и т.п.). Если необходимо настроить внешний вид не всей диаграммы, а той ее части, которая используется непосредственно для вывода графика, используется схожее свойство PlotArea. По умолчанию диаграмма размещается прямо по центру листа. Если необходимо ее переместить в точно определенное место листа, используются знакомые на свойства Top, Height, Left и Width для объекта ChartArea.
свойство ChartTitle возвращает одноименный объект, при помощи которого можно настроить заголовок диаграммы (с такими свойствами, как Text, Font, Border и т.п.);
ChartType — важнейшее свойство, про которое мы уже говорили. Определяет тип диаграммы;
HasDataTable — если установить это свойство в True, то в нижней части диаграммы (по умолчанию) появится таблица с числами, на основе которых была создана диаграмма. Одновременно будет создан программный объект DataTable, при помощи которого можно настроить представление этой таблицы. Схожим образом действуют свойства HasLegend, HasPivotFields и HasTitle.
Name — это свойство позволяет настроить имя диаграммы (как название вкладки в Excel). По умолчанию диаграммы называются последовательно "Диаграмма1", "Диаграмма2" и т.п.
SizeWithWindow — если поставить значение этого свойства в True (по умолчанию False), то размер диаграммы будет подогнан таким образом, чтобы точно соответствовать размеру листа.
Tab — свойство, о котором мало кто подозревает. Оно позволяет настроить при помощи одноименного объекта внешний вид вкладки в книге Excel для диаграммы (или просто листа). Например, чтобы пометить вкладку зеленым, можно воспользоваться кодом

oChart.Tab.Color = RGB(0, 255, 0)

Visible — возможность спрятать диаграмму без ее удаления.

Остальные свойства в основном относятся к настройке отображения трехмерных диаграмм и к защите диаграммы от изменения пользователем.

Теперь — о самых главных методах объекта Chart:

Для объекта Chart предусмотрено также события "на все случаи жизни" — реакция на щелчки мышью, на выделение/снятие выделения, активизацию, пересчет данных, изменение размера и т.п., однако используются такие события на практике нечасто.

Я делаю линейный график (диаграмму) в Excel, и несколько строк данных строятся на одной диаграмме.

Мне нужно создать решение макро /VBA, которое может включать/отключать видимость этих серий нажатием кнопки (или галочкой и т.д.)

Подобно этому изображению (вручную выполняется через систему меню excel)

Я попытался просмотреть все членские классы/методы на

но им не повезло.

Я пробовал играть с битами типа

но я не могу получить объект диаграммы (я получаю индекс за пределами диапазона) и не могу найти какой-либо метод, который позволил бы мне включить/отключить видимость отдельных серий.

Этот код изменил видимость строки:

И аналогично, установка свойства ser.Format.Line.Visible на msoTrue снова сделала видимым изображение.

Что касается получения самой диаграммы, я должен был сначала ее активировать, а затем установить мою переменную cht в ActiveChart. Чтобы просмотреть название диаграммы, выберите его и посмотрите в поле имени (рядом с тем, где вы должны ввести значение ячейки/формулу).

Update

При использовании вышеописанного метода имя серии остается в поле легенды. Я не смог найти свойство видимости для SeriesCollection в легенде, однако одно обходное решение состоит в том, чтобы просто переименовать серию в виде пустой строки (это приведет к исчезновению серии из легенды), а затем переименуйте серию, когда вы хочу показать это.

Этот код ниже переключит видимость названия строки и серии в легенде.

И всякий раз, когда вы используете .Format.Line.Visible = msoTrue , просто не забудьте установить ser.Name обратно на то, что имя для вашей серии.

Всякий раз, когда я не знаю, как это сделать, я включаю макрокорректор.

У меня была диаграмма с четырьмя сериями, и я использовал функцию фильтра в Excel 2013, чтобы скрыть и показать вторую серию, в то время как макро-рекордер работал.

Вот соответствующий код:

Тип серии (строка или столбец) не имеет значения, это работает для любого из них.

Читайте также: