Масштабирование картинок в Excel
Предлагаю всем интересующимся макрос, который масштабирует картинки в Excel.
При открытии книги назначаются сочетания клавиш, которые позволяют каждой картинке в рабочей книге присвоить оригинальное имя, базовый масштаб (в Замещающий текст) и назначить макрос, который при клике на картинку будет выполнять её увеличение.
Отдельные картинки, в режиме когда они увеличены, можно масштабировать динамически с сохранением нового значения масштаба используя клавиши Ctrl+Alt+UP и Ctrl+Alt+DOWN.
Для присвоения базового масштаба картинкам необходимо после открытия книги с данным макросом нажать Ctrl+Alt+Right. По умолчанию картинкам присваивается масштаб равный 90% высоты всех строк, которые видны на экране. Если размеры экрана изменить — изменится и размер увеличенной картинки.
Чтобы заменить значение по умолчанию для всех картинок используются клавиши Ctrl+Alt+Left
Текст макроса с комментариями ниже:
Как изменить (увеличить и уменьшить) масштаб в MS Excel
Увеличение и уменьшение масштаба таблицы с данными в MS Excel — рядовая и рутинная операция. Людям со слабым зрением, к которым отношусь и я, без изменения масштаба работать с большими таблицами вообще практически нереально, да и тем кто видит хорошо, полезно иногда сужать поле зрения, чтобы сосредоточится на деталях и избежать ненужных ошибок.
Важно отметить, что изменение масштаба о котором пойдет речь в этой статье — сугубо «виртуальная» процедура, которая не влияет ни на размер шрифтов, ни на конечный вид документа при печати. Поэтому пользуйтесь ей без всякой боязни — это все равно, что рассматривать книгу с помощью лупы, книге от этого никакого вреда, а вам удобнее.
Увеличение и уменьшение масштаба в MS Excel с помощью панели инструментов
Увеличение и уменьшение масштаба в MS Excel с помощью панели инструментов
Самый «казенный» и потому бестолковый способ, хотя, и не лишенный некоторого удобства. Инструменты масштабирования спрятаны на вкладке «Вид», в группе «Масштаб». Всего тут присутствуют три инструмента:
-
Масштаб — нажмите на эту кнопку и на экране появится небольшая дополнительная табличка. Поставьте переключатель на 200% — и лист Excel будет автоматически отмаштабирован в сторону увеличения (в 2 раза), поставьте 50% — и лист «съежится» так, что буквы будут видны едва-едва.
Инструмент «масштаб» в MS Excel
Масштаб по выделенному — позволяет масштабировать таблицу Excel до размеров выделенного участка
Увеличение и уменьшение масштаба в MS Excel с помощью регулятора
Справа в нижней части находится регулятор масштаба, штука намного более наглядная и быстрая, чем панель инструментов. Здесь все понятно интуитивно — нажатием на значок «-« с левой стороны регулятора уменьшает масштаб отображения таблицы, «+» справа — увеличивает. Черточка ровно по середине полосы регулятора — сбрасывает масштаб на 100%.
Регулятор масштаба в MS Excel
Полезным дополнением служит и небольшое окошка справа от самого регулятора, где отображается текущее значение масштаба страницы. Выглядит это весьма наглядно и удобно, а для ретроградов предусмотрена и возможность увеличения/уменьшения страницы по старинке: просто щелкните мышью по окошку с процентами и на экран будет выведено уже знакомое нам окно «Масштаб».
Увеличение и уменьшение масштаба в MS Excel с помощью мыши
А это мой любимый способ. Потому что самый быстрый и простой. Зажмите на клавиатуре клавишу CTRL и не отпуская её прокрутите колесико мыши. Если крутить «на себя», масштаб таблицы на экране будет уменьшаться, а «от себя», наоборот, увеличиваться.
Вот мы и познакомились со всеми способами изменения масштаба документа в MS Excel — используйте тот, который показался вам наиболее простым.
Макрос для увеличения картинок по щелчку мыши
Макрос позволяет увеличивать / уменьшать изображения на листе Excel по щелчку мыши.
Для использования макроса, скопируйте в свой файл модуль с кодом (просто перетащив его мышкой из прикреплённого файла),
выделите все картинки в своём файле Excel, и назначьте им макрос ZoomImage
Чтобы выделить все изображения, проделайте следующее:
- нажмите Ctrl + G (для появления диалогового окна «Переход»)
- нажмите кнопку «Выделить» в этом диалогом окне
- в появившемся окне «Выделение группы ячеек» поставьте галочку «Объекты», и нажмите OK
После этого (как все картинки будут выделены), щелкните на одной из картинок правой кнопкой мыши,
в контекстном меню нажмите «Назначить макрос», выделите макрос ZoomImage, и нажмите OK
При щелчке на картинке, макрос плавно увеличивает картинку в 3 раза, попутно перемещая её в центр экрана
(коэффициент увеличения, скорость увеличения фото, и количество промежуточных шагов увеличения, можно задать в коде)
Для увеличения создаётся копия исходной картинки.
При щелчке на увеличенной картинке, она плавно уменьшается в размерах, после чего удаляется.
Код макроса ZoomImage:
- 61412 просмотров
Комментарии
Спасибо! Очень пригодилось!
Добрый день Игорь ,
могу заказать вам небольшую работу ?
Я вам сброшу свой файл в EXEL ( это каталог моих товаров) .
Добавьте ваш макрос для увеличения изображений .
Так как каталог меняется при поступлении или убытии товаров , нужна ваша инструкция по изменениям6 которые потребуются .
Сообщите цену вопроса .
сколько это будет стоить ?
ОГРОМНОЕ спасибо!
Макрос прекрасно работает и гибко настраивается (в умеренных пределах). Excel 2010
Спасибо Игорь. не подскажите как можно ли сделать так чтоб изображение не только увеличивалось но и поворачивалось по нажатию.
Это надо заметно усложнять макрос.
А как сделать чтобы картинка в конце уплывала на своё место? а то когда увеличивается то то постепенно это делает со своего места, а когда уменьшается то делает это посередине экрана
Нет, макросы работают только в Excel. В ПДФ работать не будет
Игорь, добрый день!
Подскажите, будет ли работать этот функционал (увеличение фото по клику), если сохранить документ Exel в PDF или XPS?
Хотим в прайс добавить картинки, но прайс отправляем клиентам не в экселе, чтоб слуйчайно не редактировалось ничего.
Буду благодарен за ответ!
Мои макросы гарантированно работают только под windows. На маке — там многое по-другому делается.
Макрос не работает для MAC
Доброго времени суток пожалуйста помогите, использовал макрос, часть картинок увеличивает, а некоторые при нажатие на нее увеличивают картинку с другой строки.
Координаты вычисляются в переменных cx2# и cу2# — исправьте код, чтобы там были нужные вам значения координат.
Если сами не разберетесь, могу сделать под заказ (платно)
а как задать координаты увеличенной картики, что бы не по центру экрана выходил а справа снизу
После сохранения портится качество картинки до нечитаемого, что делать? Excel 2010
Причина в том, что Excel автоматически сжимает рисунки при сохранении. Чтобы этого избежать надо зайти: Файл -> Параметры -> Дополнительно и поставить галочку в пункте «Не сжимать изображения в файле». В зависимости от версии Excel данная функция может быть в другом разделе.
Добрый день.
А как дописать код таким образом что бы вместе с увеличением картинки менялся цвет границы данной картинки
Это не от макроса зависит, а от того, в каком размере и с каким качеством вставлены картинки.
Если вставить картинку размером 40*50 пикселей, — конечно, она при увеличении до размеров 400*500 будет выглядеть ужасно.
А если вы вставите на лист фотографию размером 3000*2000, а потом уменьшите её до 30*20, — то при щелчке она будет увеличиваться без всякой потери качества (так как на листе она хоть и отображается маленькой, — Excel её хранит целиком).
Но, опять же, если в случае с этим большим фото, в Excel нажать кнопку СЖАТЬ ИЗОБРАЖЕНИЯ, — после сохранения файла и повторного его открытия, Excel обрежет ненужное, — и картинка 3000*2000 превратится в картинку 30*20 — и тогда увеличение опять даст плохой результат.
А чтобы и файл Excel много не весил, и картинки при увеличении сильно качество не теряли, — размеры вставляемых картинок должны быть порядка 200-500 пикселей (при этом, не имеет значения, на сколько они уменьшены в размерах при вставке на лист)
Добрый день. проблема в том что после того как кликаешь по картинке при увеличение теряется качество картинки. как это можно исправить. побывал разные размеры картины не помогло.
Добрый день!
Спасибо за Вашу работу, однако при использовании возникли проблемы. После сохранения файла и повторноv его открытиb качество увеличенной картинки ухудшается. В чем причина?
здравствуйте, все отлично внедрил в свой файл.
Но Закрыв все, и удалив файл ZoomPictures.xls
Я открыл вновь свой файл, и увеличение перестало работать, просит найти путь к файлу ZoomPictures.xls.
Подскажите пожалуйста как решить эту проблему, ведь когда я перенесу свой файл на другой комп, там априори не будет зуум файла.
Антонина, по ценам здесь написано.
Если нет четкого техзадания, — я даже примерно цену не могу сказать.
ОГРОМНОЕ СПАСИБО. ЕЩЕ ВОПРОС, ВОЗМОЖНО НЕ ПО ТЕМЕ. СКОЛЬКО БУДЕТ СТОИТЬ НАПИСАНИЕ ПРОГРАММЫ ДЛЯ ФОРМИРОВАНИЯ ПРАЙС ЛИСТОВ ДЛЯ КЛИЕНТОВ.
Здравствуйте, Антонина.
Этот макрос не увеличивает размер файла Excel, — всё дело в картинках.
Чтобы файл с картинками весил немного, — используйте для вставки изображений эту программу:
http://excelvba.ru/programmes/PastePictures
со включенной опцией сжатия картинок (тогда картинки будут вставляться уменьшенными — это позволит достичь минимального размера файла Excel)
У меня вопрос, а можно, как-нибудь уменьшить размер всего файла xls, а то с этим макросом он начал весить очень много. Или может картинок очень много. В общем как решить задачу: формирование прайс-листа с изображениями, но небольшого по весу. Спасибо за любой ответ.
Как увеличить изображение в экселе
Как увеличить изображение при нажатии на него в Excel?
Предположим, вы вставили список изображений в столбец и сопоставили размеры изображений с размерами ячеек, как показано на скриншоте ниже. Поскольку вставленное изображение выглядит маленьким, вам может потребоваться увеличить его для некоторых целей. В этой статье будет показан способ увеличения изображения при нажатии на него в Excel и восстановления исходного размера вторым щелчком.
Увеличивать изображение при нажатии на него с кодом VBA
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Следующий код VBA может помочь вам увеличить изображение, щелкнув его в Excel. Пожалуйста, сделайте следующее.
1. Щелкните правой кнопкой мыши изображение, которое необходимо увеличить, просто щелкнув по нему, затем щелкните Назначить макрос из контекстного меню. Смотрите скриншот:
2. в Назначить макрос диалоговое окно, щелкните Новинки кнопку.
3. Во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA между ниже и End Sub коды. Смотрите скриншот:
Код VBA: увеличьте изображение, щелкнув по нему в Excel
Внимание: В коде можно назначить большие размеры картинки в коде big = 3.
4. Затем нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.
С этого момента, когда вы нажимаете на изображение, оно будет увеличено до указанного вами размера, а повторное нажатие вернет его к исходному размеру, как показано на скриншотах ниже.