RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:

66445 - COMO CABMIAR EL COLOR DE UNA AUTOFORMA DE MACRO

Autor:

Gregorio Landeros Aranda

Hola estoy tratando de armar un programa para insertar nuevas columnas y tengo un problema porque cuando cree la macro copie y pege unas formas pero quiero que las nuevas no tengan el color de fill
este es mi codigo

Private Sub CommandButton1_Click()

Rows("13:13").Select

    Selection.Insert Shift:=xlDown

    Range("D12:H12").Select

    Selection.Copy

    Range("D13").Select

    ActiveSheet.Paste

    Range("I13:J13").Select

    Application.CutCopyMode = False

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.Merge

    Range("K13:L13").Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.Merge

    

    Range("B13:L13").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

 ´Aqui tengo los errores

    Range("D13:H13").Select

    Selection.ShapeRange("Oval4170").Fill.ForeColor.RGB = _

    RGB(255, 0, 255)

    Range("B4:C4").Select

End Sub

Gracias