El cambio de color de la serie de datos en excel xyscatter gráfico

Estoy tratando de cambiar el color de los puntos de datos en un gráfico de excel, pero todo lo que estoy tratando de éxito.

Este es un método que he probado, sin embargo, los puntos que todavía aparecen en azul:

With Chrt
.ChartType = xlXYScatter
Do Until .SeriesCollection.Count = 0
.SeriesCollection(1).Delete
Loop
    .SeriesCollection.NewSeries

                .SeriesCollection(1).Name = "=""Top Platen"""
                .SeriesCollection(1).Values = yaxis
                .SeriesCollection(1).XValues = xaxis

                ActiveChart.SeriesCollection(1).Select
                 With Selection.Format.Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 0, 0)
                    .Transparency = 0
                    .Solid
                End With

Aquí hay otro método que he intentado y aún los puntos de datos aparecen en azul:

With Chrt
.ChartType = xlXYScatter
Do Until .SeriesCollection.Count = 0
.SeriesCollection(1).Delete
Loop
    .SeriesCollection.NewSeries

                .SeriesCollection(1).Name = "=""Top Platen"""
                .SeriesCollection(1).Values = yaxis
                .SeriesCollection(1).XValues = xaxis
                .SeriesCollection(1).Interior.Color = RGB(255,0,0)

Esta es sólo una parte de mi código, puedo suministrar áreas adicionales si es necesario. Cualquier ayuda sería muy apreciada.

  • Sustituir el último With seleccione bloquear en el primer ejemplo de una línea .SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) Se trabajó en un simple ejemplo que he creado.
  • Muchas gracias! Esto funcionó! Todavía estoy curioso en cuanto a por qué lo que yo estaba usando no era aceptable. Si usted sabe, me encantaría escuchar de ti, pero si no, entonces no te preocupes.
InformationsquelleAutor Dimitri M | 2015-02-16

1 Kommentar

  1. 5

    Creo que el problema es con el anidado With bloques se confundan. Aquí hay una manera de solucionarlo y todavía uso anidada With bloque:

    With Chrt
        .ChartType = xlXYScatter
    
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
    
        .SeriesCollection.NewSeries
    
        With .SeriesCollection(1)
            .Name = "=""Top Platen"""
            .Values = yaxis
            .XValues = xaxis
            .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End With

    Aquí es La documentación de Microsoft enlace que habla sobre plenamente calificado anidada With bloques.

Kommentieren Sie den Artikel

Bitte geben Sie Ihren Kommentar ein!
Bitte geben Sie hier Ihren Namen ein

Pruebas en línea