Chart mit VBA erstellen

Sub Aktueller_Bereich_markieren() ActiveSheet.Cells(Application.Match(Application.WorksheetFunction.Max(ActiveSheet.Columns(261)), _ Columns(261), 0), 261).Select Range("ME3", ActiveCell).Select Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Range("Pivot!$JA$3:$ME$7") ActiveChart.PlotBy = xlColumns ActiveChart.SeriesCollection(1).AxisGroup = 2 ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).ChartType = xlLine End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus,
ich habe ein Sub zum erstellen von Charts in meiner Sammlung. Im Aufruf die Bereiche so setzt wie du sie brauchst und alles andere nach deinen Wünschen einstellen (die Schalter dazu sind direkt im Code erklärt).
Grüße,
Klaus M.vdT.

Option Explicit
'* Module for quick creation of charts in the active worksheet
'* created: June 2013 by Klaus M.vdT.
'* every feature after data-Range is optional!
Sub test()
Call MakeSingleChart(Range("B4:C12"), 1, Range("A1"), 300, 200, 10, 90, True)
Call MakeSingleChart(Range("B4:C12"), , , , , , , False)
Call MakeSingleChart(Range("B4:C12"))
End Sub
Sub MakeSingleChart( _
rngData As Range, _
Optional TypeChart As Integer, _
Optional rngTopLeftCell As Variant, _
Optional iHeight As Variant, _
Optional iWidth As Variant, _
Optional iScaleMin As Variant, _
Optional iScaleMax As Variant, _
Optional bNoLegend As Boolean)
'rngData = Range of Data
'TypeChart 1=Line, 2=Pie, 3=Column, 4=ColumnStacked, 5=ColumStacked100, none=Line
'rngTopLeftCell = Move Chart's top left corner to THIS cell, places in mid-screen if not  _
choosen
'iHeight and iWidth = Height/Width in Pixels, uses standard if not choosen
'iScaleMin and iScaleMax = FIX X-Axis to this value. If not choosen, chart will autoscale
'bNoLegend = if TRUE, Legend is removed. If FALSE or not choosen, Legend stays in the chart
On Error GoTo hell
'rngTopLeftCell hast to be a valid RANGE, iHeight a valid INTEGER and so on
'  Declaration has to be VARIANT to enable the ISMISSING feature. In case of wrong usage
'  (example: set height to "hello world") it will end with ONERROR
Dim myCht As Object
Set myCht = ActiveSheet.Shapes.AddChart       'create new Chart
With myCht
With .Chart
'Chart definitions ************************************
.ChartType = xlLine    'set Line as standard
Select Case TypeChart
Case 1
Case 2
.ChartType = xlPie
Case 3
.ChartType = xlColumnClustered
Case 4
.ChartType = xlColumnStacked
Case 5
.ChartType = xlColumnStacked100
Case Else
End Select
.SetSourceData Source:=rngData
' ************************************ Chart Definitions
If bNoLegend Then .Legend.Delete           'Legend or not?
End With
'move and scale ************************************
If Not IsMissing(iScaleMax) Then .Chart.Axes(xlValue).MaximumScale = iScaleMax
If Not IsMissing(iScaleMin) Then .Chart.Axes(xlValue).MinimumScale = iScaleMin
If Not IsMissing(rngTopLeftCell) Then
.Top = rngTopLeftCell.Top
.Left = rngTopLeftCell.Left
End If
If Not IsMissing(iHeight) Then .Height = iHeight
If Not IsMissing(iWidth) Then .Width = iWidth
'************************************ move and scale
End With
GoTo heaven:
hell:
'get rid of wrong chart
myCht.Delete
'display error messge
MsgBox "could not create chart!" & vbCrLf _
& "Error Number: " & Err.Number & _
vbCrLf & "Error: " & Err.Description
heaven:
End Sub

Hallo yummi,
Entschuldigung... hätte ich natürlich direkt dazu schreiben sollen...
Also, wenn ich im Blatt "Pivot" Zuerst auf den Button "zur Tabelle springen" drücke, komme ich zur Spalte "JA".
Dort ist eine weitere Tabelle hinterlegt.
Im Modul 1 (Button "Diagramm erstellen")ist mein Makro hinterlegt. Wenn ich dort die Zeile von Dir eintrage kommt der Fehler.
Ich habe hier:
ActiveChart.SetSourceData Source:=Range("Pivot!$JA$3:$ME$7")
stehen.
und du hattest:
ActiveChart.SetSourceData Source:=Range("Pivot!ME3:", ActiveCell.Address)
stehen.
Derzeit kommt da nur KW 1-4 wenn ich auf "Diagramm erstellen" drücke.... Dies hatte ich für 2015 mit dem Makro Rekorder so eingestellt.
Wenn nun aber beispielsweise KW5 hinzukommt wird es im Diagramm nicht angezeigt, da in meiner Formel steht, das nur der Bereich JA3 bis ME7 betrachtet werden soll.
ActiveChart.SetSourceData Source:=Range("Pivot!$JA$3:$ME$7").
Ich möchte hier nicht die Komplette Tabelle (JA3:ME55) angeben, da das Diagramm dann total überfüllt ist.
gruss Markus

Sub Aktueller_Bereich_markieren() Dim strRange As String ActiveSheet.Cells(Application.Match(Application.WorksheetFunction.Max(ActiveSheet.Columns(261)), _ Columns(261), 0), 261).Select ActiveCell.Select strRange = "Pivot!ME3:" & ActiveCell.Address Charts.Add ActiveChart.ChartType = xlColumnClustered 'ActiveChart.SetSourceData Source:=Range("Pivot!$JA$3:$ME$7") ActiveChart.SetSourceData Source:=Range(strRange) ActiveChart.PlotBy = xlColumns ActiveChart.SeriesCollection(1).AxisGroup = 2 ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).ChartType = xlLine End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread