понедельник, ноября 22, 2010

2 полезных макроса для удаления гиперссылок и изображений в книгах Excel

По работе мне часто приходится находить в интернете определенную информацию, систематизировать ее и предоставлять начальству.
С определенных сайтов данные копируются вместе с гиперссылками, что очень неудобно при работе в MS Excel, так как при нажатии на ячейку (например, для правки) выскакивает диалоговое окно, не хочу ли я перейти по ссылке. Вырезать, а потом “вставить как текст” тоже не всегда получается.
Нашла макрос, который удаляет все гиперссылки со всех листов книги Эксель. Код макроса:

Sub УдалениеГиперссылок()
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
    Next
End Sub 




Похожая ситуация и с картинками, которые копируются вместе с текстом, но при удалении определенных данных с листа они все равно остаются. Если хотите удалить все картинки в книге, воспользуйтесь следующим макросом:
Sub УдалениеКартинок()
    For Each pic In ActiveSheet.Shapes
        pic.Delete
    Next pic
End Sub

Web Analytics