VBA 散布図作成について

Question

VBAで系列名ごとに散布図を作成し、グラフを見やすくするためにあらかじめ線種とマーカを設定しようとしています。
下記でもグラフが作成できますが、本来ですと、もっと他の方法で書くのでしょうが、私には線種とマーカを設定について下記の方法しかコードの書き方が分かりません。

Sub 散布図作成()
    Dim cht As Chart
    Dim rng As Range
    Dim rr  As Range
    Dim r   As Range
    Dim c   As Long

     
                  
     　　　　　  If Left(rr(1).Value, 6) = "A01_1A" And Right(rr(1).Value, 4) = "000a" Then
                .Format.Line.ForeColor.RGB = vbRed
                .MarkerStyle = xlMarkerStyleTriangle
                .Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 
              
                
                 
              

Answer 1

まずは、グラフ系列の設定を行っている部分を切り出してはどうでしょう？

Sub SetSeriesParameters(series as Series, lineColor as Integer, _
		markerStyle as XlMarkerStyle, fillColor as Integer, _
		bgColor as Integer, lineStyle as MsoLineDashStyle, _
		Optional fillVisible as MsoTriState = msoTrue)
	With series
		.Format.Line.ForeColor.RGB = lineColor
		(省略)
		.Fill.Visible = fillVisible
	End With
End Sub

呼出し側は、以下のようになります。

		(前略)

		'違ったら起点セルを基にグラフに系列追加
		Set rr = rr.Resize(c, 3)
		Dim series as Series
		Set series cht.SeriesCollection.NewSeries
		
		With series
			.Name = rr(1)
			.XValues = rr.Columns(3)    'leakage
			.Values = rr.Columns(4)     'Speed

			If Left(rr(1).Value, 6) = "A01_1A" And Right(rr(1).Value, 4) = "000a" Then
				SetSeriesParameters series, vgRed, xlMarkerStyleTriangle, RGB(255, 0, 0), RGB(255, 0, 0), msoLineSolid
			ElseIf Left(rr(1).Value, 6) = "A01_1A" And Right(rr(1).Value, 4) = "100a" Then
				SetSeriesParameters series, vgRed, xlMarkerStyleTriangle, RGB(255, 0, 0), RGB(255, 0, 0), msoLineSolid, msoFalse
		(後略)

その後、lineColorとかmarkerStypeなどの各パラメータを、各パートで決定するように変更すれば、かなりすっきりするかと。

Comments

[koko2]

回答ありがとうございました。初心者で初歩的な質問かもしれませんが、呼出しと記載がありますが、今までやったことのないのですが、Set series cht.SeriesCollection.NewSeriesでエラーとなってしまいます。上記に修正したものを記載しますので、私の記載の問題点を教えてください。
また、今はsub()　End subですが、上記でPrivate SubCommandButton1_Click()　　End Subも可能でしょうか？

[YT0014]

ごめんなさい、Set文は、＝が漏れています。
正しくは、Set series = cht.SeriesCollection.NewSeries です。
Private Sub CommandButton1_Click()
(コード)
End Sub
で記述できます。

[YT0014]

なお、SetSeriesParameters()の省略部分と、呼出し側の後略部分の他のElseIfは、勉強だと思って、元のコードに合わせて、記述してください。

[koko2]

回答ありがとうございました。上記を参考に確認してみます。

[koko2]

出来ました。ありがとうございました。