【事例】
Sub Second_graph_make()
With ActiveSheet.ChartObjects.Add(50, 100, 300, 200).Chart
.SetSourceData Sheets("sheet1").Range("A3:D6")
End With
ActiveSheet.ChartObjects.ShapeRange.Name = "test"
With ActiveSheet.ChartObjects("test").Chart.SeriesCollection("パスタ")
.ChartType = xlLineMarkers
.AxisGroup = xlSecondary
.MarkerSize = 20
End With
【解説】
Withステートメントのところに「.MarkerSize = ??」のようにしてサイズを設定することができます.
【参考】
データマーカーのスタイルを変更したい場合は以下の通り.
.MarkerStyle = xlMarkerStyleDiamond
マーカースタイルの種類
| xlMakerStyleAutomatic | 自動マーカー |
| xlMakerStyleCircle | 円形 |
| xlMakerStyleDash | 長い棒 |
| xlMakerStyleDiamond | ひし形 |
| xlMakerStyleDot | 短い棒 |
| xlMakerStyleNone | マーカーなし |
| xlMakerStylePicture | 画像 |
| xlMakerStylePlus | + |
| xlMakerStyleSquare | 四角 |
| xlMakerStyleStar | アスタリスク |
| xlMakerStyleTriangle | 三角 |
| xlMakerStyleSyleX | ×印つき四角 |
0 件のコメント:
コメントを投稿