Вставка рисункас заранее заданным размером

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

Вставка рисункас заранее заданным размером (Иное/Other)

daolg

Дата: Суббота, 21.03.2015, 14:29 | Сообщение № 1

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

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

Сообщений: 13

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

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

Excel 2013

Здравствуйте.
Вот такой вопрос. Есть картинка с некоторым размером. Хочу ее вставить в ячейку. Иду в ВСТАКА -> РИСУНКИ и она вставляется. Но она вставляется исходного размера. Можно ли сделат чтобы размер после вставки менялся на заранее заданный, например под размер ячейки? И тут возникает второй вопрос как сделать столбец ячеек одинакового размера?

Ответить

ShAM

Дата: Суббота, 21.03.2015, 14:49 | Сообщение № 2

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

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

Сообщений: 1347

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

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

Excel 2010

Цитата daolg, 21.03.2015 в 14:29, в сообщении № 1

как сделать столбец ячеек одинакового размера?

Можете как-то перефразировать? А то я вошел в ступор и уже ...надцать минут не могу выйти.

Ответить

МВТ

Дата: Суббота, 21.03.2015, 14:51 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

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

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

Excel 2007

Выделить рисунок и выбрать "Размер и свойства" и там ввести нужные

Ответить

daolg

Дата: Суббота, 21.03.2015, 14:54 | Сообщение № 4

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

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

Сообщений: 13

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

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

Excel 2013

Цитата ShAM, 21.03.2015 в 14:49, в сообщении № 2

Можете как-то перефразировать? А то я вошел в ступор и уже ...надцать минут не могу выйти.

К примеру, я изменяю размер одной ячейки на 40х100 пикселей. И мне нужно, скажем, ещё 50 ячеек вниз сделать такого же размера

Ответить

daolg

Дата: Суббота, 21.03.2015, 14:55 | Сообщение № 5

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

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

Сообщений: 13

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

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

Excel 2013

Цитата МВТ, 21.03.2015 в 14:51, в сообщении № 3

Выделить рисунок и выбрать "Размер и свойства" и там ввести нужные

Так я умею. Может есть какое-нибудь дополнение для экселя для вставки картинок фиксированного размера?

Сообщение отредактировал daolg - Суббота, 21.03.2015, 14:56

Ответить

МВТ

Дата: Суббота, 21.03.2015, 15:40 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

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

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

Excel 2007

Посмотрите здесь http://www.cyberforum.ru/vba/thread539346.html
upd Как вариант, попробуйте вставлять картинки при помощи вот такого макроса
[vba]

Код

Sub ВставкаКартинки()
      Dim fileToOpen As Variant, I As Integer
      fileToOpen = Application.GetOpenFilename("Все файлы (*.*), *.*")
      If fileToOpen = False Then Exit Sub
      For Each Pict In ActiveSheet.Pictures
        I = I + 1
      Next Pict
      ActiveSheet.Pictures.Insert (fileToOpen)
      '.Select
      With ActiveSheet.Pictures(I + 1)
      .ShapeRange.Height = 142
      .Top = 5 + (147 * I)
      .Left = 5
      End With
End Sub

[/vba]