Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Image 
V
    Опции темы
Izuver
Дата 8.10.2006, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2
Как узнать габариты картинки
PM MAIL ICQ   Вверх
Cyric
Дата 8.10.2006, 02:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 27.4.2006
Где: Россия, г. Казань .

Репутация: 3
Всего: 3
Смотря где картинка... Если бы вы конкретнее формулировали свои вопросы то вам было бы гораздо проще помочь.


Код

x = ActiveSheet.Shapes("Picture 1").Width
y = ActiveSheet.Shapes("Picture 1").Height

Вместо "Picture 1" должно быть имя объекта вашей картинки разумеется, либо вы можете перебирать шейпы с помощью

Код

For Each TheShape in ActiveSheet.Shapes
...
next



Если вам нужно узнать габариты картинки имея только местоположение файла на диске, то можете добавить эту картинку в рабочую книгу и узнать размеры описаным выше способом.

Код

set tempImg = ActiveSheet.Pictures.Insert( "путь")
x = tempimg.width
y = tempimg.heidth


Это сообщение отредактировал(а) Cyric - 8.10.2006, 02:59
PM MAIL ICQ   Вверх
Izuver
Дата 9.10.2006, 01:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 352
Регистрация: 13.6.2006
Где: Омск

Репутация: 2
Всего: 2
На форму загружается картинка, каждый раз разная. Надо подогнать размеры формы под размер картинки или может есть другой способ?

Добавлено @ 01:36 
На форму загружается картинка, каждый раз разная. Надо подогнать размеры формы под размер картинки или может есть другой способ?
PM MAIL ICQ   Вверх
Cyric
Дата 9.10.2006, 03:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 27.4.2006
Где: Россия, г. Казань .

Репутация: 3
Всего: 3
Вобще за это отвечают соответствующие свойства

Код

label1 = UserForm1.Picture.Height
label2 = UserForm1.Picture.Width

Единственное, значения получаются в непонятно какой размерности. Т.е. чтобы получить из них количество реальных точек картинки, мне нужно было разделить полученные значения на число примерно равное  ~26.45 и отбросить остаток.
PM MAIL ICQ   Вверх
Naghual
Дата 9.10.2006, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Cyric, значения эти в Твипах.
Делить нужно на Screen.TwipsPerPixelX и Screen.TwipsPerPixelY 


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Cyric
Дата 9.10.2006, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 27.4.2006
Где: Россия, г. Казань .

Репутация: 3
Всего: 3
Цитата(Naghual @ 9.10.2006,  09:48)
Cyric, значения эти в Твипах.
Делить нужно на Screen.TwipsPerPixelX и Screen.TwipsPerPixelY

А какой библиотеке у вас пренадлежит класс Screen, если через ObjectInspector смотреть?

У меня потому что такого класса нет, и нет классов, объекты которых имеют свойства TwipsPerPixelX и TwipsPerPixelY.

Я использую MS Office Excel 2003.

Спасибо.

Это сообщение отредактировал(а) Cyric - 9.10.2006, 19:59
PM MAIL ICQ   Вверх
Дмит
Дата 9.10.2006, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9
Screen в VBA нет (только в VB). А вставлять картинку проще в Image (Image1.AutoSize=True) и потом изменить размеры формы под Image1.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0474 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.