Graph

[bvtvba]

Biểu đồ gấp khúc
1. Tạo biểu đồ gấp khúc
Bạn khoanh chuột vào vùng A1 : F4 và chạy đoạn code sau :

Sub Sample()
    ActiveSheet.Shapes.AddChart.Chart.ChartType = xlLine
End Sub

Kết quả :

Bạn cần đăng nhập để thấy đính kèm

Thuộc tính ChartType có thể làm thay đổi kiểu biểu đồ, bạn tham khảo ở đây:

Bạn cần đăng nhập để thấy link

Nguồn :

http://officetanaka.net/excel/vba/graph/12.htm

 

[thanhphong]

Biểu đồ gấp khúc
2. Điều chỉnh độ dày cho đường trong đồ thị
Để điều chỉnh độ dày cho đường trong đồ thị ta sẽ tác động vào thuộc tính Weight .

Sub Sample()
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Format.Line.Weight = 6
End Sub

Bạn cần đăng nhập để thấy đính kèm

Series Object có thuộc tính Format mà giá trị trả về là ChartFormat.
ChartFormat Object mà ở đây ta có thể tô màu : FillFormat, SoftEdgeFormat,... thông qua việc truy vấn tới định dạng Series Object.
Thuộc tính Line của ChartFormat Object trả về giá trị là LineFormat Object.
LineFormat Object có các thuộc tính để điều chỉnh màu sắc cũng như kiểu dáng của đường. Thuộc tính Wight để điều chỉnh độ dày mỏng của đường.

Ở ví dụ dưới đây, ta sẽ can thiệp điều chỉnh vào tất cả các đường có trong đồ thị :

Bạn cần đăng nhập để thấy đính kèm

Sub Sample()
    Dim i As Long
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection
        For i = 1 To .Count
            .Item(i).Format.Line.Weight = 6
        Next i
    End With
End Sub

 

[BuiCoBietDi]

cảm ơn bạn rất nhiều vì kiến thức này