ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel
35 сообщений из 35, показаны все 2 страниц
  все  
VB и Image в Excel
    #36186386
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
В книге Excel на листе1 есть объект Image1.
Пытаюсь вставить картинку в Image1:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim objexcel As Excel.Application
Set objexcel = Excel.Application

objexcel.Workbooks.Add App.Path & "\RV.xlt"

Set objexcel.Sheets( 1 ).Image1.Picture = LoadPicture(app.path & "\pic.emf")

objexcel.close

Ругается так: Metod 'Picture' or object 'IImage' failed.

Подскажите пожалуйста не так ему.
...
Рейтинг: 0 / 0
09.09.2009, 14:34
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186438
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Запишите макрос при вставлении картинки, узнаете, как они на самом деле работают в экселе.

Jah loves you.
...
Рейтинг: 0 / 0
09.09.2009, 14:50
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186459
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Пробовал и так:
Код: plaintext
Set objexcel.Sheets( 1 ).OLEObjects("Image1").object.Picture = LoadPicture(app.path & "\pic.emf")
Результат тот же.
...
Рейтинг: 0 / 0
09.09.2009, 14:55
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186596
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Height, top,MousePointer.... - доступны через OLEObjects("Image1").object, а вот встаить картинку никак!
...
Рейтинг: 0 / 0
09.09.2009, 15:32
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186629
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Нужно добавить objexcel.Sheets(1).OLEObjects("Image1").object в watch и посмотреть его тип и свойства.

Jah loves you.
...
Рейтинг: 0 / 0
09.09.2009, 15:40
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186715
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Посмотрел в watch - : Picture : : Picture/Picture


В VBA:
Код: plaintext
Sheets( 4 ).OLEObjects("Image1").Object.Picture= LoadPicture(app.path & "\pic.emf")
Работает без проблем, в VB6 нехочет никак.
...
Рейтинг: 0 / 0
09.09.2009, 16:01
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186723
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Set
...
Рейтинг: 0 / 0
09.09.2009, 16:03
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186735
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Set не помогает!
...
Рейтинг: 0 / 0
09.09.2009, 16:08
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186769
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
убрать его не пробовали?
...
Рейтинг: 0 / 0
09.09.2009, 16:17
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186789
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Пробовал и убирать и добавлять, результат-Metod 'Picture' or object 'IImage' failed
...
Рейтинг: 0 / 0
09.09.2009, 16:23
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36186798
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
Dim objexcel As Excel.Application
Set objexcel = Excel.Application

ошибка еще здесь
...
Рейтинг: 0 / 0
09.09.2009, 16:26
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36187339
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Konst_OneSet
Глумление Вам не к лицу!
...
Рейтинг: 0 / 0
09.09.2009, 21:02
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36187486
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Код: plaintext
Set objexcel = New Excel.Application
...
Рейтинг: 0 / 0
09.09.2009, 23:48
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36187695
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
эх, никак чегото не хочет картинка вставлятся
http://ifolder.ru/13931107
...
Рейтинг: 0 / 0
10.09.2009, 08:54
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36187929
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
У меня есть сомнения, что LoadPicture в VB6 понимает emf. А если bmp попробовать?

Jah loves you.
...
Рейтинг: 0 / 0
10.09.2009, 10:37
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188010
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
bmp пробовал - таже петрушка получается.
Смотрю в Watches там такое:
Picture : <Automation error>
...
Рейтинг: 0 / 0
10.09.2009, 11:02
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188429
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
timtim,

1) Чего-то (а то и многого) не договариваешь. Проигнорировано замечание VladConn - как же получается ссылка на Excel.Application в программе на VB6?
2) Какой тип вставленного объекта, что выдаёт Debug.Print Sheets(1).OLEObjects(1).progID - Forms.Image.1, или что-то другое?
3) Есть как свойство Set Picture, так и свойство Let Picture у MSForms.Image, т. е. оба синтаксиса
Код: plaintext
1.
2.
Sheets( 4 ).OLEObjects("Image1").Object.Picture = LoadPicture(...
и
Set Sheets( 4 ).OLEObjects("Image1").Object.Picture = LoadPicture(...
верны.
4) LoadPicture() понимает EMF.
5) Какой такой IImage?
...
Рейтинг: 0 / 0
10.09.2009, 13:08
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188525
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
1. Замечание VladConn - учтено.
2. Тип объекта - Forms.Image.1.

