Câu hỏi Thay đổi trọng số dòng dữ liệu trong biểu đồ Excel (nhiều cùng một lúc)


Có cách nào để chỉnh sửa trọng lượng của tất cả các dòng cùng một lúc trên biểu đồ dạng Excel không?

Tôi có một đồ thị với khoảng 50 chuỗi dữ liệu trên đó, và nó quá nhiều để đi qua tất cả chúng và thay đổi trọng lượng riêng lẻ, và thật khó để xem dữ liệu nếu các dòng mỏng hơn, nó sẽ dễ dàng hơn một chút). Tôi không thể nhìn thấy một cách để chọn nhiều chúng, có vẻ hơi khủng khiếp.

Chỉnh sửa: Tôi cuối cùng đã nhận nó làm việc với các mã sau đây (sau khi học một chút VB). Tôi không có vẻ để giúp dễ đọc của đồ thị nhiều mặc dù! Chris đã giúp tôi phân loại nó, vì vậy tôi sẽ cho anh ấy đánh dấu.

Sub onepxlines()
        With Selection
            MsgBox ("Selection: " & TypeName(Selection))
            If TypeName(Selection) = "ChartArea" Then
                Dim area As ChartArea
                Set area = Selection

                MsgBox ("Area parent: " & TypeName(area.Parent))

                If TypeName(area.Parent) = "Chart" Then
                    Dim chart As chart
                    Set chart = area.Parent
                    Dim srs As Series

                    For Each srs In chart.SeriesCollection
                        srs.Format.Line.Weight = 1.5
                    Next
                End If
            End If
        End With
End Sub

4
2017-11-15 23:02


gốc




Các câu trả lời:


Có lẽ dễ nhất để viết macro nhanh, mọi thứ như

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection
        srs.Format.Line.Weight = 0.75
    Next
End Sub

5
2017-11-16 05:31



Chúc mừng, tôi sẽ thử cái này :) - Chris Dennett


Đây là phiên bản tương thích sao chép và dán của câu trả lời của Chris:

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveChart.SeriesCollection
        srs.Format.Line.Weight = 0.25
    Next
End Sub

Chỉ cần chọn biểu đồ và chạy macro.


3
2017-12-12 19:14





Tăng cường: tạo biến VB (LineWT) trỏ đến một ô trong bảng tính. Sau đó thay vì "Format.Line.Weight = 0,25" thay đổi 0,25 thành LineWT. Sau đó, bạn có thể thay đổi trọng số của dòng bằng cách thay đổi nó trên bảng tính và nhấp vào nút macro. Bạn có thể sử dụng mã tương tự để đặt tên Trục X / Y với con trỏ vào bảng tính.


3
2018-04-05 21:12





Điều này làm việc hoàn hảo cho tôi. Tôi đã sử dụng mã này để chỉnh sửa tất cả các dòng trong tất cả các biểu đồ trên tất cả các trang tính của một bảng tính

Sub ChangeLineType()

'This macro will print all embedded charts in the active workbook
'
    Application.ScreenUpdating = False
    Dim Sht As Object
    Dim Cht As ChartObject
    For Each Sht In ActiveWorkbook.Sheets
        For Each Cht In Sht.ChartObjects
            Cht.Activate
            ActiveChart.ChartArea.Select
            'ActiveWindow.SelectedSheets.PrintOut
                Dim srs As Series
                For Each srs In ActiveChart.SeriesCollection
                srs.Format.Line.Weight = 0.25
                Next
        Next
    Next
End Sub

2
2017-09-04 18:14





Tôi không nghĩ bạn có thể chọn nhiều dòng. Cách đơn giản nhất có lẽ là để thay đổi một và sau đó để chọn từng lần lượt sử dụng Ctrl-Y để đi qua và làm lại thay đổi trọng lượng dòng.


0
2017-11-16 00:15



Phải có cái gì đó tốt hơn thế này. Có thể một cái gì đó giống như một phong cách biểu đồ tùy chỉnh? - Chris Dennett


Mã này thay đổi độ rộng của tất cả các biểu đồ trong bảng tính đang hoạt động bao gồm tờ biểu đồ:

' Sets the line thickness for all charts in the active spreadsheet.
Sub ChangeLineType()
    Dim Cht As Chart
    Dim Chts As New Collection
    Dim Sht As Object   ' Can be Chart or WorkSheet

    For Each Sht In ActiveWorkbook.Sheets
        If TypeName(Sht) = "Chart" Then
            Chts.Add Sht
        Else
            For Each Cht In Sht.ChartObjects
                Chts.Add Cht
            Next
        End If
    Next

    Application.ScreenUpdating = False
    For Each Cht In Chts
        Dim Srs As Series
        For Each Srs In Cht.SeriesCollection
            Srs.Format.Line.Weight = 0.25
        Next Srs
    Next Cht
End Sub

(Chuyển thể từ câu trả lời của David Markman.)


0
2017-11-14 01:47





Trong tab Trang chủ, phần Phông chữ, chọn trình đơn thả xuống Đường viền. Chọn màu hoặc kiểu đường yêu cầu của bạn. Một cây bút chì sẽ xuất hiện. Thay vì sử dụng bút chì để nhấp vào mỗi dòng bạn muốn thay đổi, hãy chuyển đến góc của lưới ô mà bạn muốn thay đổi và giữ phím CNTRL. Kéo bút chì trên lưới ô yêu cầu và tất cả sẽ thay đổi thành kiểu hoặc màu bạn đã chọn.


0
2018-05-19 09:01