Печиво допомогти нам доставити наші послуги. Користуючись нашими послугами, Ви погоджуєтесь на використання нами куки.
Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як витягти дані з графіку або графіку в Excel?

doc-extract-chart-data-1
У програмі Excel ми зазвичай використовуємо діаграму, щоб показувати дані та тенденції для більш чіткого перегляду, але іноді, можливо, діаграма є копією, і у вас немає оригінальних даних діаграми, як показано на малюнку нижче. У цьому випадку ви можете отримати дані з цієї діаграми. Зараз цей підручник говорить про витяг даних з діаграми або графіка.
Витяг даних з діаграми з VBA

Навігація -Автотекст (додайте звичайно використані діаграми до AutoText панелі.Тоді один клік, щоб вставити його, коли вам потрібно.)

Excel додавати в інструменти для вставки чарівника водоспаду в будь-який час

Стрілка синього правого міхура Витяг даних з діаграми з VBA


1 Вам потрібно створити новий аркуш і перейменувати його як ChartData. Див. Знімок екрана:

Kutools для Excel, з більш ніж 120 зручні функції Excel підвищення ефективності роботи та економію робочого часу.

doc-extract-chart-data-5

2 Потім виберіть діаграму, з якої ви хочете витягти дані, і натисніть Alt + F11 ключі одночасно і a Microsoft Visual Basic для додатків вікна спливає

3. клацання вставка > Модулі, потім вставте код VBA в спливаюче вікно Модулі вікна.

VBA: Витяг даних з діаграми.

Sub GetChartValues()
	'Updateby20150203
	Dim xNum As Integer
	Dim xSeries As Object
	xCount = 2
	xNum   = UBound(Application.ActiveChart.SeriesCollection(1).Values)
	Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
	With Application.Worksheets("ChartData")
		.Range(.Cells(2, 1), _
		.Cells(xNum + 1, 1)) = _
		Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
	End With
	For Each xSeries In Application.ActiveChart.SeriesCollection
		Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
		With Application.Worksheets("ChartData")
			.Range(.Cells(2, xCount), _
			.Cells(xNum + 1, xCount)) = _
			Application.WorksheetFunction.Transpose(xSeries.Values)
		End With
		xCount = xCount + 1
	Next
End Sub

4 Потім натисніть прогін кнопка для запуску VBA. Див. Знімок екрана:

doc-extract-chart-data-2

Тоді ви можете побачити, що дані витягуються до ChartData аркуш

doc-extract-chart-data-3

Діапазон експорту як графічний

Кутулс' Діапазон експорту як графічний має на меті зберегти або експортувати клітинки вибору як кілька графічних форматів.
Діапазон експорту документів як малюнок

Порада:

1 Ви можете форматувати комірки, як вам потрібно.

doc-extract-chart-data-4

2 За замовчуванням дані вибраної діаграми витягуються до першої комірки таблиці ChartData.

зверніть увагу1Якщо ви зацікавлені в цьому доповненні, завантажте безкоштовну пробну версію 60-днів.


Рекомендовані інструменти для роботи з продуктивністю

Вкладка Office

золота зірка1 Принесіть зручні вкладки для Excel та іншого програмного забезпечення Office, як і Chrome, Firefox та нового Internet Explorer.

Kutools для Excel

золота зірка1 Дивовижний! Збільште свою продуктивність за 5 хв. Не потрібно спеціальних навичок, заощаджуйте дві години щодня!

золота зірка1 Нові можливості 300 для Excel, зробити Excel набагато простішим та потужним:

  • Об'єднати клітинки / рядки / стовпці без втрати даних.
  • Об'єднати та об'єднати декілька аркушів і книг.
  • Порівняйте діапазони, копіюйте декілька діапазонів, перетворюйте текст на дату, одиницю та валюту.
  • Розрахувати за кольорами, Інтерв'ю підказок, Розширений сортування та Супер фільтр
  • Більше Вибрати / Вставити / Видалити / Текст / Формат / Посилання / Коментарі / Робочі книги / Робочі аркуші Інструменти ...

Знімок екрану Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Astro · 1 years ago
    This doesn't appear to work for a scatter plot as it only extracts one set of "x" data. How can I amend it to extract all "x" data sets?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry I did not found the solution about that.
      • To post as a guest, your comment is unpublished.
        Carlos · 1 years ago
        i've tried with a scatter plot graph as well, but only get one line of valor.


        i need so much to find a way to extract data from scatterplot graphs.
  • To post as a guest, your comment is unpublished.
    Ian · 1 years ago
    I failed to get the prices of a fund chart on my mac excel 2011 . Run time error '91' object variable or block variable not set . Don't know how to debug . Appreciate any help .
  • To post as a guest, your comment is unpublished.
    jignesh · 1 years ago
    Very useful and perfect
  • To post as a guest, your comment is unpublished.
    Berk · 1 years ago
    gives me values that i created chart with not all the values in range
  • To post as a guest, your comment is unpublished.
    Leo · 2 years ago
    Amazing command, thanks a lot!

    I used it with a pivot chart and it works!