Скачать: CL | DM;

Фоном открыть 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]
Скорее всего, все измеряется в твипах.

---

← →
Andy BitOff ©   (2006-01-27 15:39) [7]

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 дюйма.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c