0

このマクロを記録しました。チャートを挿入するためのものです。グラフの形状を作成し、後で参照できるように変数に署名するにはどうすればよいですか? 範囲に変数を渡したい。（52）番号を変更したいだけです。したがって、変数がrow次のコードでどのように使用できるかです。私はこれを試しました

("'Simpson'!$K$3:$L$row")

しかし、うまくいきません

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Simpson'!$K$3:$L$52")
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.ChartTitle.Text = "integrated function chart"
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleHorizontal)
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "x values"
ActiveSheet.ChartObjects("Chart 5""""").Activate
'How can I delete the legend in one. combining the next two
ActiveChart.Legend.Select
Selection.Delete
4

1 に答える 1

0

これを試してみましたが、("'Simpson'!$K$3:$L$row") 動作しません

これを試して

Dim LRow as Long

LRow = 52 '<~~ Change this as required.

ActiveChart.SetSourceData Source:=Range("'Simpson'!$K$3:$L$" & LRow)
于 2012-05-17T09:05:49.250 に答える