AW: Datentabelle in Diagramm
Reinhard
Hi Oliver,
was genau gefällt dir an Hübis Vorschlag nicht?
Das nachfolgende Makro zeigt dir wie so was aussehen kann.
Gruß
Reinhard
Sub Makro1()
Application.ScreenUpdating = False
On Error GoTo Fehler
Workbooks.Add
wkb = ActiveWorkbook.Name
For Each Zelle In Workbooks(wkb).Worksheets("Tabelle2").Range("A1:M15")
If Zelle.Column = 1 Then
Zelle.Value = "Reihe " & Zelle.Row
Else
Zelle.Value = Int(Rnd * 49) + 1
End If
Next Zelle
Charts.Add
With ActiveChart
.Name = "Ohne"
.ChartType = xlLine
.SetSourceData Source:=Workbooks(wkb).Worksheets("Tabelle2").Range("B1:M15"), PlotBy _
:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Tabelle1"
End With
ActiveChart.HasDataTable = False
ActiveChart.HasLegend = True
With Worksheets("Tabelle1").ChartObjects(1)
.Top = 0
.Left = 100
.Width = 600
.Height = 350
End With
Range("a1").Select
ActiveWindow.DisplayGridlines = False
Worksheets("Tabelle2").Range("A1:M2").Columns.AutoFit
Worksheets("Tabelle2").Range("A1:M2").CopyPicture Appearance:=xlScreen, Format:=xlPicture
Sheets("Tabelle1").Pictures.Paste
Sheets("Tabelle1").Shapes(2).Top = Sheets("Tabelle1").Shapes(1).Top + Sheets("Tabelle1").Shapes(1).Height
Sheets("Tabelle1").Shapes(2).Left = Sheets("Tabelle1").Shapes(1).Left
Sheets("Tabelle1").Shapes(2).Height = 250
Sheets("Tabelle1").Shapes(2).Width = Sheets("Tabelle1").Shapes(1).Width
Sheets("Tabelle1").Activate
Fehler:
Application.ScreenUpdating = True
End Sub