Edit chart seriescollection within a "With" - "End With" Block

Hello.
In Excel Worksheet I need to edit a Chart (seriescollection values and format.fill
I got a code with the macro recorder on. For me such codes are confusing.
I need to modify the following codes to look for efficiency.

Here my codes:

Sub editseriescollection()
	ActiveSheet.ChartObjects("Gráfico 1").Activate
	ActiveChart.FullSeriesCollection(2).Values = "=qry_123!$C$2:$C$15"
	ActiveSheet.ChartObjects("Gráfico 1").Activate
	ActiveChart.Axes(xlCategory).Select
	ActiveChart.FullSeriesCollection(1).XValues = "=qry_123!$E$2:$E$15"
	ActiveChart.ChartArea.Select
End Sub

Sub editformarfill()
    ActiveChart.FullSeriesCollection(1).Select
    Selection.Format.Fill.Visible = msoFalse
    ActiveChart.ChartArea.Select
End Sub

How can I write these codes lines within a "With" "End With Code?
Also, how can I write

=qry_123!$C$2:$C$15

As VBA:

qry_123 Range("C2", Range("C2").End(xlDown))

If this is correct.

I hope some else can help me.
Cheers

I really appreciate your reply.

I wrote the first code as:

Sub editseriescollection()
    With ActiveSheet.ChartObjects("Gráfico 1").Chart
        .FullCollection(2).Values = Range("A2", Range("A2").End(xlDown))
        .FullCollection(1).XValues = Range("E2", Range("E2").End(xlDown))
    End With
End Sub

VBA displays 'Error 438 Object does not support this property or method' here:

.FullCollection(2).Values = Range("A2", Range("A2").End(xlDown))

Sub editformarfill()

With second code:
Set ch = ActiveChart.FullSeriesCollection(1) .Format.Fill.Visible = msoFalse
End Sub

VBA displays 'Error 438 Object does not support this property or method' here:

Set ch = ActiveChart.FullSeriesCollection(1) .Format.Fill.Visible = msoFalse

I am trying to write codes inside a With End With Block.
Moreover, I tried to declare variables such as.

Dim ws As Excel.Worksheet, xlChart As Excel.ChartObject
Set ws = wb.Sheets("qry_123")
Set xlChart = ws.ChartObjects(1)

I spent hour and hours googling and I did not find similar code examples.

Any help is really welcome

Cheers

Hello.
Yes, I tested your code. Works well.
I really apologize. First, I just to write my messages in NotePad. I think my previous post was a problem of copy and paste.

Only the second code displays "Runtime Error 91: Object variable or with block variable not set"

 ActiveChart.FullSeriesCollection(1).Format.Fill.Visible = msoFalse

I have been trying to fix it, but error still ocurred.

Cheers

Hello. Thanks

To test both codes I used F8.
First I ran the first code that works perfectly.
Then, I ran the second code and "Runtime Error 91: Object variable or with block variable not set"

Cheers

AlphaFrog

I did a few changes to your codes and now all three are working well:

First code:

Sub editseriescollection()
    'Set series collection values in chart
With ActiveSheet.ChartObjects("Gráfico 1").Chart
        .FullSeriesCollection(2).Values = "=qry_123!C2:C" & Range("qry_123!C2").End(xlDown).Row
        .FullSeriesCollection(1).XValues = "=qry_123!E2:E" & Range("qry_123!E2").End(xlDown).Row
    End With 'En set series collection values in chart
End Sub

Second code

Sub sc1_invisible(1)
	'turn seriescollectio1 invisible
    With ActiveSheet.ChartObjects("Gráfico 1").Activate
        With ActiveChart.FullSeriesCollection(1)
            .Format.Fill.Visible = msoFalse
        End With
    End With ' end seriescollection(1) invisible
End Sub

Third code

Sub addcolour_sc2()
	'add blue colour to seriescolletion(2)
    With ActiveChart.FullSeriesCollection(2).Select
        With Selection.Format.Fill
         .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 112, 192)
            .Transparency = 0
            .Solid
        End With
    End With 'end to add blue colour to seriescolletion(2)
    
End Sub

Can you tell if there is a way to simplify the three codes into one code?
Is possible to simplify the codes using variables? If true, How can I add variables?
Is it true that from 2010 "fullseriescolletion" should be written as "seriecolletion"?

I really appreciate your help

Cheers

AplphaFrog.
Your codes work fine.
I still don't know the use of Exclamation Mark (!) in the code.
Thank you for your help.