Imprimir página | Cerrar ventana

CAMBIAR EJES AUTOMATICAMENTE CON MACROS

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85131
Fecha de impresión: 15/Agosto/2020 a las 02:25


Tema: CAMBIAR EJES AUTOMATICAMENTE CON MACROS
Publicado por: LUNA
Asunto: CAMBIAR EJES AUTOMATICAMENTE CON MACROS
Fecha de publicación: 07/Abril/2020 a las 03:53
BUENAS NOCHES

-------------
LUNA



Respuestas:
Publicado por: LUNA
Fecha de publicación: 07/Abril/2020 a las 03:58
QUISIERA QUE ME AYUDEN, TENGO 02 HOJAS UNA DE ELLAS CONTIENE UNA BASES DE DATOS, LA SEGUNDA UNA TABLA DINÁMICA Y UN GRÁFICO DINÁMICO, PARA FACILIDAD DEL USUARIO HE COLOCADO SEGMENTACIÓN DE DATOS, UNA DE ESTAS PERMITE LA SELECCIÓN DE TIPO DE PRODUCTO: A,B Y LA SEGUNDA EL COLOR DEL PRODUCTO; X,Y,Z,W, HASTA AHI TODO OK, LO QUE QUISERA ES QUE LOS EJES MINIMO Y MAXIMO CAMBIEN AL EJECUTAR UNA SELECCIÓN, POR EJEM, EL PROCUTO A DE COLOR X, DEBE TENER UN MÍMINO DE 3.1O Y UN MAX DE 4.30; EL A CON Y DEBE TENER UN MÍNIMO DE 2.30 Y UN MAX DE 3.20, NECESITO LA MISMA SECUENCIA PARA AZ, AW, BX,BY,BZ y BW, PERO NECESITO LA IDEA.

GRACIAS

-------------
LUNA


Publicado por: xavi
Fecha de publicación: 07/Abril/2020 a las 09:26
Hola LUNA y bienvenid@ al foro.

En primer lugar recordarte que declarado haber leído las normas del foro por lo que no entiendo que incumplas la segunda de ellas escribiendo todo el mayúsculas.

En segundo lugar estás hablando de hojas lo que parece indicar Excel y el hilo está en Access y VBA

Finalmente... tampoco me queda muy claro que es lo que quieres.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: LUNA
Fecha de publicación: 10/Abril/2020 a las 06:53

Hola Xavi,disculpa por las letras mayúsculas, la consulta que hacía era por una tabla dinámica y un gráfico dinámico, vuelvo a escribirla, espero que este mas clara:
tengo una tabla dinámica a partir de esta tengo un gráfico dinámico, necesito que el eje Y del gráfico se ajuste a los valores que se muestren en el gráfico, los valores para estos ejes están en el rango B5:B5OO de la tabla, desearía una macro que haga que el gráfico actualice su eje Y de acuerdo al máximo y mínimo valor del rango B5:B500 de la tabla dinámica, por fa ayuda





Sub acteje_torque()
'
' acteje_torque Macro
'

'

ActiveSheet.ChartObjects("Gráfico 1").Select

With ActiveChart
    .Axes(xlValue).MinimumScale = 0
    .Axes(xlValue).MaximumScale = Max(rango("B5:B500")
    
    
    
End With



End Sub


-------------
LUNA


Publicado por: LUNA
Fecha de publicación: 10/Abril/2020 a las 06:55
Ahí les colocó lo que he colocado claramente no esta bien por que no esta corriendo, si pueden ayudarme les agradesco

-------------
LUNA


Publicado por: AnSanVal
Fecha de publicación: 10/Abril/2020 a las 15:18

Hola Luna.


Para los datos que has aportado, entiendo que ...


   - El máximo  de  [B5:B500] en una TD con totales te  tomaría el total, como supongo no es lo que buscas, le pongo que te solicite el valor máximo (InputBox).


   - En el módulo de la hoja que contiene la TD:

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim minE#, maxE#, preg$, miC As Range

  If Not Intersect(Target, Range("B5:B500")) Is Nothing Then

    Set miC = ActiveCell

    minE = WorksheetFunction.Min(Worksheets("T.D.").Range("B5:B500"))

    preg = InputBox("¿Máximo del eje?", " ASV  -  Gráfico D.", minE)

    maxE = Val(Replace(preg, ",", "."))

    If maxE > minE Then

      ActiveSheet.ChartObjects("1 Gráfico").Activate

      ActiveChart.Axes(xlValue).MinimumScale = minE

      ActiveChart.Axes(xlValue).MaximumScale = maxE

      miC.Select

    End If

  End If

End Sub





-------------
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.



Imprimir página | Cerrar ventana