hi,

i have a public sub "gen_chart" with the following parameter value
( myobject as object,mychart as chart)


when i call this sub from a form he stops at the following line
("cur_sheets.ChartObjects(cur_chart).Activate")

text = object not set

Private Sub gen_foto(cur_sheets As Object, cur_chart As String, name
As String, _
min_x As Single, max_x As Single, min_y As
Single,
_
max_y As Single, position As Integer, show_legend
As Boolean, change_color As Boolean, _
colls() As Variant, Optional name_x As String,
Optional name_y As String)


'cur_sheets As String --> Names des Sheets
'cur_chart As String --> Name des Charts
'name as string --> Charttopic
'min_x As Single --> MIN X-Achse
'max_x As Single --> MAX X-Achse
'min_y As Single --> MIN Y-Achse
'max_y As Single --> MAX Y-Achse
'position as integer --> 0 (großes foto),1=zielfoto(links_oben),
2=zielfoto(rechts_oben),3=zielfoto(links_unten),
4=zielfoto(rechts_unten)
'show_legend as boolean --> Show Legend ?
'change_color as boolean --> change background color to orange
'colls() as variant --> Datenreihe (1.dimension = reihe(1-3) |
2.dimension = 0(name),1(x_wert1),2(y_wert1),3(x_wert2),4(y_wert2)


'Optional name_x As String --> Name X-Achse
'Optional name_y As String --> name Y-Achse


cur_sheets.ChartObjects(cur_chart).Activate


On Error Resume Next
'del all collections
Dim del_i As Integer
For del_i = 0 To 20
ActiveChart.SeriesCollection(1).Delete
Next del_i


ActiveChart.ChartType = xlXYScatter


ActiveChart.ChartArea.Select
Selection.AutoScaleFont = False
With Selection.Font
.name = "Arial"
.FontStyle = "fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
..
..
..
..


can anybody help me =???

It is trying to tell you that you have not defined the cur_sheet, or
cur_chart objects.

You need a statement like:

Set cur_sheet = Worksheets("Sheet1")
Set cur_chart = Sheets("Chart1")

changing the names of the sheets to your actual sheet names, of course.



"(E-Mail Removed)" wrote:

> hi,
>
> i have a public sub "gen_chart" with the following parameter value
> ( myobject as object,mychart as chart)
>
>
> when i call this sub from a form he stops at the following line
> ("cur_sheets.ChartObjects(cur_chart).Activate")
>
> text = object not set
>
> Private Sub gen_foto(cur_sheets As Object, cur_chart As String, name
> As String, _
> min_x As Single, max_x As Single, min_y As
> Single,
> _
> max_y As Single, position As Integer, show_legend
> As Boolean, change_color As Boolean, _
> colls() As Variant, Optional name_x As String,
> Optional name_y As String)
>
>
> 'cur_sheets As String --> Names des Sheets
> 'cur_chart As String --> Name des Charts
> 'name as string --> Charttopic
> 'min_x As Single --> MIN X-Achse
> 'max_x As Single --> MAX X-Achse
> 'min_y As Single --> MIN Y-Achse
> 'max_y As Single --> MAX Y-Achse
> 'position as integer --> 0 (großes foto),1=zielfoto(links_oben),
> 2=zielfoto(rechts_oben),3=zielfoto(links_unten),
> 4=zielfoto(rechts_unten)
> 'show_legend as boolean --> Show Legend ?
> 'change_color as boolean --> change background color to orange
> 'colls() as variant --> Datenreihe (1.dimension = reihe(1-3) |
> 2.dimension = 0(name),1(x_wert1),2(y_wert1),3(x_wert2),4(y_wert2)
>
>
> 'Optional name_x As String --> Name X-Achse
> 'Optional name_y As String --> name Y-Achse
>
>
> cur_sheets.ChartObjects(cur_chart).Activate
>
>
> On Error Resume Next
> 'del all collections
> Dim del_i As Integer
> For del_i = 0 To 20
> ActiveChart.SeriesCollection(1).Delete
> Next del_i
>
>
> ActiveChart.ChartType = xlXYScatter
>
>
> ActiveChart.ChartArea.Select
> Selection.AutoScaleFont = False
> With Selection.Font
> .name = "Arial"
> .FontStyle = "fett"
> .Size = 10
> .Strikethrough = False
> .Superscript = False
> .Subscript = False
> .OutlineFont = False
> .Shadow = False
> .Underline = xlUnderlineStyleNone
> .ColorIndex = xlAutomatic
> .Background = xlAutomatic
> End With
> ..
> ..
> ..
> ..
>
>
> can anybody help me =???
>
>