Veri tablosu çizgi ağırlıklarını Excel tablosunda değiştirme (bir kerede çoğu)

Excel çizgi grafiğinde tüm satırların ağırlığını aynı anda düzenlemenin bir yolu var mı?

Üzerinde 50 veri serisi olan bir grafiğe sahibim ve hepsinden geçmek ve ağırlıkları ayrı ayrı değiştirmek çok fazla ve satırların incelmesi halinde verileri görmek zor, biraz daha kolay olurdu). Bunları çoklu seçmenin bir yolunu göremiyorum, ki bu biraz korkunç görünüyor.

Düzenleme: Sonunda (biraz VB öğrendikten sonra) aşağıdaki kodla çalışmasını sağladım. Grafiğin okunabilirliğine pek yardımcı olmuyorum ama! Chris halletmeme yardım etti, ben de ona keneyi vereceğim.

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

Muhtemelen hızlı bir makro yazmak en kolayı

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

Bu Chris'in cevabının daha kopyala-yapıştır uyumlu bir versiyonudur:

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

Sadece grafiği seçin ve makroyu çalıştırın.

Geliştirme: Elektronik tabloda bir hücreye işaret eden bir VB değişkeni (LineWT) oluşturun. Sonra "Format.Line.Weight = 0.25" yerine, 0.25'i LineWT olarak değiştirin. Ardından, çizgi kalınlığını elektronik tablodan değiştirip makro düğmesini tıklatarak değiştirebilirsiniz. X / Y Ekseni adlarını işaretçilerle elektronik tabloya ayarlamak için benzer bir kod kullanabilirsiniz.

Bu benim için mükemmel çalıştı. Bu kodu, çalışma kitabının tüm sayfalarındaki tüm grafiklerdeki tüm satırları düzenlemek için kullandım.

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

Satırları çoklu seçebileceğinizi düşünmüyorum. En basit yöntem muhtemelen birini değiştirmek ve ardından her birini seçmek için sırayla Ctrl-Y'yi kullanmak ve çizgi ağırlık değişikliğini tekrar yapmaktır.

Bu kod, aktif elektronik tablodaki grafik sayfalarını içeren tüm grafiklerin çizgi genişliğini değiştirir :

' 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

(David Markman'ın cevabından uyarlanmıştır.)

Giriş sekmesinde, Yazı Tipi bölümü, Kenarlıklar açılır menüsünü seçin. İstediğiniz çizgi stilini veya rengini seçin. Bir kalem görünecektir. Değiştirmek istediğiniz her satıra tıklamak için kalemi kullanmak yerine, değiştirmek istediğiniz hücre ızgarasının köşesine gidin ve CNTRL tuşunu basılı tutun. Kalemi istenen hücre ızgarasının üzerine sürükleyin; tümü seçtiğiniz stile veya renge değişecektir.