Zugriff auf verschiedene Diagramme
08.09.2003 17:56:19
Louis
Der bisherige Code sieht etwa so aus...
Sheets("XXX").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
Range("B39:C50").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("XXX").Range("B39:C50")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Aerius"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Requested Chart"
End With
ActiveChart.HasLegend = False
ActiveWindow.Visible = False