auto-ta,año en los comentarios

Prueba con el siguiente código:

Sub AutoAjustarComentarios()
Dim wks As Worksheet
Dim cmt As Comment

For Each wks In Worksheets
For Each cmt In wks.Comments
cmt.Shape.TextFrame.AutoSize = True
Next cmt
Next wks

Set cmt = Nothing
Set wks = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Mara" escribió en el mensaje news:

hola a todos

quisiera preguntaro si existe alguna funcion o utilidad que permita ajustar
los commentarios de celdas para mostrar todo su contenido sin tener que ir
uno por uno

recibo hojas de calculo con un monton de comentarios, y para leerlos
completamente tengo que andar ajustando uno por uno

gracias por aelantado

muchas gracias
no sabia que los comentarios pudieran tener esta funcion

(que les costara a la gente hacer las cosas bien, lo digo por los
comentaristas)

el unico inconveniente que veo, es que me hace los comentarios de una linea
y tan largos como la linea es (por que tampoco saben separar cada frase con
un intro)

aun asi, me ha ayudado mucho

gracias de nuevo


"Fernando Arroyo" wrote in message
news:%
Prueba con el siguiente código:

Sub AutoAjustarComentarios()
Dim wks As Worksheet
Dim cmt As Comment

For Each wks In Worksheets
For Each cmt In wks.Comments
cmt.Shape.TextFrame.AutoSize = True
Next cmt
Next wks

Set cmt = Nothing
Set wks = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"Mara" escribió en el mensaje
news:

hola a todos

quisiera preguntaro si existe alguna funcion o utilidad que permita

ajustar

los commentarios de celdas para mostrar todo su contenido sin tener que ir
uno por uno

recibo hojas de calculo con un monton de comentarios, y para leerlos
completamente tengo que andar ajustando uno por uno

gracias por aelantado

Sería posible forzar un salto de línea cada cierto número de palabras con el siguiente código:


Sub AjustarComentarios()
Dim wks As Worksheet
Dim cmt As Comment
Dim m As Variant
Dim n As Integer

For Each wks In Worksheets
For Each cmt In wks.Comments
cmt.Shape.TextFrame.AutoSize = True
m = Split(cmt.Text, " ")
For n = LBound(m) To UBound(m)
If n Mod 4 = 0 And n > LBound(m) Then m(n) = m(n) & Chr(10)
Next n
cmt.Text Text:=Join(m, " ")
Next cmt
Next wks

Set cmt = Nothing
Set wks = Nothing
End Sub


Tal como va el código, el salto se produciría cada cuatro palabras, pero esto se puede variar sustituyendo el 4 de

If n Mod 4

por el número que sea.

Hay un pequeño problema: a partir de la segunda línea, las líneas en el comentario aparecerán precedidas de un espacio. Supongo que esto se podría solucionar modificando el código, pero no sé si merecerá la pena.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Mara" escribió en el mensaje news:

muchas gracias
no sabia que los comentarios pudieran tener esta funcion

(que les costara a la gente hacer las cosas bien, lo digo por los
comentaristas)

el unico inconveniente que veo, es que me hace los comentarios de una linea
y tan largos como la linea es (por que tampoco saben separar cada frase con
un intro)

aun asi, me ha ayudado mucho

gracias de nuevo

gracias de nuevo

no te precupes mas, con esto me sobra, asi puedo de un vistazo pasar por
todos los comentarios

gracias por la ayuda


"Fernando Arroyo" wrote in message
news:
Sería posible forzar un salto de línea cada cierto número de palabras con el
siguiente código:


Sub AjustarComentarios()
Dim wks As Worksheet
Dim cmt As Comment
Dim m As Variant
Dim n As Integer

For Each wks In Worksheets
For Each cmt In wks.Comments
cmt.Shape.TextFrame.AutoSize = True
m = Split(cmt.Text, " ")
For n = LBound(m) To UBound(m)
If n Mod 4 = 0 And n > LBound(m) Then m(n) = m(n) & Chr(10)
Next n
cmt.Text Text:=Join(m, " ")
Next cmt
Next wks

Set cmt = Nothing
Set wks = Nothing
End Sub


Tal como va el código, el salto se produciría cada cuatro palabras, pero
esto se puede variar sustituyendo el 4 de

If n Mod 4

por el número que sea.

Hay un pequeño problema: a partir de la segunda línea, las líneas en el
comentario aparecerán precedidas de un espacio. Supongo que esto se podría
solucionar modificando el código, pero no sé si merecerá la pena.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Mara" escribió en el mensaje
news:

muchas gracias
no sabia que los comentarios pudieran tener esta funcion

(que les costara a la gente hacer las cosas bien, lo digo por los
comentaristas)

el unico inconveniente que veo, es que me hace los comentarios de una

linea

y tan largos como la linea es (por que tampoco saben separar cada frase

con

un intro)

aun asi, me ha ayudado mucho

gracias de nuevo