| |
こうちゃんさん、こんにちは。
またまた助けていただいて・・・ホントにありがたいです。
こうちゃんさんの言う通り、回帰式ができているのでそれを元に
グラフを作ればいいのですよね。その場合、グラフ上にグラフを書く際に
元になったデータをスポットでおくことは簡単ですか？
今、私なりにできてるところまでいいますと、３点で２次回帰の
グラフを書きました。そこまでは「マクロの記録」でできました。
そこからグラフの加工をして行くと、途中で止まります。
縦軸の値を小数点以下１桁で示したいのですが、ダメでした。
なのでそこの部分を削除したのが下記のものです。
縦軸の値を小数点以下１桁で示したい場合、どこにどんな構文を入れれば
いいでしょうか？ また下記のもので書くと、グラフの大きさが指定通り
ならないのですが・・・単位と言うのはどう示せばいいのでしょう。
それとグラフを指定した場所に作りたいのですが、場所の指定と言うのは
マクロでもできますか？
よろしくお願いします。
Sub name()
'
Range("E19:E21").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("PL00004").Range("E19:E21"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=PL00004!R19C2:R21C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="PL00004"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ACA11 (ng/mL)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O.D. (492-630nm)"
End With
ActiveChart.HasLegend = False
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True _
).Select
ActiveChart.ChartArea.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "ＭＳ ゴシック"
.FontStyle = "標準"
.Size = 7
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlX
.Smooth = False
.MarkerSize = 2
.Shadow = False
End With
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("test_ELISA data_001-010.xls").Activate
Range("H50").Select
ActiveSheet.Shapes("Chart 17").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 138#
Selection.ShapeRange.Width = 303#
End Sub
|
|
ぽんぽん
- 04/3/22(月) 17:36 -
