Огромный объем файла - Microsoft Office Excel

ABCOz · 23.03.2010, 12:12

Уважаемые!
Сразу предупрежу, что файл упакован "на всякий пожарный". На компьютере свежий Касперский. В файле один лист, три колонки с примитивной формулой, однако размер файла более 4 МБ!
Естественно, что-то умышленно, специально не делалось.
Обнаружил, что внутри ячеек курсор меняет свой вид и при нажатии активируется "Text Box № ...." .
Удалял эти текстовые поля сколько мог, пока не устала рука. Результат не сильно меняется.
Может, это глюк Офиса. Может ...(©"на этом моя мысль останавливается")
Попытки перенести инфо в другой файл, используя "вставить значения" тоже приводит к первоначальномй результату. А тормозит компьютер - значительно. Что это, может кто пояснить ?
Если это простой глюк - переделаю, конечно, файл "руками". Но интересно, может сталкивался кто? Спасибо

doober · 23.03.2010, 12:29

Вот ваш младенец.Много разного мусора было

Dophin · 23.03.2010, 12:42

20 тыщ разных автофигур) кто то лихо заморочился чтобы Вам подгадить)

SAS888 · 23.03.2010, 12:43

Уважаемый doober "почистил" Ваш файл но, почему-то "утаил" причину большого объема. Войдите в Правка-Перейти-Выделить-Объекты и увидите, сколько "хвостов" от неправильно удаленных объектов осталось в Вашем файле.

doober · 23.03.2010, 12:44

Ответ на следующий вопрос КАК
При помощи Офиса 2007,так быстрее

doober · 23.03.2010, 12:45

Цитата:

Сообщение от SAS888

Уважаемый doober "почистил" Ваш файл но, почему-то "утаил" причину большого объема. Войдите в Правка-Перейти-Выделить-Объекты и увидите, сколько "хвостов" от неправильно удаленных объектов осталось в Вашем файле.

Я не утаил,клип долго грузится

SAS888 · 23.03.2010, 12:45

To Dophin:
Не видел Вашего сообщения. Вы меня опередили.

Dophin · 23.03.2010, 12:47

Sub pp()
Application.ScreenUpdating = False
Dim sh
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
Application.ScreenUpdating = True
End Sub

или вот таким макросом можно все удалить) работает долго

SAS888 · 23.03.2010, 12:51

Можно проще:

Код:

ActiveSheet.DrawingObjects.Delete

ABCOz · 23.03.2010, 13:26

Не люблю слово респект, но оно здесь ... как нельзя более уместно!
Словом спасибо не отделаться, в Самаре будете лучшими гостями

23.03.2010, 12:43	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Уважаемый doober "почистил" Ваш файл но, почему-то "утаил" причину большого объема. Войдите в Правка-Перейти-Выделить-Объекты и увидите, сколько "хвостов" от неправильно удаленных объектов осталось в Вашем файле. Чем шире угол зрения, тем он тупее.

23.03.2010, 12:45	#7
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	To Dophin: Не видел Вашего сообщения. Вы меня опередили. Чем шире угол зрения, тем он тупее.

23.03.2010, 12:51	#9
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Можно проще: Код: `ActiveSheet.DrawingObjects.Delete` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Объем музыки	FCShadow	Помощь студентам	2	24.02.2010 00:34
Как создать огромный массив?	fatesmile	Общие вопросы Delphi	17	18.01.2010 14:19
Объем изображения	Lokos	Мультимедиа в Delphi	3	16.12.2009 04:05
Объем жесткого диска	buka_14	Помощь студентам	1	16.04.2009 20:03
рассчитать объем	Exo	Microsoft Office Excel	9	28.04.2008 15:03

23.03.2010, 12:42	#3
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	20 тыщ разных автофигур) кто то лихо заморочился чтобы Вам подгадить)

23.03.2010, 12:47	#8
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	Sub pp() Application.ScreenUpdating = False Dim sh For Each sh In ActiveSheet.Shapes sh.Delete Next sh Application.ScreenUpdating = True End Sub или вот таким макросом можно все удалить) работает долго

23.03.2010, 13:26	#10
ABCOz Пользователь Регистрация: 09.09.2009 Сообщений: 12	Не люблю слово респект, но оно здесь ... как нельзя более уместно! Словом спасибо не отделаться, в Самаре будете лучшими гостями