Картинка ActiveX -> раздувается сильно Ексель файл.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Картинка ActiveX -> раздувается сильно Ексель файл. (Формулы/Formulas)

bear_ukraine

Дата: Пятница, 17.10.2014, 17:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

День добрый.

Такая вот ситуация:
Есть макрос для составления массива из картинок для дальнейшего их увеличения по ЛКМ. Картинки идут как ActiveX.
Проблема в том, что к примеру изначальный размер картинки 30кб, и при вставке через ActiveX файл Ексель раздувается до 400кб! Мне нужно вставить 230 картинок.

Если не использовать "Разработчик->Вставить->Елементы ActiveX->Изображение", а использовать "Вставка->Рисунок", то файл Ексель растет на размер картинки, но макрос не работает.
Подскажите пожалуйста, как бороться с увеличением размера? Или есть возможность перенастроить код на обработку не ActiveX рисунков, а "обычных"?

Инет ответ не дал.
Спасибо за помощь.

Обработка массива (обработка идет по нажатию кнопки):
[vba]

Код

Option Explicit
Public P() As New PC
Dim S 'As OLEObject

Dim t

Sub Add_Massiv()

Erase P

t = 1
For Each S In Лист1.OLEObjects
      If TypeName(S.Object) = "Image" Then
            ReDim Preserve P(1 To t)
                   Set P(t).PC = S.Object
                  t = t + 1
      End If
Next
End Sub

[/vba]

Сообщение отредактировал bear_ukraine - Пятница, 17.10.2014, 17:31

Ответить

Картинка ActiveX -> раздувается сильно Ексель файл. (Формулы/Formulas)

Страница 1 из 1
1