Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel / 25 сообщений из 35, страница 1 из 2
  1  все
09.09.2009, 14:34
    #36186386
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и Image в Excel
В книге 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:50
    #36186438
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и Image в Excel
Запишите макрос при вставлении картинки, узнаете, как они на самом деле работают в экселе.

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

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


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

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

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2009, 11:02
    #36188010
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и Image в Excel
bmp пробовал - таже петрушка получается.
Смотрю в Watches там такое:
Picture : <Automation error>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.09.2009, 13:08
    #36188429
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и Image в Excel
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:28
    #36188525
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и Image в Excel
1. Замечание VladConn - учтено.
2. Тип объекта - Forms.Image.1.

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

подумайте над этой частью. вам надо бинарную запись делать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel / 25 сообщений из 35, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 534ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155781]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 102ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 347ms
total:  534ms
x
x
Закрыть


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