Eliminar Marcador

hola, Marcela !

... tengo el marcadar personalizado, pero... me sale de los dos lados de la linea
... como... hacer... para que me quede de un lado solo de la linea... borrar el otro sin que se me borre la linea?

estaba 'a punto de' contestarte en el mensaje anterior :))
-> para [re]mover/poner marcadores SOLO a 'ciertos' puntos de una serie en un grafico... se requiere de macros :-(
te paso al final un ejemplo suponiendo que se trata de una serie en el eje secundario [como el que 'estamos tratando'] ;)
-> solo selecciona PRIMERO 'la serie' a la que se la pondra un marcador SOLO en 'el punto final' :))
[si prefieres que sea SOLO en 'el punto inicial'... CAMBIA ->.Points(.Points.Count)<- POR ->.Points(1)<-

1) copia las siguientes lineas en un modulo de codigo 'normal' [si cualquier duda... comentas?]
2) 'regresa' a excel... selecciona ->la serie<-... y ejecuta la macro :)
Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points.Count).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub

saludos,
hector.

Hola Héctor Miguel!, tu siempre ayudandome! muchas gracias!, es que puse otro
post porque me parecio que el otro estaba medio dificil de entender, pero
algo me decia que ibas a aparecer para ayudarme!, gracias lo practicare y si
no me sale te digo!
un abrazo de marcela!

"Héctor Miguel" escribió:

hola, Marcela !

> ... tengo el marcadar personalizado, pero... me sale de los dos lados de la linea
> ... como... hacer... para que me quede de un lado solo de la linea... borrar el otro sin que se me borre la linea?

estaba 'a punto de' contestarte en el mensaje anterior :))
-> para [re]mover/poner marcadores SOLO a 'ciertos' puntos de una serie en un grafico... se requiere de macros :-(
te paso al final un ejemplo suponiendo que se trata de una serie en el eje secundario [como el que 'estamos tratando'] ;)
-> solo selecciona PRIMERO 'la serie' a la que se la pondra un marcador SOLO en 'el punto final' :))
[si prefieres que sea SOLO en 'el punto inicial'... CAMBIA ->.Points(.Points.Count)<- POR ->.Points(1)<-

1) copia las siguientes lineas en un modulo de codigo 'normal' [si cualquier duda... comentas?]
2) 'regresa' a excel... selecciona ->la serie<-... y ejecuta la macro :)
Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points.Count).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub

saludos,
hector.

si si ya tengo problemas!, que es un modulo de codigo normal?, no hago idea
de que me hablas?!, si me lo explicas, marcela

"Héctor Miguel" escribió:

hola, Marcela !

> ... tengo el marcadar personalizado, pero... me sale de los dos lados de la linea
> ... como... hacer... para que me quede de un lado solo de la linea... borrar el otro sin que se me borre la linea?

estaba 'a punto de' contestarte en el mensaje anterior :))
-> para [re]mover/poner marcadores SOLO a 'ciertos' puntos de una serie en un grafico... se requiere de macros :-(
te paso al final un ejemplo suponiendo que se trata de una serie en el eje secundario [como el que 'estamos tratando'] ;)
-> solo selecciona PRIMERO 'la serie' a la que se la pondra un marcador SOLO en 'el punto final' :))
[si prefieres que sea SOLO en 'el punto inicial'... CAMBIA ->.Points(.Points.Count)<- POR ->.Points(1)<-

1) copia las siguientes lineas en un modulo de codigo 'normal' [si cualquier duda... comentas?]
2) 'regresa' a excel... selecciona ->la serie<-... y ejecuta la macro :)
Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points.Count).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub

saludos,
hector.

Hola!, creo que me salio hacerla, pero me esta dando error, yo quiero el
punto al principio entonces puse el 1 como dices y me quedo asi:

Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points(1)).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub

pero me esta dando error 91, variable de objeto o bloque whit no
establecido, no se donde sale este error ya que no se nada de VBA, a Dios
gracias y a ti! que consegui hacer esto!, habre puesto algo mal en donde va
la linea del 1?

Un abrazo y gracias!, marcela





"Héctor Miguel" escribió:

hola, Marcela !

> ... tengo el marcadar personalizado, pero... me sale de los dos lados de la linea
> ... como... hacer... para que me quede de un lado solo de la linea... borrar el otro sin que se me borre la linea?

estaba 'a punto de' contestarte en el mensaje anterior :))
-> para [re]mover/poner marcadores SOLO a 'ciertos' puntos de una serie en un grafico... se requiere de macros :-(
te paso al final un ejemplo suponiendo que se trata de una serie en el eje secundario [como el que 'estamos tratando'] ;)
-> solo selecciona PRIMERO 'la serie' a la que se la pondra un marcador SOLO en 'el punto final' :))
[si prefieres que sea SOLO en 'el punto inicial'... CAMBIA ->.Points(.Points.Count)<- POR ->.Points(1)<-

1) copia las siguientes lineas en un modulo de codigo 'normal' [si cualquier duda... comentas?]
2) 'regresa' a excel... selecciona ->la serie<-... y ejecuta la macro :)
Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points.Count).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub

saludos,
hector.

hola, Marcela !

... que me salio hacerla, pero me esta dando error, yo quiero el punto al principio entonces puse el 1 como dices y me quedo asi [...]
Sub SoloMarcadorFinal()
With Selection
.ChartType = xlXYScatterLinesNoMarkers
.Points(.Points(1)).MarkerStyle = xlMarkerStyleAutomatic
End With
With ActiveChart.Axes(xlCategory, xlSecondary)
.MajorTickMark = xlNone
.MinorTickMark = xlNone
.TickLabelPosition = xlNone
End With
End Sub
... esta dando error 91, variable de objeto o bloque whit no establecido ... habre puesto algo mal en donde va la linea del 1?

[segun yo] una vez con la linea de la serie YA en el segundo eje... [y seleccionada]...
solo modifica la tercera instruccion en la macro...
-> de -> .Points(.Points(1)).MarkerStyle = xlMarkerStyleAutomatic
a -> .Points(1).MarkerStyle = xlMarkerStyleAutomatic
[el resto de la macro sigue igual] :)

comentas?
saludos,
hector.