Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/массово увеличить картинки в прайсе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » массово увеличить картинки в прайсе (Формулы/Formulas)
массово увеличить картинки в прайсе
cherkas Дата: Четверг, 26.11.2015, 19:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 2 ±
Замечаний: 0% ±

2003
Здравствуйте, если кто то знает, подскажите пожалуйста следующее.

Есть прайс с картинками, картинка находится в одной ячейке (т.е. не ту такого, что бы картинка занимала 2 или более смежных ячеек).

Нужно увеличить все ячейки до максимального размера так, что бы увеличились и картинки, но увеличились пропорционально по заданной стороне. (по вертикали или горизонтали)

Можно ли такое реализовать и как.

Фаил с примером не влазит, но если в вопросе что то не понятно, то я выложу куда то и дам ссылку на скачивание.
[moder]А я ее удалю и Вам замечание влеплю. Неужели нельзя маленький файл сделать и сохранить его в xlsb?


Сообщение отредактировал _Boroda_ - Четверг, 26.11.2015, 20:20
 
Ответить
СообщениеЗдравствуйте, если кто то знает, подскажите пожалуйста следующее.

Есть прайс с картинками, картинка находится в одной ячейке (т.е. не ту такого, что бы картинка занимала 2 или более смежных ячеек).

Нужно увеличить все ячейки до максимального размера так, что бы увеличились и картинки, но увеличились пропорционально по заданной стороне. (по вертикали или горизонтали)

Можно ли такое реализовать и как.

Фаил с примером не влазит, но если в вопросе что то не понятно, то я выложу куда то и дам ссылку на скачивание.
[moder]А я ее удалю и Вам замечание влеплю. Неужели нельзя маленький файл сделать и сохранить его в xlsb?
Автор - cherkas
Дата добавления - 26.11.2015 в 19:41
cherkas Дата: Четверг, 26.11.2015, 23:43 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 2 ±
Замечаний: 0% ±

2003
прайс выглядит так
К сообщению приложен файл: 11.xlsx (80.0 Kb)


Сообщение отредактировал cherkas - Четверг, 26.11.2015, 23:47
 
Ответить
Сообщениепрайс выглядит так
Автор - cherkas
Дата добавления - 26.11.2015 в 23:43
cherkas Дата: Четверг, 26.11.2015, 23:47 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 2 ±
Замечаний: 0% ±

2003
должно получиться так
К сообщению приложен файл: 12.xlsx (80.0 Kb)
 
Ответить
Сообщениедолжно получиться так
Автор - cherkas
Дата добавления - 26.11.2015 в 23:47
_Boroda_ Дата: Пятница, 27.11.2015, 00:25 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Можно макросом
Вот так по высоте
[vba]
Код
Sub tt()
    ActiveSheet.DrawingObjects.Select
    Selection.Placement = xlMove
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 409'высота
   'Selection.ShapeRange.Width = 1150'ширина
    Range("L1:L" & Range("A" & Rows.Count).End(xlUp).Row).RowHeight = 409
    Range("L1").ColumnWidth = 205
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно макросом
Вот так по высоте
[vba]
Код
Sub tt()
    ActiveSheet.DrawingObjects.Select
    Selection.Placement = xlMove
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 409'высота
   'Selection.ShapeRange.Width = 1150'ширина
    Range("L1:L" & Range("A" & Rows.Count).End(xlUp).Row).RowHeight = 409
    Range("L1").ColumnWidth = 205
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 27.11.2015 в 00:25
cherkas Дата: Пятница, 27.11.2015, 08:58 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 2 ±
Замечаний: 0% ±

2003
Спасибо, вроде бы работает
 
Ответить
СообщениеСпасибо, вроде бы работает
Автор - cherkas
Дата добавления - 27.11.2015 в 08:58
Мир MS Excel » Вопросы и решения » Вопросы по Excel » массово увеличить картинки в прайсе (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!