Прорисовка фигур стала дольше в новой версии Excel 2007

Старая форма входа

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

urzp

Дата: Воскресенье, 21.04.2013, 20:42 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 8

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

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

Доброго времени суток. Есть программа, но могу пользоваться ей только в версии Excel 2003, потому что в Excel 2007 и выше, графические значки очень долго рисуются.
Подскажите в чем проблема, почему так происходит и как решить эту проблему.

Сообщение отредактировал urzp - Воскресенье, 21.04.2013, 20:48

Ответить

RAN

Дата: Воскресенье, 21.04.2013, 21:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Вариант № 1.
НЕ пользоватся.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 21.04.2013, 21:40

Ответить

urzp

Дата: Понедельник, 22.04.2013, 00:19 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Пример вставки значков
Заметная разница по времени отработки в Excel 2003 и Excel 2007

К сообщению приложен файл: _Microsoft_Exce.xls (44.0 Kb)

Ответить

nilem

Дата: Понедельник, 22.04.2013, 07:55 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

В Е2010 (2007) можно попробовать как-то так
[vba]

Код

Sub Кнопка1_Щелчок()
Dim i&, j&
With Sheets("Лист2").Shapes("47")
     For j = 1 To 10
         For i = 1 To 20
             With .Duplicate
                 .Left = 200 + i * 25
                 .Top = 100 + 30 * j
                 .Name = i & j
             End With
         Next i
     Next j
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

urzp

Дата: Понедельник, 22.04.2013, 09:51 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 8

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

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

Спасибо огромное.
Не могли бы прояснить в чем суть этой проблемы и почему так происходит.

Ответить

nilem

Дата: Понедельник, 22.04.2013, 14:23 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Копировать можно один раз; и обновление экрана отключить. Вот так тоже вроде работает:
[vba]

Код

Sub Кнопка1_Щелчок22()
Application.ScreenUpdating = False
Sheets("Лист2").Shapes("47").Copy
With Sheets("Лист1")
     For j = 1 To 10
         For i = 1 To 20
             .Paste
             Selection.Left = 200 + i * 25
             Selection.Top = 100 + 30 * j
         Next i
     Next j
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Прорисовка фигур стала дольше в новой версии Excel 2007

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