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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранение каринки 
:(
    Опции темы
Izuver
Дата 9.10.2010, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Как сохранить каринку если знаешь ее эл.адресс или она находится на листе xl?
PM MAIL ICQ   Вверх
mihanik
Дата 11.10.2010, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Izuver, включи макрорекордер, выполни последовательность действий, посмотри, что получилось в макросах...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Bugmaker
Дата 12.10.2010, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 27.6.2008

Репутация: нет
Всего: нет
mihanik в меню по нажатии пкм в excel на картинке, нету пункта "Сохранить изображение". Как быть? )
PM MAIL   Вверх
Izuver
Дата 13.10.2010, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Уместный вопрос, жаль его я сам не задал
PM MAIL ICQ   Вверх
mihanik
Дата 15.10.2010, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Копируешь картинку в буфер обмена а потом изучаешь

http://forum.vingrad.ru/index.php?showtopi...st&p=902983




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Izuver
Дата 15.10.2010, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Код

SavePicture Pict, "I:\Б\DDD.jpg"

замечательно, но как мне задать переменную в виде эл.аресса или выделенной картинки, без копирования в буффер?
PM MAIL ICQ   Вверх
mihanik
Дата 15.10.2010, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Не знаю...

 smile 

Думать нужно...
Попробуй сначала способ с буфером.



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Izuver
Дата 16.10.2010, 06:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
ошибка возникает в строке
Код

Set Pict = Clipboard.GetData

или

Set Pict = Clipboard.GetData(vbCFBitmap)

http://clip2net.com/clip/m49433/1287200172-clip-14kb.png

Это сообщение отредактировал(а) Izuver - 16.10.2010, 06:36
PM MAIL ICQ   Вверх
mihanik
Дата 16.10.2010, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Izuver, а ты как Pict объявил?



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Izuver
Дата 16.10.2010, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Dim Pict As IPictureDisp
там в ссылке на картинку показано

Добавлено через 6 минут и 49 секунд
Если эта картинка находится в объекте Image1 на форме, то код этот работает:
Код

Private Sub CommandButton1_Click()
SavePicture Image1.Picture, "I:\Б\DDD.jpg"
End Sub

так же и через лист, а вот как ее загрузить туда? Через LoadPicture перепробовал уже все что мог
PM MAIL ICQ   Вверх
alex77755
Дата 17.10.2010, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 59
Регистрация: 18.4.2009

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


Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
 Const CF_ENHMETAFILE As Long = 14
 Sub GetPictures()
 Dim PShape As Shape, hStrPtr As Long
 For Each PShape In ActiveSheet.Shapes
 If PShape.Type = msoPicture Then
    PShape.CopyPicture
    If Not CBool(OpenClipboard(0)) Then
      MsgBox "Не удалось открыть буфер"
      GoTo NextSh
    End If
    hStrPtr = GetClipboardData(CF_ENHMETAFILE)   
    If Not CBool(hStrPtr) Then
      MsgBox "Не удалось получить дескриптор"
      GoTo CloseClip
    End If
    If Not CBool(CopyEnhMetaFile(hStrPtr, "c:" & "\" & "Temp" & "\" & "pic" & hStrPtr & ".jpg")) Then
      MsgBox "Не удалось создать файл"
      GoTo CloseClip
    End If    
CloseClip: 
    CloseClipboard 
NextSh: 
 End If 
Next 
End Sub
PM MAIL   Вверх
Izuver
Дата 18.10.2010, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
Сколько всего не понятного для меня, зато работает, но думаю так проще:
Код

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Const CF_ENHMETAFILE As Long = 14
Sub fasdf()
ActiveSheet.Pictures.Insert("http://forum.vingrad.ru/uploads/av-23980.jpg").CopyPicture
If Not CBool(OpenClipboard(0)) Then
End If
If Not CBool(CopyEnhMetaFile(GetClipboardData(CF_ENHMETAFILE), "I:\Б\DD1.jpg")) Then
End If
CloseClipboard
End Sub

что такое CBool, и зачем его использовать в условии
PM MAIL ICQ   Вверх
mihanik
Дата 18.10.2010, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
CBool (выражение)

Переводит "выражение" в булевский вид; true, false

Добавлено через 1 минуту и 29 секунд
Тогда уж так

Код

Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long
Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long
Const CF_ENHMETAFILE As Long = 14
Sub fasdf()
ActiveSheet.Pictures.Insert("http://forum.vingrad.ru/uploads/av-23980.jpg").CopyPicture
CloseClipboard
End Sub


Это если ты сбойные ситуации отлавливать не хочешь.



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Izuver
Дата 20.10.2010, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 2
что это? зачем убрал те условия, у меня ведь проблема с сохранением картинки была
в прошлых ссылках она решалась с помощью SavePicture, но энто только для элементов формы
PM MAIL ICQ   Вверх
mihanik
Дата 20.10.2010, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Ну... Вопрос спорный...
Будешь смеятся!

1. Условия я убрал опрометчиво.
2. Именно "условия" там не нужны.

Вот такой вот парадокс.  smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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


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

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

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

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


 




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


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

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