ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel
10 сообщений из 35, страница 2 из 2
  2  все
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
| Ответить | Цитировать | Написать  
10 сообщений из 35, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и Image в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36188889&tid=2155781]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 308ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


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