Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30885 / 76732

←次へ　｜　前へ→


	【51107】近似曲線の追加

ゆた - 07/8/28(火) 17:37 -


	引用なし

	パスワード

下記のようなデータから散布図を作成し、近似曲線の追加も行いたく、
マクロの記録から抜き出して、色々試したもののうまくいきません。
「Trendlinesクラスのselectメソッドが失敗しました」と出ます。
.selectを無くすとコンパイルエラーになるし、この近似曲線の追加の
プログラムについてまったく理解できません。
どなたかご教示願います。

------------------------------------------------

-4　　　　-0.2
3　　　　0.2
-12　　　　-1.4
-1　　　　0
5　　　　0.6

-----------------------------------------------

Option Explicit

Sub main()

Dim garea As Range
Dim grng As Range
Dim chartObj As ChartObject
　　
　　Set garea = Range("C1:H15")
　　Set grng = Range("A1:B5")
　　Set chartObj = Worksheets(1).ChartObjects.Add(Left:=garea.Left, Top:=garea.Top, Width:=garea.Width, Height:=garea.Height)
　　With chartObj.Chart
　　　　.ChartType = xlXYScatter
　　　　.SetSourceData Source:=grng, PlotBy:=xlLine
　　　　.HasLegend = False
　　　　.SeriesCollection(1).Trendlines.Add _
　　　　(Type:=xlLinear, Forward:=0, Backward:=0, Intercept:=0, DisplayEquation:=True, DisplayRSquared:=True).Select
　　End With

End Sub

1 hits

▼

【51107】近似曲線の追加 ゆた 07/8/28(火) 17:37

≪