Codigo crear grafico en nuevo libro

[mari_hitz]

Hola!

Estoy tratando de hacer lo siguiente: quisiera que seleccionando la informacion que tengo en una hoja de calculo de mi libro de excel copiara la data y creara un grafico en base a esa informacion en otro libro de excel.
El codigo que tengo es el siguiente, el cual no me tira error pero me crea el libro de excel nuevo sin la informacion. Sabria alguien porque es esto?

Private Sub CommandButton1_Click()
  Dim oRangeSelected As Range
    On Error Resume Next
    Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
                                              "SelectARAnge Demo", Selection.Address, , , , , 8)
                                            
  Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
objRange.Select

Set colCharts = objExcel.Charts
colCharts.Add

Set objChart = colCharts(1)
objChart.Activate

objChart.ChartType = 65

objChart.PlotArea.Fill.PresetGradient 1, 1, 7

objChart.SeriesCollection(1).Border.Weight = -4138
objChart.SeriesCollection(2).Border.Weight = -4138
objChart.SeriesCollection(3).Border.Weight = -4138

objChart.SeriesCollection(1).Border.ColorIndex = 2
objChart.SeriesCollection(1).MarkerBackgroundColorIndex = 2

objChart.SeriesCollection(2).MarkerForegroundColorIndex = 1
objChart.SeriesCollection(3).MarkerForegroundColorIndex = 1

objChart.HasTitle = True
objChart.ChartTitle.Text = ""
objChart.ChartTitle.Font.Size = 18

objChart.ChartArea.Fill.Visible = True
objChart.ChartArea.Fill.PresetTextured 15

objChart.ChartArea.Border.LineStyle = 1

objChart.HasLegend = True
objChart.Legend.Shadow = True

    If oRangeSelected Is Nothing Then
        MsgBox "It appears as if you pressed cancel!"
    Else
        MsgBox "You selected: " & oRangeSelected.Address(External:=True)
    End If
End Sub

 

[cgcamal]

Hola mari_hitz,

No se si es necesario abrir otra instancia de Excel para lo que necesitás, si no es así entonces podrías hacer lo mismo
pero sólo agregando un nuevo libro dentro de la misma instancia de Excel y agregar la línea que de el origen de datos
para generar la gráfica.

De esta forma en la Hoja1 del libro1 coloqué los datos de abajo en columna A y B:

Excel Workbook
	A	B	C
1	1	2
2	3	4
3	5	7
4	3	2
5	4	2
6
7
8
Hoja1

Luego antes de correr la macro selecciono el rango A1:B5 de arriba y corro la macro modificada como se ve
abajo, obteniendo una gráfica pero en un nuevo libro dentro de la misma instancia de Excel.

**Algunas líneas de tu macro original las volví comentario y agregué 3 nuevas para que funcionara como menciono arriba.

Private Sub CommandButton1_Click()
  Dim oRangeSelected As Range
    On Error Resume Next
    Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
                                              "SelectARAnge Demo", Selection.Address, , , , , 8)
                                            
 [COLOR=Green]' Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = True
'Set objWorkbook = objExcel.Workbooks.Add()[/COLOR]
Set objWorkbook = Workbooks.Add [COLOR=Green]'###### Línea agregada (1) #####[/COLOR]
Set objWorksheet = objWorkbook.Worksheets(1)
Set objRange = objWorksheet.UsedRange
objRange.Select

[COLOR=Green]'Set colCharts = objExcel.Charts[/COLOR]
Set colCharts = ActiveWorkbook.Charts [COLOR=Green]'###### Línea agregada (2) #####[/COLOR]
colCharts.Add

Set objChart = colCharts(1)
objChart.Activate

objChart.ChartType = 65

objChart.PlotArea.Fill.PresetGradient 1, 1, 7

objChart.SeriesCollection(1).Border.Weight = -4138
objChart.SeriesCollection(2).Border.Weight = -4138
objChart.SeriesCollection(3).Border.Weight = -4138

objChart.SeriesCollection(1).Border.ColorIndex = 2
objChart.SeriesCollection(1).MarkerBackgroundColorIndex = 2

objChart.SeriesCollection(2).MarkerForegroundColorIndex = 1
objChart.SeriesCollection(3).MarkerForegroundColorIndex = 1

objChart.HasTitle = True
objChart.ChartTitle.Text = ""
objChart.ChartTitle.Font.Size = 18

objChart.ChartArea.Fill.Visible = True
objChart.ChartArea.Fill.PresetTextured 15

objChart.ChartArea.Border.LineStyle = 1

objChart.HasLegend = True
objChart.Legend.Shadow = True
objChart.SetSourceData Source:=oRangeSelected [COLOR=Green]'###### Línea agregada (3) #####[/COLOR]


    If oRangeSelected Is Nothing Then
        MsgBox "It appears as if you pressed cancel!"
    Else
        MsgBox "You selected: " & oRangeSelected.Address(External:=True)
    End If
End Sub

Espero ayude,

Saludos cordiales.