Ayuda con la macro de un gráfico

Ihm · el 22 de julio

Buenos días.

Copiamdo de un sitio y de otro, he preparado una macro que consigue hacer casi todo lo que yo deseo. Se trata de insertar un gráfico en una hoja nueva. El resultado final es el deseado (o casi). Sin embargo, hay dos cosas que no he logrado.

La primera, quiero que la nueva hoja tenga un nombre que pueda variarlo sin entrar en la macro. Eso lo hace. No obstante, en una segunda parte de la macro no sé como hacer para que me funcione esto mismo.

Con este se pone el nombre de la hoja.

'Establece el tipo de grafico

    ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Select
    ActiveChart.Location Where:=xlLocationAsNewSheet
    ActiveChart.Name = Sheets("Datos1").Range("h1")

En esta es la que no puedo sacar el nombre fuera de la macro.

'Cambiar el color de la barra en función del valor decidido

    Set sht = Sheets("Datos1")
    sht.Select
    Set StartCell = Range("c6")

    Charts("P100").Select
    With ActiveChart.FullSeriesCollection(1)
    Val = .Values
        For Pto = 1 To UBound(Val)
            If Val(Pto) > Sheets("Datos1").Range("f1") Then
            .Points(Pto).Interior.Color = RGB(100, 100, 100)
            ElseIf Val(Pto) > Sheets("Datos1").Range("f2") Then
            .Points(Pto).Interior.Color = RGB(150, 150, 150)
            Else: .Points(Pto).Interior.Color = RGB(200, 200, 200)
            End If

        Next Pto
    End With

La segunda es eliminar el borde del gráfico. Siguiendo los pasos que realiza el grabador de macros del programa no funciona.

Gracias de antemano por vuestra ayuda,

Ignacio

A2.xlsm

Mauricio_ODN · el 22 de julio

@Ihm

Nos comentas, Saludos.

A2.1.xlsm

Ihm · el 23 de julio

Buenos días @Mauricio_ODN

Posiblemente no me expliqué bien ayer. Por tal motivo, dejo los comentarios en el propio archivo. Espero haber indicado mejor lo que busco.

Saludos,

Ignacio

A3.xlsm

Mauricio_ODN · el 23 de julio

Hola @Ihm

Prueba este código:

Sub Add_oSh()
Dim oName As String
oName = Sheets("Datos1").[H1]
Set ch_Sh = Sheets.Add(After:=Sheets(1), Type:=xlChart)
ch_Sh.Name = oName
End Sub

Lo adecuas a tu proceso, nos comentas, Saludos.

Ihm · el 24 de julio

Hola @Mauricio_ODN

Como no tengo el nivel suficiente para adaptar la macro que me has aportado, lo intento de otra manera.

He dividido la macro del archivo en dos macros. La primera, Gráfico, genera el gráfico en una hoja aparte cuyo nombre esta refenciado a una celda de la hoja "Datos 1". Hasta aquí correcto.

La segunda macro, Color; da color a las barras del gráfico en función de unos determinados valores también indicados en la hoja "Datos 1". Esto lo hace si, por decirlo de alguna manera, en la linea del codigo que selecciona la hoja donde tiene que actuar la macro aparece directamente el mombre de la hoja.

Ejemplo

Sheets("P100").Select

Siendo P100 el mombre de la hoja que ha sido generada con la primera macro.

La pregunta es: ¿Como puedo hacer para que no tenga que escribir dicho nombre en la macro y referenciarlo a la misma celda que en la primera macro? Y de ser posible , ¿como integrarlo en una sola macro?

Gracias anticipadas por tu tiempo y paciencia.

Saludos,

Ignacio

A4.xlsm