Hallo,
folgendes Problem:Ich habe ein Tool über Excel erstellt um spezielle Diagramme automatisiert (mit VBA) zu erstellen und in das dementsprechende Arbeitsblatt einzubetten. Ich möchte jedoch ein weiteres neues Diagramm hinzufügen und diese neben dem vorherigen Diagramm in demselben Arbeitsblatt einfügen. Ich habe bereits es so eingestellt, dass neue Tabellen untereinander erzeugt werden, damit das ursprüngliche Diagramm nicht überschrieben/verändert wird. Jedoch schaffe ich es nicht, dass das neue Diagramm in einem schönem Raster eingeteilt wird, damit diese Reihen von Diagrammen nur noch ausgedruckt werden können.
Ich hoffe jemand kann mir dabei helfen
Viele Grüße
y.p
*Topic verschoben, Code-Tag eingefügt*
folgendes Problem:Ich habe ein Tool über Excel erstellt um spezielle Diagramme automatisiert (mit VBA) zu erstellen und in das dementsprechende Arbeitsblatt einzubetten. Ich möchte jedoch ein weiteres neues Diagramm hinzufügen und diese neben dem vorherigen Diagramm in demselben Arbeitsblatt einfügen. Ich habe bereits es so eingestellt, dass neue Tabellen untereinander erzeugt werden, damit das ursprüngliche Diagramm nicht überschrieben/verändert wird. Jedoch schaffe ich es nicht, dass das neue Diagramm in einem schönem Raster eingeteilt wird, damit diese Reihen von Diagrammen nur noch ausgedruckt werden können.
Visual Basic-Quellcode
- Option Explicit
- 'Diagrammformatierungseinstellungen
- Sub DiagrammTYPI()
- 'Befehl: falls ein Laufzeitfehler oder ein Syntaxfehler bei Codierung auftritt
- On Error GoTo Fehlerverarbeitung
- 'Variable für das Diagramm definieren
- Dim MeinDiagramm As Chart
- 'Variable für den Rahmen definieren
- Dim Rahmen As ChartObject
- 'Rahmen erzeugen
- Set Rahmen = ThisWorkbook.Worksheets("Typ I").ChartObjects.Add(0, 100, 450, 340)
- 'Diagramm dem Rahmen zuweisen
- Set MeinDiagramm = Rahmen.Chart
- 'Werte aus dem Tabellenblatt in das Diagramm einlesen
- MeinDiagramm.SetSourceData Worksheets("Flächendiagrammtabelle").Range("A27:J32")
- 'Rahmen erzeugen
- Set Rahmen = ThisWorkbook.Worksheets("Typ I").ChartObjects(1)
- 'Diagramm dem Rahmen zuweisen
- Set MeinDiagramm = Rahmen.Chart
- 'Diagramm bearbeiten: Diagrammtyp anpassen
- MeinDiagramm.ChartType = xlSurface
- 'Titel ändern
- MeinDiagramm.HasTitle = True
- MeinDiagramm.ChartTitle.Text = "3D-Flächendiagramm"
- 'Achsenbeschriftung für die X-Achse
- With MeinDiagramm.Axes(xlCategory)
- .HasTitle = True
- .AxisTitle.Text = "Raumtiefe [m]"
- End With
- 'Achsenbeschriftung für die Y-Achse
- With MeinDiagramm.Axes(xlValue)
- .MinimumScale = 0
- .MaximumScale = 15000
- End With
- 'Achsenbeschriftung für die Z-Achse
- With MeinDiagramm.Axes(xlSeries)
- .HasTitle = True
- .AxisTitle.Text = "Raumbreite [m]"
- End With
- Exit Sub
- Fehlerverarbeitung:
- 'Programm wird bei einem Fehler beendet
- MsgBox "Ein Fehler ist in der Codierung aufgetreten. Programm beenden"
- End Sub
Ich hoffe jemand kann mir dabei helfen
Viele Grüße
y.p
*Topic verschoben, Code-Tag eingefügt*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „y.p“ ()