22/09/2006, 02:42
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 35
Antigüedad: 20 años Puntos: 0 | |
| Array en macros de excel
He grabado una macro en excel donde genero 4 graficos los selecciono y luego los agrupo
Sub Macro1()
Range("B4:C22").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Datos f06 (2)").Range("B4:C22")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Datos f06 (2)"
ActiveSheet.Shapes("Gráfico 1").Duplicate.Select
ActiveSheet.Shapes("Gráfico 1").IncrementLeft 407.25
ActiveSheet.Shapes("Gráfico 1").IncrementTop -9#
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Gráfico 2").Activate
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Small Scroll ToRight:=-4
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Large Scroll ToRight:=-1
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop 227.25
Range("F7").Select
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("ProcesadoEnvolventesTot_V_2_0.xls").Activ ate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4")).Select
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4", "Chart 2")).Select
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 4", "Chart 2", "Chart 3")).Select
Selection.ShapeRange.Group.Select
Range("G7").Select
End Sub
Si en lugar de seleccionar 4 graficos deseara seleccionar n no se como podría hacerlo |