h8nor

У объекта коллекции Sheets.Shapes.Item(1) есть свойство Left и Top, если второе задаётся значением высоты строки, то первое зависит от множества других параметров. Картинка находится не в ячейке, как это кажется на первый взгляд. Поэтому лучше сразу задавать рисунку имя Shapes.Item(1).Name.

Уберите методы Activate и Select, - макрос будет работать быстрее. Например, вот так:

sh2.Shapes.Item(1).Copy
sh1.Pictures.Paste

ЗЫ, в подобных задачах полезно пользоваться отладчиком: View -> Locals Window

Нужно чтобы в чекбоксах выдавало статус checked/unchecked

В примере по ссылке свойство myabsent.Value имеет тип boolean.

То тогда как переконвертировать в integer?

Для изменения типа на long необходимо изменить параметр на myabsent.TripleState = True ' Тройное состояние. Решение задачи.

Для этого есть функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ (или SUBTOTAL). Первым атрибутом "номер_функции" указать 109. В Excel 2007 и ниже может считать неверно, хотя заплатки Майкрософт выпускал.

1. Многооконный режим Excel 2010
   • Первый способ проверен на XP (нужно вручную создать новый ярлык для Excel).
   • Второй способ: простая замена /dde /n на /n "%1" (ни на /e "%1") не работает; видимо ключ оставлен для обратной совместимости c DDE. "%1" - Полный путь к открываемому файлу.)
     
     Таким же образом можно попробовать отключить DDE-запросы в Excel

     Файл -> Параметры -> Дополнительно (вкладка) -> Общие (раздел)
     (√) Игнорировать DDE-запросы от других приложений

     В целом проблему не решает. Скорее всего не будет работать, например, если на ПК установлено несколько версий офисов.
   ЗЫ: Ключи для запуска Excel описаны здесь.
2. Если у вас 1 монитор, то может подойти способ: Вид -> Окно (раздел) -> Рядом. Для управления окнами в том же разделе есть кнопки Упорядочить всё и Синхронная прокрутка.
3. Советуют переходить на Excel 2013, где нет этой проблемы.
4. Открывать файлы через командную строку или использовать для переключения книг CTRL+F6