Error en grafica

Lo mismo me pasaba a mi y Miguel me recomendo este link:
http://support.microsoft.com/kb/215573/ espero te sirva, un saludo.


Rodrigo Barrere Brezina

"Ubaldo" escribió en el mensaje
news:

Hola a todos

A ver si me podeis ayudar con un problema que me esta ocurriendo en una
grafica de Excel.
Cuando hago doble clie sobre una barra de cualquiera de las graficas que
tengo en el libro para hacer un cambio, me aparece una ventanilla con un
error que dice:

no se puede aplicar más fuentes nuevas en este libro
(Aceptar)
-
Gracias por vuestra colaboración.

Muchas gracias, he probado seguir las indicaciones de la solución del
articulo desabilitando la autoescala, pero me sigue dando el error, no se que
debe pasar.

Gracias por tu colaboración y un abrazo

"Rodrigo Barrere Brezina" escribió:

Lo mismo me pasaba a mi y Miguel me recomendo este link:
http://support.microsoft.com/kb/215573/ espero te sirva, un saludo.


Rodrigo Barrere Brezina

"Ubaldo" escribió en el mensaje
news:
> Hola a todos
>
> A ver si me podeis ayudar con un problema que me esta ocurriendo en una
> grafica de Excel.
> Cuando hago doble clie sobre una barra de cualquiera de las graficas que
> tengo en el libro para hacer un cambio, me aparece una ventanilla con un
> error que dice:
>
> no se puede aplicar más fuentes nuevas en este libro
> (Aceptar)
> -
> Gracias por vuestra colaboración.

Has probado el siguiente codigo??

Sub AutoScale_Off()
Dim ws As Worksheet, co As ChartObject, i As Integer
Dim ch As Chart
For Each ws In ActiveWorkbook.Worksheets

' Go through each worksheet in the workbook

For Each co In ws.ChartObjects

'In each chart turn the Auto Scale font feature off

i = i + 1
co.Chart.ChartArea.AutoScaleFont = False
Next co
Next ws

For Each ch In ActiveWorkbook.Charts

'Go through each chart in the workbook

ch.ChartArea.AutoScaleFont = False
i = i + 1
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub

Despoues de ejecutar la macro debes guardar el archivo cerrarlo y volverlo a
abrir, un saludo.


Rodrigo Barrere Brezina

"Ubaldo" escribió en el mensaje
news:

Muchas gracias, he probado seguir las indicaciones de la solución del
articulo desabilitando la autoescala, pero me sigue dando el error, no se

que

debe pasar.

Gracias por tu colaboración y un abrazo

"Rodrigo Barrere Brezina" escribió:

> Lo mismo me pasaba a mi y Miguel me recomendo este link:
> http://support.microsoft.com/kb/215573/ espero te sirva, un saludo.
>
>
> Rodrigo Barrere Brezina
>
> "Ubaldo" escribió en el mensaje
> news:
> > Hola a todos
> >
> > A ver si me podeis ayudar con un problema que me esta ocurriendo en

una

> > grafica de Excel.
> > Cuando hago doble clie sobre una barra de cualquiera de las graficas

que

> > tengo en el libro para hacer un cambio, me aparece una ventanilla con

un

> > error que dice:
> >
> > no se puede aplicar más fuentes nuevas en este libro
> > (Aceptar)
> > -
> > Gracias por vuestra colaboración.
>
>
>

Hola Rodrigo
He creado el codigo en una macro la he ejecutado y efectivamente ahora si me
ha funcionado, muchas gracias por tu amabilidad.

Estaremos en contacto.

Un abrazo

"Rodrigo Barrere Brezina" escribió:

Has probado el siguiente codigo??

Sub AutoScale_Off()
Dim ws As Worksheet, co As ChartObject, i As Integer
Dim ch As Chart
For Each ws In ActiveWorkbook.Worksheets

' Go through each worksheet in the workbook

For Each co In ws.ChartObjects

'In each chart turn the Auto Scale font feature off

i = i + 1
co.Chart.ChartArea.AutoScaleFont = False
Next co
Next ws

