координаты и цвет пикселя

Программирование на Visual Basic for Applications
Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

координаты и цвет пикселя

Сообщение Владимир7 » 04.06.2010 (Пт) 20:52

Можно ли VBA определить координаты и цвет пикселя картинки на листе Excel ?
(или любой картинки, из файла на диске)

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Re: координаты и цвет пикселя

Сообщение qwertyhp » 05.06.2010 (Сб) 0:56

Можно.
Пятачок Forever! :)

Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

Re: координаты и цвет пикселя

Сообщение Владимир7 » 05.06.2010 (Сб) 13:04

:D
Прекрасно!
Чуточку направление если бы обозначили,
или кусочек кода... :study:

qwertyhp
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 156
Зарегистрирован: 07.10.2009 (Ср) 15:02
Откуда: Москва

Re: координаты и цвет пикселя

Сообщение qwertyhp » 06.06.2010 (Вс) 2:20

Вопрос звучал как
Можно ли
Можно. Кусочек кода - используйте поиск по сайту. Аналогичные вопросы поднимались неоднократно. А попутно найдёте массу чего интересного и в перспективе необходимого.
Пятачок Forever! :)

Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

Re: координаты и цвет пикселя

Сообщение Владимир7 » 06.06.2010 (Вс) 11:48

qwertyhp - спасибо, Вы полностью ответили на мой вопрос и мой интерес найти аналогичные вопросы на этом сайте.

Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

Re: координаты и цвет пикселя

Сообщение Владимир7 » 06.06.2010 (Вс) 16:05

qwertyhp - Ваш уверенный ответ придал мне энергию и поиск увенчался успехом - решение есть, практически получил желаемые результаты, осталось понять что же там было написано в модуле класса ещё до моих переделок и довести до ума весь код убрав не нужное.
Property Get, Private Type, Public Enum - вот чего не знаю, факт.

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: координаты и цвет пикселя

Сообщение iGrok » 07.06.2010 (Пн) 0:57

Владимир7 писал(а):qwertyhp - Ваш уверенный ответ придал мне энергию и поиск увенчался успехом - решение есть, практически получил желаемые результаты, осталось понять что же там было написано в модуле класса ещё до моих переделок и довести до ума весь код убрав не нужное.
Property Get, Private Type, Public Enum - вот чего не знаю, факт.

Первое - процедура получения значения свойства класса.
Второе - тип, доступный только изнутри класса.
Третье - перечисление, доступное для всех.

Тут не совсем понятно, что именно требует объяснения. Понятия-то, в общем-то, базовые.
label:
cli
jmp label

Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

Re: координаты и цвет пикселя

Сообщение Владимир7 » 07.06.2010 (Пн) 10:39

Базовые да, читал о них, но практически никак не могу освоить. :(
Рано я порадовался, что задачка решена - абсолютно нет. Честно искал в интернете, в т.ч. не только русском. Все решения сканирования рисунка только для VB. Вот одно из них:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
MsgBox GetPixel(Form1.hdc, 100, 100)
End Sub
Всё просто в VB, но не в VBA. Где взять hdc As Long для картинки не понятно.
Если рисунок рисован на форме, то сканируется, если это рисунок вставлен в форму то нет. О рисунке на листе и речи нет.

Diamock
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 388
Зарегистрирован: 26.10.2009 (Пн) 4:19
Откуда: Кемерово

Re: координаты и цвет пикселя

Сообщение Diamock » 07.06.2010 (Пн) 18:38

Вот простой пример получения цвета пикселя. В нём максимально всё расписано
p.s. Для VBA адаптируешь сам, ничего сложного нет :D
Вложения
ScanPuxel.zip
Определения цвета пикселя
(2.56 Кб) Скачиваний: 419
In der Beschrankung zeigt sich erst der Meister
Графоманю...

iGrok
Артефакт VBStreets
Артефакт VBStreets
 
Сообщения: 4272
Зарегистрирован: 10.05.2007 (Чт) 16:11
Откуда: Сетевое сознание

Re: координаты и цвет пикселя

Сообщение iGrok » 07.06.2010 (Пн) 19:13

Diamock, ты не в теме..
Попробуй откопай картинку, вставленную в word-документ.
label:
cli
jmp label

Diamock
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 388
Зарегистрирован: 26.10.2009 (Пн) 4:19
Откуда: Кемерово

Re: координаты и цвет пикселя

Сообщение Diamock » 07.06.2010 (Пн) 19:46

М-да, не внимательно прочитал...
Пардон
In der Beschrankung zeigt sich erst der Meister
Графоманю...

Владимир7
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 13.03.2008 (Чт) 22:12

Re: координаты и цвет пикселя

Сообщение Владимир7 » 07.06.2010 (Пн) 19:57

Diamock - спасибо за файл!
Вложения
Foto.zip
(964.67 Кб) Скачиваний: 470


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 52

    TopList