Oberflächendiagramm 3D-Drehung

Forumthread: Oberflächendiagramm 3D-Drehung
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Oberflächendiagramm 3D-Drehung

31.01.2018 13:06:59

Okan

Guten Tag,
ich würde gerne ein erstelltes Oberflächendiagramm, welches variable Daten Visuell darstellt, drehen können in der x und y Achse ohne ständig auf das Diagramm mit der rechten Maustaste die Option 3D-Drehung aufrufen zu müssen.
Das Diagramm heißt Diagramm1
Die Tabelle heißt Tabelle1
Die Datei heißt Versuch_Diagramm
Ich bedanke mich im Voraus.
VG
Okan

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Oberflächendiagramm 3D-Drehung

31.01.2018 17:39:57

Beverly
AW: Oberflächendiagramm 3D-Drehung

01.02.2018 15:32:26

Okan
AW: Oberflächendiagramm 3D-Drehung

01.02.2018 16:47:54

Beverly
AW: Oberflächendiagramm 3D-Drehung

05.02.2018 10:11:48

Okan

AW: Oberflächendiagramm 3D-Drehung

31.01.2018 17:39:57

Beverly

Hi Okan,
die Werte für die Drehung musst du doch sowieso vorgeben - und dazu ist das Kontextmenü da.

AW: Oberflächendiagramm 3D-Drehung

01.02.2018 15:32:26

Okan

Hi Karin,
ich glaube ich habe mein Problem nicht richtig beschreiben können.
Ich Versuchs nochmal.
Ich will ein Oberflächendiagramm drehen können in y- und x-Achse. Am liebsten wäre es mir mit einer Drag Funktion.
Wenn es einfacher ist, würde es mir auch reichen, wenn ich vier Schaltflächen hätte, mit dem ich nach links, nach rechts sowie oben und unten drehen kann.
VG
Okan

AW: Oberflächendiagramm 3D-Drehung

01.02.2018 16:47:54

Beverly

Hi Okan,
nach diesem Prinzip:

Sub Rechts()
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationX = _
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationX + 5
End Sub
Sub Links()
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationX = _
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationX - 5
End Sub
Sub Runter()
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationY = _
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationY + 5
End Sub
Sub Hoch()
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationY = _
ActiveSheet.Shapes("Diagramm 1").Chart.ChartArea.Format.ThreeD.RotationY - 5
End Sub