Как из Excell записать картинку в файл? (+)

[tony1]

Добрый день!

из EXCEL открыл WEB страницу, там текст и картинки, в Excel картинки видятся как Picture1 и Picture2, как програмно их записат в файл, наприме картинка1.gif и картинка2.gif ?

я программно их только в буфер скопировать могу.

Код: Выделить всё

    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy

Мужики помогите, скажите как эти объекты в файл записать или из буфера в файл?

ps Заранее спасибо.

[RayShade]

SavePicture?

[tony1]

SavePicture?

Код: Выделить всё

Dim picPicture As IPictureDisp
       
    With Application.CommandBars.FindControl(msoControlButton)
        Set picPicture = .Picture
    End With

stdole.SavePicture picPicture, "c:\image1.jpg"

вот этот код записывает, а как туда мою картинку из Экселя под названием "Picture 1" прицыпить к этому коду? ps что-то не получается =(((

[Димитрий]

Есть идея:
Вставить рисунок в пустую диаграмму и экспортировать
CurrentChart.Export
Размер получится правда 1:1 с экраном, а не с рисунком

[tony1]

Есть идея:
Вставить рисунок в пустую диаграмму и экспортировать
CurrentChart.Export
Размер получится правда 1:1 с экраном, а не с рисунком

можешь кусочек кода написать?

[Димитрий]

Посмотри пример http://dimit.pochta.ru/excel/in_gif.zip

[tony1]

Посмотри пример http://dimit.pochta.ru/excel/in_gif.zip

Дмитрий! Спасибо Вам Большое! все прекрасно работает =))
Будете в Москве, пишите пива проставлю! Обязательно! =)