Export Automation error
 

I have the following code

Dim NomFichierImage As String
NomFichierImage = "Test" & ".gif"
Activechart.Export Filename:=NomFichierImage, FilterName:="GIF"

The last line give an Automation Error.
What is wrong ?

Bernard
===========================================

The Activechart existe . The full code is the

Charts.Add
With ActiveChart
.ChartType = xlLineMarkers
For ir = 1 To nr
ReDim ValY(nv) As Double
ValY = GetValY(ValYs, ir)
.SeriesCollection.NewSeries
With .SeriesCollection(ir)
.Values = ValY
.XValues = ValX
.Name = LibY(ir)
End With
Next

.HasTitle = True
.ChartTitle.Characters.Text = Titre
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = LibAxeX
.Axes(xlValue, xlPrimary).HasTitle = False
'TODO Traiter le cas où les unités des Résultats ne sont pas
'au même format
.Axes(xlCategory).TickLabels.NumberFormat = FormatAxeY(1)
.Axes(xlValue).TickLabels.NumberFormat = FormatAxeX
.Location Whe=xlLocationAsObject, Name:="Graphiques"
'Sauvegarde du graphique
Dim NomFichierImage As String
Dim NomImage As String
NomFichierImage = ThisWorkbook.Path & "\" & Titre & ".gif"
NomFichierImage = "Test" & ".gif"
.Export Filename:=NomFichierImage, FilterName:="GIF"

Export Automation error
 

This cannot be right -

NomFichierImage = ThisWorkbook.Path & "\" & Titre & ".gif"
NomFichierImage = "Test" & ".gif"

Assuming the workbook has been saved, ie has a path, I expect it will work
if 'Titre' has been assigned with a string and you comment or delete the
second line.

Regards,
Peter T



"Bernard Bourée" wrote in message
...
I have the following code

Dim NomFichierImage As String
NomFichierImage = "Test" & ".gif"
Activechart.Export Filename:=NomFichierImage, FilterName:="GIF"

The last line give an Automation Error.
What is wrong ?

Bernard
===========================================

The Activechart existe . The full code is the

Charts.Add
With ActiveChart
.ChartType = xlLineMarkers
For ir = 1 To nr
ReDim ValY(nv) As Double
ValY = GetValY(ValYs, ir)
.SeriesCollection.NewSeries
With .SeriesCollection(ir)
.Values = ValY
.XValues = ValX
.Name = LibY(ir)
End With
Next

.HasTitle = True
.ChartTitle.Characters.Text = Titre
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = LibAxeX
.Axes(xlValue, xlPrimary).HasTitle = False
'TODO Traiter le cas où les unités des Résultats ne sont pas
'au même format
.Axes(xlCategory).TickLabels.NumberFormat = FormatAxeY(1)
.Axes(xlValue).TickLabels.NumberFormat = FormatAxeX
.Location Whe=xlLocationAsObject, Name:="Graphiques"
'Sauvegarde du graphique
Dim NomFichierImage As String
Dim NomImage As String
NomFichierImage = ThisWorkbook.Path & "\" & Titre & ".gif"
NomFichierImage = "Test" & ".gif"
.Export Filename:=NomFichierImage, FilterName:="GIF"

Export Automation error
 

Peter you are right.
The second line is there just to test and verify that the string length
was not the problem.

Peter T a écrit :
This cannot be right -

NomFichierImage = ThisWorkbook.Path & "\" & Titre & ".gif"
NomFichierImage = "Test" & ".gif"

Assuming the workbook has been saved, ie has a path, I expect it will work
if 'Titre' has been assigned with a string and you comment or delete the
second line.

Regards,
Peter T



"Bernard Bourée" wrote in message
...
I have the following code

Dim NomFichierImage As String
NomFichierImage = "Test" & ".gif"
Activechart.Export Filename:=NomFichierImage, FilterName:="GIF"

The last line give an Automation Error.
What is wrong ?

Bernard
===========================================

The Activechart existe . The full code is the

Charts.Add
With ActiveChart
.ChartType = xlLineMarkers
For ir = 1 To nr
ReDim ValY(nv) As Double
ValY = GetValY(ValYs, ir)
.SeriesCollection.NewSeries
With .SeriesCollection(ir)
.Values = ValY
.XValues = ValX
.Name = LibY(ir)
End With
Next

.HasTitle = True
.ChartTitle.Characters.Text = Titre
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = LibAxeX
.Axes(xlValue, xlPrimary).HasTitle = False
'TODO Traiter le cas où les unités des Résultats ne sont pas
'au même format
.Axes(xlCategory).TickLabels.NumberFormat = FormatAxeY(1)
.Axes(xlValue).TickLabels.NumberFormat = FormatAxeX
.Location Whe=xlLocationAsObject, Name:="Graphiques"
'Sauvegarde du graphique
Dim NomFichierImage As String
Dim NomImage As String
NomFichierImage = ThisWorkbook.Path & "\" & Titre & ".gif"
NomFichierImage = "Test" & ".gif"
.Export Filename:=NomFichierImage, FilterName:="GIF"