1004 the specified dimension is not valid for the current chart type

[sebmorris]

Hi guys

I've been stuck with this problem for a while now and was hoping one of you could help out .

The problem code is shown below and is being run from a word document which reads an excel file (myWB - opened with a GetObject call).

With myWB.Sheets("Graphs").ChartObjects(chartreq%).Chart
        'Name of the chart is correct
        temp$ = .Name
        .ChartType = Excel.XlChartType.xlColumnClustered

        'error occurs on the line below (1004 the specified dimension is not valid for the current chart type)
        .CopyPicture Appearance:=xlScreen, Size:=xlPrinter, Format:=xlPicture
        
        'pasting chart etc...
    End With

The graph is correct in the excel document and the type is the same as the .ChartType i set.

Any help would be greatly appreciated, no idea where to go from here and ive tried many different approaches.

 

[sebmorris]

Bump

 

[Caleeco]

Hi Seb,

It would help if you could tell us which line produces the error? (Should be highlighted yellow when you run the code)

Caleeco

 

[sebmorris]

I specified the line causing the error in my code block (with a comment).

'error occurs on the line below (1004 the specified dimension is not valid for the current chart type)
.CopyPicture Appearance:=xlScreen, Size:=xlPrinter, Format:=xlPicture

 

[Caleeco]

Ah ok sorry I didnt spot that! From what i've looked up, your syntax to apply that particular method may be incorrect. For test purposes try this and see if it runs:

With myWB.Sheets("Graphs").ChartObjects(chartreq%).Chart
        'Name of the chart is correct
        temp$ = .Name
        .ChartType = Excel.XlChartType.xlColumnClustered
End With
myWB.Sheets("Graphs").ChartObjects(chartreq%).CopyPicture Appearance:=xlScreen, Size:=xlPrinter, Format:=xlPicture

Caleeco

 

[sebmorris]

Thanks, same error unfortunately (also on the CopyPicture line)

 

[sebmorris]

http://i.imgur.com/elDeLFO.png <-- shows the graph being accessed

 

[Caleeco]

Hi Seb,

The syntax below works on my test sheet. Change SHEET and ObjectNames accordingly:

Sub ChartCopy()
Dim mychart As ChartObject


Set mychart = ThisWorkbook.Sheets("Sheet1").ChartObjects("Chart 1")
With mychart.Chart
   .CopyPicture Appearance:=xlScreen, Format:=xlPicture
End With
End Sub

Caleeco

 

[sebmorris]

Thanks again Caleeco

Dim mychart As ChartObject
Set mychart = myWB.Sheets("Graphs").ChartObjects(1)
With mychart.Chart
    .CopyPicture Appearance:=xlScreen, Format:=xlPicture
End With

Your code (^^) displays the same error, does that imply there is an issue with the chart (the chart is shown in the screenshot i sent)?

 

[Caleeco]

Hmm that's strange. Are you able to upload your spreadsheet?

It would suggest there is something wrong with either the chart name or chartobject definition. You could try activating the workbook/worksheet before trying to use the CopyPicture method.

What has your variable 'myWB' been set as?

Caleeco