T
Tom
I am creating a an embedded chart and then move it to another worksheet that
would contain all my charts.
After I create the chart I want to move it to another sheet. here is my code:
ActiveSheet.ChartObjects("chart1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Sheets("charts").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False
It gives me an error indicating that it can't find the charts object
property of the worksheet class.
would contain all my charts.
After I create the chart I want to move it to another sheet. here is my code:
ActiveSheet.ChartObjects("chart1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Sheets("charts").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False
It gives me an error indicating that it can't find the charts object
property of the worksheet class.