Insertar un comentario en una hoja
Pregunta para dante tengo una hoja de excel grandísima y por alguna razón que desconozco si voy a visualizar o modificar uno de los comentarios resulta que el comentario aparece muy lejos, unido a la celda original por una raya larguísima ¿por qué ocurre esto? ¿Hay alguna forma de arreglarlo? Graciasssss
1 respuesta
Todavía no encuentro el motivo de por qué los comentarios se "alejan", es el segundo caso del que he tenido conocimiento. Para arreglarlo realicé esta macro.
Ejecuta la macro para regresar los comentarios a su lugar. Cambia "Hoja1" por el nombre de tu hoja.
Sub RegresarComentarios()
'Por :) Dante Amor
'Copia los comentarios y los vuelve a su lugar
Set ws = Sheets("Hoja1")
ucol = ActiveCell.SpecialCells(xlLastCell).Column + 1
Set pivote = Cells(1, ucol)
Application.ScreenUpdating = False
For Each cmt In ws.Comments
If cmt.Parent.Address <> pivote.Address Then
cmt.Parent.Copy
pivote.PasteSpecial Paste:=xlPasteComments
pivote.Copy
cmt.Parent.PasteSpecial Paste:=xlPasteComments
Application.CutCopyMode = False
pivote.ClearComments
End If
Next cmt
Application.ScreenUpdating = True
End SubSaludos.Dante Amor :)
Si tienes varios comentarios. Después de ejecutar la macro anterior y que todos los comentarios hayan regresado a su celda. Ejecuta la siguiente macro para cambiar la propiedad de los comentarios a "Move"
Sub CambiarPropiedad() 'Por :) Dante Amor For Each cmt In ActiveSheet.Shapes cmt.Placement = xlMove Next cmt End Sub
Te envié la aclaración en la otra pregunta. No olvides valorar las respuestas.
Así, utiliza las macros solamente para corregir lo que tienes, para comentarios nuevos cambia la propiedad
