| Вопрос: Выгрузка картинки/изображения | Добавлено: 28.04.08 09:25 |
Автор вопроса:  Андрей
|
| Можно ли как-нибудь выгрузить картинку на диск на листе Excel, зная имя этой картинки? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #1 | Добавлено: 30.04.08 10:51 |
|
Непонял!?
У тебя рисунок на листе Excel и его надо выгрузить в файл? |
||
|
Номер ответа: 2 Автор ответа: Андрей Вопросов: 5 Ответов: 23 |
Профиль | | #2 | Добавлено: 30.04.08 11:03 |
| Совершенно верно. Мне надо выгрузить эту картинку в файл!!!!! Может подскажите как! | ||
|
Номер ответа: 3 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #3 | Добавлено: 30.04.08 11:50 |
| Офис какой? 2003? 2007? | ||
|
Номер ответа: 4 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #4 | Добавлено: 30.04.08 11:52 |
| У меня 2003 стоит офис | ||
|
Номер ответа: 5 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #5 | Добавлено: 30.04.08 11:56 |
| Отлично!!! Ещё один ГЛУПЫЙ вопрос: Тебе из VB нужно или макрос? | ||
|
Номер ответа: 6 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #6 | Добавлено: 30.04.08 11:57 |
| Я хочу через 1С выгрузить из Excel картинку, поэтому наверное из VBA | ||
|
Номер ответа: 7 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #7 | Добавлено: 30.04.08 14:17 |
Млин, забрал рисунок в буфер обмена, а вставить его в паинт неполучается  ну не смешно?
|
||
|
Номер ответа: 8 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #8 | Добавлено: 30.04.08 14:29 |
| Может его сначала в temp-файл записать? | ||
|
Номер ответа: 9 Автор ответа: bi-lyaВопросов: 1 Ответов: 125 |
Профиль | | #9 | Добавлено: 30.04.08 15:25 |
|
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:\" & "pic" & hStrPtr & ".emf" ) Then
MsgBox "Не удалось создать файл" GoTo CloseClip End If CloseClip: CloseClipboard NextSh: End If Next End Sub |
||
Страница: 1 |