Страницы: 1
RSS
почему объем файл огромен?
 
Есть экселевский файл в 5-6 листов. Возмущает объем почти в 200 МЕГАБАЙТ. Картинов в нем нет. из-за чего такой объем может быть
 
Как уменьшить размер файла
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
Павел Кольцов пишет:
Картинов в нем нет
Это ещё вопрос :)
 
Цитата
Павел Кольцов пишет:
Есть экселевский файл в 5-6 листов. Возмущает объем почти в 200 МЕГАБАЙТ. Картинов в нем нет. из-за чего такой объем может быть

У предыдущем подобном файле макрос показал 15700 рисунков

Код
Sub TEXT_SHAPES()
Dim j1, j2, s1
Dim sh As Shape, JSHAPE As Long
Dim WS1 As Worksheet
For Each WS1 In Excel.Worksheets
j2 = WS1.Shapes.Count
Debug.Print WS1.Name, j2

j1 = 0
Do While j1 < j2
Set sh = WS1.Shapes(j1)
Debug.Print j1, sh.Name, sh.AutoShapeType, sh.Type
JSHAPE = JSHAPE + 1
j1 = j1 + 1
Loop
Next WS1
MsgBox "в документе " & JSHAPE & " рис."
End Sub
Страницы: 1
Наверх