Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Oberflächendiagramm 3D-Drehung

Oberflächendiagramm 3D-Drehung
31.01.2018 12: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
Anzeige
AW: Oberflächendiagramm 3D-Drehung
31.01.2018 16: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 14: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 15: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


Anzeige
AW: Oberflächendiagramm 3D-Drehung
05.02.2018 09:11:48
Okan
Hi Karin,
ich danke dir für die schnelle Antwort.
VG
Okan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige