|
手が空かないのであまり読んでいませんけど...。
こんな風にしてみたらどうでしょうか?
見本ですからシート名等他もろもろは修正してください。
Sub Macro1()
Application.ScreenUpdating = False
acb = ActiveSheet.Name
Sheets("Sheet2").Select
Columns("A:E").Select
Charts.Add
DoEvents
ActiveChart.ChartType = xlStockVOHLC
最終行 = Sheets("Sheet2").Range("A65536").End(xlUp).Row
ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A1:E" & 最終行)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
Range("a1").Select
Sheets(acb).Select
Application.ScreenUpdating = True
End Sub
|
|