5. IImage - в сообщении об ошибке.
...
Рейтинг: 0 / 0
10.09.2009, 13:28
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188528
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
...
Рейтинг: 0 / 0
10.09.2009, 13:28
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188540
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Прилагаю проект.
...
Рейтинг: 0 / 0
10.09.2009, 13:32
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188613
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
и где же собственно ваш проект? вы что-то не то приложили и на вирусы бы проверили свой комп для начала
...
Рейтинг: 0 / 0
10.09.2009, 13:55
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188637
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Konst_Oneи где же собственно ваш проект? вы что-то не то приложили и на вирусы бы проверили свой комп для начала
Может Вы не то скачали?
прикрепляю ещё раз.
...
Рейтинг: 0 / 0
10.09.2009, 14:00
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188643
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
простите, но это вы не то положили. у вас проект неполный. нет формы Form1
...
Рейтинг: 0 / 0
10.09.2009, 14:02
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188696
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Извините.
Вот полностью проект.
...
Рейтинг: 0 / 0
10.09.2009, 14:13
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188711
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
    Open App.Path & "\RV.xls" For Output As # 1 
    Print # 1 , StrConv(LoadResData("RV", "Custom"), vbUnicode)
    Close # 1

подумайте над этой частью. вам надо бинарную запись делать
...
Рейтинг: 0 / 0
10.09.2009, 14:16
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188764
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Konst_One
Код: plaintext
1.
2.
    Open App.Path & "\RV.xls" For Output As # 1 
    Print # 1 , StrConv(LoadResData("RV", "Custom"), vbUnicode)
    Close # 1

подумайте над этой частью. вам надо бинарную запись делать

Можно пропустить эти строки вообще. Допустим файл RV.xls уже лежит в директории программы.
Почему не работает это:
Код: plaintext
objexcel.Sheets( 1 ).OLEObjects("Image1").object.Picture = LoadPicture(app.path & "\pic.emf")
...
Рейтинг: 0 / 0
10.09.2009, 14:28
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188777
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
без понятия, я проверить не могу в виду отсутствия на данный момент excel
...
Рейтинг: 0 / 0
10.09.2009, 14:32
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188790
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
objexcel.WorkSheets("Sheet1").OLEObjects("Image1").Object.Picture = LoadPicture(app.path & "\1.bmp")

всё должно работать
...
Рейтинг: 0 / 0
10.09.2009, 14:35
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188813
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
хотя вроде бы говорят на просторах инета про некий баг в экселе по этому вопросу. вот решение:


добавить в шаблон экселя паблик функцию:
Код: plaintext
1.
2.
Public Sub SetPicture(ByVal sSheet as String, ByVal sPath As String, ByVal sItem As String)
    ActiveWorkbook.Worksheets(sSheet).OLEObjects(sItem).Object.Picture = LoadPicture(sPath)
End Sub


вызывать уже через этот метод:

Код: plaintext
   objexcel.Run "SetPicture", "Sheet1", App.Path & "\1.bmp", "Image1"
...
Рейтинг: 0 / 0
10.09.2009, 14:43
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188824
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Должно, НО к сожалению не работает.
...
Рейтинг: 0 / 0
10.09.2009, 14:46
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188861
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
С функцией - работает, спасибо, но хотелось бы без дополнительных функций.
...
Рейтинг: 0 / 0
10.09.2009, 14:55
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188870
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
timtimС функцией - работает, спасибо, но хотелось бы без дополнительных функций.

пишите петицию в микрософт
...
Рейтинг: 0 / 0
10.09.2009, 14:57
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36188889
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
ОК, ща слабаю!
...
Рейтинг: 0 / 0
10.09.2009, 15:02
| Ответить | Цитировать | Написать  
VB и Image в Excel
    #36189007
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Да, не хочет IPictureDisp лезть через границу процессов... Засада. Можно выполнить функцию в Excel-евском процессе, что и было предложено. Если неприемлемо, надо искать другие альтернативы, исходя из постановки задачи.
...
Рейтинг: 0 / 0
10.09.2009, 15:33
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
VB и Image в Excel
    #39066766
baydim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
baydim
Гость
Подскажите пож. как убрать картинку из image1 с помощью кнопки.
Спасибо
...
Рейтинг: 0 / 0
02.10.2015, 10:22
| Ответить | Цитировать | Написать  
35 сообщений из 35, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2155781]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 294ms
total:  428ms
созд. / загр.: 428ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]