Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem when trying to set axis properties of a chart by VBA
Hello,
I am trying to automate creating a chart in Excel by using VBA. The approach is to create a chart on its own sheet not embedded into another worksheet. (Actually the entire process is initiated from Word VBA but this should not be a factor, I think.) The shematic code is as follows: Dim oExcel As Object Dim oWorkbook As Object Dim oWorksheetDaten As Object Dim oGrafik As Object Dim oRange As Object .... ' An das Diagramm herangehen, das danach ein eigenes Datenblatt ist Set oGrafik = oWorkbook.Charts.Add ' oGrafik.Select oGrafik.name = "DIAGRAMM" oGrafik.ChartType = 65 ' Datenquelle spalte = 2 While (spalte <= anz_spalten) oGrafik.SeriesCollection.NewSeries oGrafik.SeriesCollection(spalte - 1).XValues = ... oGrafik.SeriesCollection(spalte - 1).Values = ... oGrafik.SeriesCollection(spalte - 1).name = ... spalte = spalte + 1 Wend .... With oGrafik ..HasTitle = False ..HasLegend = True ..HasDataTable = False ..HasAxis = True ..Legend.Position = -4160 'xlTop ..Legend.Font.name = "Arial" ..Legend.Font.Size = 10 ..Legend.Border.LineStyle = -4142 'xlNone ..PlotArea.Border.LineStyle = -4142 'xlNone ..PlotArea.Interior.ColorIndex = 2 End With ' Note: Variables are set before. With oGrafik.Axes(xlValue) ..MinimumScaleIsAuto = False ..MinimumScale = ug ..MaximumScaleIsAuto = False ..MaximumScale = og ..MinorUnitIsAuto = False ..MinorUnit = schrittweite ..MajorUnitIsAuto = False ..MajorUnit = schrittweite ..Crosses = xlAutomatic ..ReversePlotOrder = False ..ScaleType = xlLinear ..DisplayUnit = xlNone End With With oGrafik ..Axes(xlCategory, xlPrimary).HasTitle = True ..Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Sollanzeige" ..Axes(xlValue, xlSecondary).HasTitle = True ..Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Abweichung" End With .... The diagram is created as an own sheet and the data source is correct. Also, the legend is shown correctly. However, the axis scaling is not set and the same is true for the axis title! Can anybody help me and explain what is the reason for this behaviour? What can I do to make it run correctly? Thank you! Greetings from Germany, Soenke Schreiber P.S.: We are using Excel 2003. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Chart x axis problem | Charts and Charting in Excel | |||
Chart x-axis and name problem | Charts and Charting in Excel | |||
Y-Axis Problem With Area Chart | Charts and Charting in Excel | |||
Chart Object Properties Problem | Excel Programming | |||
chart y-axis title problem | Charts and Charting in Excel |