Excel макро 3D диаграмма

Question

у меня есть следующие данные на одном листе:

x y offset

1 1 2

1 2 2

1 3 3

1 4 4

2 1 5

2 2 6

2 3 2

2 4 2

3 1 3

3 2 4

3 3 5

3 4 6

4 1 8

4 2 7

4 3 0

4 4 9 и я хочу отобразить смещения в 3-х мерном виде с помощью макроса Excel. Другими словами, здесь x и y - координаты, смещения - значения z. Я просто хочу получить поверхность / столбцы над плоскостью XY. Я некоторое время искал в интернете, но не нашел много полезного. Не могли бы вы дать мне какие-нибудь подсказки?

Заранее спасибо,

John

Answer 1

Если вы переформатируете свои данные, вы сможете использовать обычный тип диаграммы Excel (трехмерные столбцы) для отображения данных:

    1   2   3   4
1   2   2   3   4
2   5   6   2   2
3   3   4   5   6
4   8   7   0   9

Код VBA:

Sub graphData()
    Range("D3:H7").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Tabelle1'!$D$3:$H$7")
    ActiveChart.ChartType = xl3DColumn
End Sub

Вы должны установить свой диапазон соответственно.