фото в комментарии

[Gregul]

Есть фото в комментарии к ячейке.
Как его скопировать в форму (объект image).
Нужен код на VBA. Как згрузить из файла я знаю. А вот как из примечания к ячейке достать фото и поместить в форму ?

[EducatedFool]

Как его скопировать в форму (объект image)

Только через файл.
Сначала сохраняем во временный файл, потом читаем из него.

Можно попробовать без файла (используя WinAPI), но кода будет раз в 30 больше...

[Gregul]

А как выгрузтьб в файл фото из примечания ?
Код можешь наюросать ?

EducatedFool, подскажи, как выгрузить во временный файл на VBA, плиз.

Загрузка фото в примечание к ячейке из файла:
x = ThisWorkbook.Path & Application.PathSeparator & "1.jpg"
With Activecell.AddComment
With .Shape
.Height = 200
.Width = 200
.Fill.UserPicture x
End With
End With

А как сделать обратную задачу, т.е. выгрузить фото из примечания к ячейке в файл ? Помогите срочно !!!

[EducatedFool]

Нужный код есть здесь:
http://www.programmersforum.ru/showp...47&postcount=5

Использовать его можно примерно так: (пример в файле)

    Range("a1:a3").CopyPicture , xlBitmap
    Me.Image1.Picture = LoadPicture(Clip2File)

Или так:

    ActiveSheet.Shapes(1).CopyPicture , xlBitmap
    Me.Image1.Picture = LoadPicture(Clip2File)

Однако, если вместо Range("a1:a3").CopyPicture , xlBitmap
поставить cell.Comment.Shape.CopyPicture , xlBitmap
(что по сути то же самое), картинка из комментария не копируется
(поскольку в комментарии картинка расположена не в объекте Shape, а в виде текстуры, и, соответственно, хранится в файле в другом формате)

Как я понял, картинку из примечания штатными средствами не вытащить
(разве что только отображать примечание, делать скриншот этого примечания через WinAPI, и уже этот скриншот сохранять в файл)

PS: зато теперь я знаю, как вытащить картинку из объекта Shape на листе...

[The_Prist]

С Вашего позволения, господа, вмешаюсь в тему. ,Если кому еще интересно.
Картинку из примечания скопировать можно без применения API, а все тем же CopyPicture.

    Range("A1").Comment.Visible = True
    Range("A1").Comment.Shape.CopyPicture xlScreen, xlBitmap
    Range("G1").PasteSpecial
    Range("A1").Comment.Visible = False

Просто прежде чем копировать, необходимо примечание сделать видимым.

[EducatedFool]

Сообщение от The_Prist

С Вашего позволения, господа, вмешаюсь в тему. ,Если кому еще интересно.

Приветствую, Дима! Добро пожаловать к нам на форум.
Вмешивайся в любые темы сколько угодно - всегда рады твоим советам

PS: А что случилось с Планетой?

[EducatedFool]

Картинку из примечания скопировать можно без применения API, а все тем же CopyPicture.

Range("A1").Comment.Visible = True

А вот про этот нюанс я не подумал...
Пытался долго и безуспешно скопировать картинку из невидимого примечания...

PS: Кстати, такая же ерунда и с копированием изображения диапазона ячеек.
Пока не включишь application.ScreenUpdating=True , ничего не копируется.
Могли же ведь сделать нормально...

[The_Prist]

Привет, Игорь.
Планета, чего-то заглохла... Причину пока не знаю(владелец сайта пока не ответил на письмо).
Вот и подумал - а не зайти ли мне в гости?

[EducatedFool]

Сообщение от The_Prist

Вот и подумал - а не зайти ли мне в гости?

Заходи, всегда рады.
А лучше оставайся навсегда

[The_Prist]

Сообщение от EducatedFool

А лучше оставайся навсегда

Заманчивое предложение.
Думаю, что действительно останусь.