Добрый день всем. Настраиваю вставку картинок макросом. Все картинки должны вставляться ОДИНАКОВОЙ высоты (например 5,64 см). Для этого все картинки в каталоге я прогнал через пакетную обработку и у всех высоту задал 160 пикселей (а ширина пропорционально). А вставляются какие-то ошибочно слишком маленькими. Проверял размеры картинок в файлах - высота у всех одинаковая, ширина пропорциональная. Пробовал И РУКАМИ вставлять - аналогично: картинки, которые вставляются макросом маленькими, и при вставке руками также вставляются маленькими (в примерах это второй файл). Макрос пробовал двух вариантов Первый:
Код
Set p = ActiveSheet.Shapes.AddPicture(Puty, msoFalse, msoCTrue, Rng.Left, Rng.Top, -1, -1)
ratio = Rng.Width / p.Width
p.ScaleWidth ratio, msoFalse
p.ScaleHeight ratio, msoFalse
и второй (из макрорекордера)
Код
Pict.Select
ActiveSheet.Pictures.Insert ( _
Puty)
Здесь Puty - это полный путь к картинке в каталоге, а Rng - это ячейка, в которую вставляю. Почему две картинки из примера вставляются разного размера (и макросами И РУКАМИ)? В примерах первая картинка (красное) вставляется нужного размера (высота 5,64 см), а вторая картинка (белое) ошибочно малая (высота 1,36 см).
Админу. Покажите, пожалуйста, где написано как теги вставлять (не нашел).
Excel использует параметр растра - dpi, число точек растра на дюйм. Вот этим параметром ваши картики и отличаются. Приведите к одному значению и будет так, как вам хочется.