|
おはようございます。
私も初心者のためチャレンジで質問に答えようとしたことが間違っていたのかもしれませんが。
Charts.Add
としていることで、アクティブはシートではなく、チャートになっているんですよね。
よって、ActiveSheetという考えはなくなるのかなって想像しました。
ActiveSheetをどのように指定すればいいのかなって考えてみました。
以下のように変えてみても動かないようであれば、私には無理だったということかも。そのときはお騒がせして申し訳ありませんでした。
>Sub Macro1()
Dim WS As Worksheet
Set WS=ActiveSheet
> ActiveCell.Columns("A:E").EntireColumn.Select
> Charts.Add
> ActiveChart.ChartType = xlStockVOHLC
> ActiveChart.SetSourceData Source:=WS.Range("A1:E3084"), PlotBy:= _
> xlColumns
> ActiveChart.Location Where:=xlLocationAsObject, Name:="ソニ"
Set WS=Nothing
>End Sub
|
|