For Each ch In ActiveWorkbook.Charts

'Go through each chart in the workbook

ch.ChartArea.AutoScaleFont = False
i = i + 1
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub

Despoues de ejecutar la macro debes guardar el archivo cerrarlo y volverlo a
abrir, un saludo.


Rodrigo Barrere Brezina

"Ubaldo" escribió en el mensaje
news:
> Muchas gracias, he probado seguir las indicaciones de la solución del
> articulo desabilitando la autoescala, pero me sigue dando el error, no se
que
> debe pasar.
>
> Gracias por tu colaboración y un abrazo
>
> "Rodrigo Barrere Brezina" escribió:
>
> > Lo mismo me pasaba a mi y Miguel me recomendo este link:
> > http://support.microsoft.com/kb/215573/ espero te sirva, un saludo.
> >
> >
> > Rodrigo Barrere Brezina
> >
> > "Ubaldo" escribió en el mensaje
> > news:
> > > Hola a todos
> > >
> > > A ver si me podeis ayudar con un problema que me esta ocurriendo en
una
> > > grafica de Excel.
> > > Cuando hago doble clie sobre una barra de cualquiera de las graficas
que
> > > tengo en el libro para hacer un cambio, me aparece una ventanilla con
un
> > > error que dice:
> > >
> > > no se puede aplicar más fuentes nuevas en este libro
> > > (Aceptar)
> > > -
> > > Gracias por vuestra colaboración.
> >
> >
> >

Me alegro:-)


Rodrigo Barrere Brezina

"Ubaldo" escribió en el mensaje
news:

Hola Rodrigo
He creado el codigo en una macro la he ejecutado y efectivamente ahora si

me

ha funcionado, muchas gracias por tu amabilidad.

Estaremos en contacto.

Un abrazo

"Rodrigo Barrere Brezina" escribió:

> Has probado el siguiente codigo??
>
> Sub AutoScale_Off()
> Dim ws As Worksheet, co As ChartObject, i As Integer
> Dim ch As Chart
> For Each ws In ActiveWorkbook.Worksheets
>
> ' Go through each worksheet in the workbook
>
> For Each co In ws.ChartObjects
>
> 'In each chart turn the Auto Scale font feature off
>
> i = i + 1
> co.Chart.ChartArea.AutoScaleFont = False
> Next co
> Next ws
>
> For Each ch In ActiveWorkbook.Charts
>
> 'Go through each chart in the workbook
>
> ch.ChartArea.AutoScaleFont = False
> i = i + 1
> Next
> MsgBox i & " charts have been altered"
> Application.DisplayAlerts = True
> End Sub
>
> Despoues de ejecutar la macro debes guardar el archivo cerrarlo y

volverlo a

> abrir, un saludo.
>
>
> Rodrigo Barrere Brezina
>
> "Ubaldo" escribió en el mensaje
> news:
> > Muchas gracias, he probado seguir las indicaciones de la solución del
> > articulo desabilitando la autoescala, pero me sigue dando el error, no

se

> que
> > debe pasar.
> >
> > Gracias por tu colaboración y un abrazo
> >
> > "Rodrigo Barrere Brezina" escribió:
> >
> > > Lo mismo me pasaba a mi y Miguel me recomendo este link:
> > > http://support.microsoft.com/kb/215573/ espero te sirva, un saludo.
> > >
> > >
> > > Rodrigo Barrere Brezina
> > >
> > > "Ubaldo" escribió en el mensaje
> > > news:
> > > > Hola a todos
> > > >
> > > > A ver si me podeis ayudar con un problema que me esta ocurriendo

en

> una
> > > > grafica de Excel.
> > > > Cuando hago doble clie sobre una barra de cualquiera de las

graficas

> que
> > > > tengo en el libro para hacer un cambio, me aparece una ventanilla

con

> un
> > > > error que dice:
> > >

> > > > no se puede aplicar más fuentes nuevas en este libro
> > > > (Aceptar)
> > >
-
> > > > Gracias por vuestra colaboración.
> > >
> > >
> > >
>
>
>