Фоном открыть jpg и прочитать его размеры (VBA Excel)

← →
Andy BitOff © (2006-01-27 13:47) [0]

Собственно сабж.
Есть тут специалисты по VBA?
Надо узнать размеры по ширине и высоте.

← →
jl (2006-01-27 14:09) [1]

Теоретически это можно сделать, создав в дизайнере форму с Image`oм, у которого автосайз установлен в True. Потом создать экземпляр формы
Set Frm = New UserForm1
по умолчанию она невидима, и обращаться к UserForm1.Image1. Хотя, может быть возможно создать Имадж без формы (эксперементально не установлено).
Поток создать теоретически тоже можно с помощью API (адрес процедуры потока забирать с помощью оператора AddrеssOf).

← →
seg (2006-01-27 14:16) [2]

Фоном вряд ли получиться.
Добавить пустой лист, вставить в ячейку рисунок,

ActiveSheet.Pictures.Insert( _
"C:\22221.jpg"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 171.75
Selection.ShapeRange.Width = 110.25

Потом можно удалить лист.

← →
palva © (2006-01-27 14:40) [3]

А если файл с диска прочитать и посмотреть?

← →
jl (2006-01-27 14:44) [4]

Хотя, можно воспользоваться LoadPicture

Set myPic = LoadPicture("C:\pic.jpg")
MsgBox "H: " & myPic.Height & ", W: " & myPic.Width
myPic = Null

← →
Andy BitOff © (2006-01-27 15:35) [5]

seg (27.01.06 14:16) [2]

А вы сами пробовали? Нет, попробуйте и посмотрите результаты возвращаемые таким способом.

jl (27.01.06 14:44) [4]

Сейчас попробую...
Этот вариант, тоже возвращает не совсем понятные результаты.

← →
lj (2006-01-27 15:37) [6]

Andy BitOff © (27.01.06 15:35) [5]
Скорее всего, все измеряется в твипах.

lj (27.01.06 15:37) [6]
А как преобразовать?

При реальных размерах 1855x2535 результат 67072х49080

← →
jl (2006-01-27 15:50) [8]

Нужно узнать разрешение экрана, твип - это 1/1440 дюйма.

← →
seg (2006-01-27 15:54) [9]

твип - это 1/1440 дюйма.

А миллиметрах это сколько?

Фоном открыть jpg и прочитать его размеры (VBA Excel) Найти похожие ветки