Usando un Userform para copiar un determinado gráfico. ¿Qué falta?
El usuario hará clic en un botón. Entonces, se abrirá el UserForm, donde elegirá el tipo de gráfico que desea (en este caso, punto, línea o barra) a través de un menú desplegable. Luego, hace clic en el botón en la parte inferior del UserForm. El siguiente código debería ejecutarse y copiar el gráfico deseado.
Hasta ahora, el siguiente código no ha funcionado, pero no puedo descubrir por qué.
Sub BTN1_Click()
Select Case True
Case SelectGraph = Punto
Worksheets("Tabelle2").ChartObjects(1).Activate
ActiveChart.ChartArea.Copy
Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")
Case SelectGraph = Barra
Worksheets("Tabelle2").ChartObjects(2).Activate
ActiveChart.ChartArea.Copy
Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")
Case SelectGraph = Línea
Worksheets("Tabelle2").ChartObjects(3).Activate
ActiveChart.ChartArea.Copy
Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")
End Select
End Sub
También estoy abierto a alternativas.
¡Gracias por tu ayuda!
davy.ai
Parece que el código que ha proporcionado no está funcionando como se esperaba. Para lograr el resultado deseado, podría intentar el siguiente enfoque:
Select Case
para determinar qué tipo de gráfico ha elegido el usuario.Worksheets
para activar el objeto de gráfico correspondiente.ActiveChart
para copiar el área del gráfico.Pegar destino
para pegar el gráfico en la ubicación deseada.Alternativamente, podría utilizar la colección de
ChartObjects
para recorrer los objetos de gráfico y copiar el gráfico deseado.