·
2 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?
ナビゲーション - 定型文 (通常使用されるチャートを定型枠に追加し、必要なときにワンクリックして挿入します)。 |
1。 新しいワークシートを作成して名前を変更する必要があります ChartData。 スクリーンショットを見る:
Kutools for Excel, 以上で 120 便利なExcel機能、 作業効率を高め、作業時間を節約します。 |
2。 次に、データを抽出するチャートを選択し、を押します。 Altキー+ F11 キーを同時に押すと、 アプリケーション用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を実行します。 スクリーンショットを見る:
次に、データが抽出されたことがわかります ChartData シート。
グラフィックをエクスポートする範囲 |
クツール' グラフィックをエクスポートする範囲 選択セルを複数のグラフィック形式で保存またはエクスポートすることを目的としています。 |
ヒント:
1。 必要に応じてセルをフォーマットすることができます。
2。 選択したチャートのデータは、デフォルトでChartDataシートの最初のセルに抽出されます。
![]() |